マルチスレッドWSH VBScript

松葉杖

すべての良い一日。 WSH VBScriptのマルチスレッド（または「マルチプロセッシング」）のメカニズムを実装する松葉杖を提供します。 インドコードにアレルギーのある人にはお勧めしません。

マルチスレッドの潜在的な利便性について最初に考えたのは、情報を処理して視覚化するという比較的単純なタスクに関する自発的な決定の際に一度来ました。 また、Visual StudioとヘルプデスクのようなIDEのインストールは互換性のない概念であるため、VBAとWSHのみが「合法的な」ものとして残りました。 その時、後者が選ばれました。 そして、現在の管理上の制限と使いやすいメソッドを取得したいという要望により、このマルチプロセッシングの実装の要件が決まりました。

• コードは、通常のスクリプトのように単一のファイルにあります。
• WSH x86 / x64では、最小限のActiveXを使用し、WMIなしで機能するのは組み込みのみです。
• 速度とパターンよりも、十分な機能と利便性が重要です。

機能：

• 起動されたスクリプトはサービス機能を実行します。 メインコードは後続のプロセスで実行されます。
• 「フルバージョン」では、メインコードはクラスにのみ配置され、そのいずれも別のプロセスでインスタンス化できます。 新しいプロセスごとに、スクリプトはユーティリティクラスのインスタンスを作成し、指定されたターゲットクラスのインスタンスを作成し、ターゲットメソッドを呼び出し、その進行を制御し、作成されたクラスインスタンスを参照するグローバルスクリプトコンテキストに変数を作成します。 初期化されたターゲットクラスのオブジェクトは前のスクリプトに返され、実行中のスクリプトのターゲットクラスの初期化と完了のイベントは「処理」されます。
• 「ライトバージョン」では、ロジックは似ており、メインコードのみがsub'ov内に配置され、オブジェクトは前のスクリプトに返されず、起動されたもののインデックスになり、イベント処理はありません。
• 新しいプロセスを作成するために、スクリプトはそれ自体を再帰的に起動し、呼び出されたメソッドに関するデータを渡し、名前付き引数の情報を識別します。
• 単一の実行スペースはなく、各スクリプトはそのデータとオブジェクトをコンテキストに保存します。 データを交換するには、Grayフォーラムのトピック「スクリプト間でのデータとオブジェクトの交換-2」で説明されているGlobalContainerを使用して、最初のスクリプトのMeオブジェクトが後続のものに転送されます 。 ターゲットメソッドの完了後の各スクリプトは、許可が完了することを期待しています。このような遅延により、受信した情報を取得できます。
• WSH WScriptとCScriptで同じように機能し、ScriptCryptorでコンパイルされたexeファイルの形式で機能します（ただし、class_terminateメソッドはexeでは機能しません）。

短所：

• onエラーの使用によるデバッグの難しさは次に再開され、多くの方法で実行されます。 すべて同じですが、これは松葉杖です。
• かさばる。
• スクリプトの完了順序は完全に開発者の責任です。 当然、完了したスクリプトのオブジェクトにアクセスするとエラーが発生します。

実際：

• メソッドを複数のプロセスが使用できないようにするためのmutexとメカニズムは実装されていません。
• 他のコンテキストからスクリプト変数にアクセスしているときに障害が発生する場合があります。
• CScript.exeコンソールウィンドウを閉じても、エクスプローラウィンドウはメモリに残ります。

mproclite.vbsのライトバージョン：

option explicit launch "base" ' main programm section sub base() startproc "msg" startproc "msg" startproc "msg" msgbox "base, id = " & id, 64 free id end sub sub msg() msgbox "msg, id = " & id, 64 free id end sub ' do not modify service section sub launch(byval destination) dim job executeglobal "dim scene, container, signature, subname, jobs, id, state, release" release = false if not wscript.arguments.named.exists("task") then dim elt executeglobal "dim found, lost" id = 0 found = 0 lost = 0 signature = "" randomize do signature = signature & hex(rnd * 16) loop while len(signature) < 16 set scene = me set jobs = createobject("Scripting.Dictionary") set jobs(0) = scene set container = getobject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}") container.putproperty signature, scene startproc destination on error resume next do until (lost >= found) or release for elt = found to 1 step -1 if typename(jobs(elt)) = "Object" then lost = lost + 1 jobs(elt) = empty end if err.clear wscript.sleep 1 next loop release = true executeglobal "scene_beforeterminate" for elt = found to 1 step -1 if typename(jobs(elt)) = "VBScriptTypeInfo" then jobs(elt).wscript.timeout = 1 jobs(elt).wscript.quit err.clear nojobs = false end if wscript.sleep 1 next container.quit else job = split(wscript.arguments.named("task"), ";") signature = cstr(job(0)) id = clng(job(1)) subname = cstr(job(2)) do for each container in createobject("Shell.Application").windows if isobject(container.getproperty(signature)) then exit do end if next wscript.sleep 1 loop set scene = container.getproperty(signature) set jobs = scene.jobs state = 4 set jobs(id) = me executeglobal subname state = 24 do until release wscript.sleep 10 loop state = 28 end if end sub function startproc(subname) startproc = createproc(subname) joint startproc, 4, 0 REM do while getstate(startproc) < 4 REM wscript.sleep 10 REM loop end function function createproc(subname) if me is scene then if not release then found = found + 1 createproc = found set jobs(createproc) = nothing createobject("WScript.Shell").exec("""" & wscript.fullname & """ """ & wscript.scriptfullname & """ ""/task:" & join(array(signature, createproc, subname), ";") & """") end if else createproc = scene.createproc(subname) end if end function function getjob(target) on error resume next if jobs.exists(target) then set getjob = jobs(target) if err.number = 0 then exit function err.clear end if set getjob = nothing end function sub share(varname, value) scene.newvar varname if isobject(value) then execute "set scene." & varname & " = value" else execute "scene." & varname & " = value" end if end sub sub newvar(varname) executecommand "dim " & varname end sub sub executecommand(command) executeglobal command end sub function getstate(target) dim elt if jobs.exists(target) then on error resume next set elt = jobs(target) getstate = elt.state if err.number <> 0 then if not(elt is nothing) then getstate = 64 else getstate = 1 end if end if set elt = nothing else getstate = 64 end if end function function isresponsive(target) isresponsive = cbool(getstate(target) and 28) end function sub free(target) if jobs.exists(target) then on error resume next jobs(target).release = true else dim elt, subname for elt = scene.found to 1 step -1 on error resume next subname = jobs(elt).subname if subname = target then free jobs(elt).id end if err.clear next end if end sub function joint(target, state, timeout) dim reftime reftime = timer on error resume next if jobs.exists(target) then if isnumeric(target) then do while getstate(target) < state if timeisout(timeout, reftime) then joint = false exit function end if wscript.sleep 10 loop else dim elt, subname for elt = scene.found to 1 step -1 subname = jobs(elt).subname err.clear if subname = target then do while getstate(target) < state if timeisout(timeout, reftime) then joint = false exit function end if wscript.sleep 10 loop end if err.clear next end if end if joint = true end function function timeisout(timeout, reftime) if timeout > 0 then dim delta delta = timer - reftime if delta < 0 then delta = delta + 86400 if delta > timeout then timeisout = true end if else timeisout = false end if end function sub interrupt(target, timeout) if jobs.exists(target) then on error resume next jobs(target).wscript.timeout = timeout jobs(target).wscript.quit else dim elt, subname for elt = scene.found to 1 step -1 on error resume next subname = jobs(elt).subname if subname = target then interrupt jobs(elt).id end if err.clear next end if end sub sub push(name, value) container.putproperty name, value end sub function pop(name) on error resume next if isobject(container.getproperty(name)) then set pop = container.getproperty(name) else pop = container.getproperty(name) end if end function
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

説明：

ライトバージョンのマルチプロセッシングメカニズム機能：



サブネームを起動

サービスアルゴリズムを起動し、スクリプトの実行は常にその呼び出しから始まります。

subnameは、新しいプロセスで実行されるターゲットsubを示す文字列です。

このメソッドの引数は、メインコードの実行を開始するために最初に起動されたスクリプトでのみ使用されます。

新しい各スクリプトで：

• 変数は、実行中のスクリプトのグローバルスペースで宣言されます。
  
  scene-最初のスクリプトのMeオブジェクトへの参照、
  
  container -GlobalContainerエクスプローラーウィンドウへのリンク、
  
  signature -GlobalContainerを識別するために生成された文字列、
  
  見つかった、失われた -シーンのみ-作成および完了したスクリプトプロセスの数、
  
  subname-文字列、スクリプトの目的を含む、
  
  jobs-シーンで作成された実行スクリプトのMeオブジェクトを含む辞書へのリンク、
  
  id-このスクリプトのシリアル番号-辞書のキー、
  
  release = False-ターゲットsubが完了すると、Trueを割り当てた後にスクリプトが完了します。
  
  state = 4-このスクリプトが配置されている状態。
• アイテムがジョブディクショナリに追加されます。

startproc （サブネーム）

サブネーム-launch（）を参照してください。

新しいスクリプトプロセスを作成し、スクリプトのMeオブジェクトにアクセスできるときに、状態4（getstate（）を参照）の準備が整うまで待機します。 実行中のスクリプトのID-IDを返します。



createproc （サブネーム）

サブネーム-launch（）を参照してください。

待機することなく、新しいスクリプトプロセスを作成し、数値-実行中のスクリプトのIDを返します。 各プロセスの準備が整うのを待たずに、ループで複数のプロセスを非同期的に作成するために使用します。 このようなアプリケーションでstartproc（）を使用するよりも著しく高速です。



getjob （ターゲット）

target-作成されたスクリプトのグループの番号、スクリプトIDまたは文字列、サブネーム。

Meスクリプトオブジェクトへのアクセスを提供します。 idが見つからないか、スクリプトが完了した場合、スクリプトのMeオブジェクトへの参照を返します-Nothing。



getstate （ターゲット）

target-スクリプトの番号、ID。

スクリプトの状態を決定します。 数値、実行ステップを返します。

1つのプロセスが作成されました（新しいプロセスexec）、

4スクリプトが実行中（初期化済み）、

24個のターゲットサブが完了しました

28個のスクリプトがリリースされました

64が見つかりません（ホストが見つかりません）、スクリプトは終了しました。



isresponsive （ターゲット）

ターゲット-getstate（）を参照してください。

Meスクリプトオブジェクトの可用性を決定します（状態4〜28）。 ブール値を返します。



executecommandコマンド

commandは指示を含む文字列です。

インタープリターを呼び出して、グローバルスクリプトスペースでステートメントを実行します。



varname、valueを共有します

varnameは変数の名前を含む文字列で、valueは任意の値です。

最初のスクリプトのグローバルスペースでvarnameという名前の変数を宣言します。これは、シーンプロパティの形式ですべてのスクリプトで使用可能になり、valueの内容を変数に割り当てます。



newvar varname

varnameは、変数の名前を含む文字列です。

グローバルスクリプトスペースで新しい変数を宣言します。



無料のターゲット

target-作成されたスクリプトのグループの番号、スクリプトIDまたは文字列、サブネーム。 ターゲットsubの実行後、スクリプトの終了を許可します。 単一のスクリプトまたはグループで動作します。



ジョイント （ターゲット、状態、タイムアウト）

target-free（）を参照、state-getstate（）を参照、timeout-ミリ秒単位の秒単位の数値。

状態スクリプトが到着するまで待機します。スクリプトのグループでは、それぞれが状態に到達するまで待機します。 待機はタイムアウトによって制限されます。タイムアウト= 0は無制限の待機を意味します。 ブール値、Truth-待機は終了、False-タイムアウトを返します。 スクリプトを同期するように設計されています。 たとえば、スクリプトが開始するまで待つ必要がある場合-4、スクリプトは完了します-64。



割り込みターゲット、タイムアウト

ターゲット-free（）、タイムアウト-秒単位のwscript.timeoutの値を参照してください。

class_terminateメソッドの実装により、スクリプトを通常の完了に変換します。 スクリプトでダイアログボックスが開かれた場合、タイムアウトの一時停止後にのみ完了します。 class_terminateメソッドでダイアログボックスを再表示すると、完了が停止します。



プッシュ名、値

name-文字列、プロパティ名、value-任意の値。

nameという名前のGlobalContainerプロパティにvalueの内容を入れます。



ポップ （名前）

name-文字列、プロパティ名。

GlobalContainerからnameという名前のプロパティの内容を返します。

mproc.vbsのフルバージョン：

 option explicit dim mproc set mproc = new multiprocess mproc.launch "base", "run", "" ' main programm section class base public sub run() host.startproc "msg", "run", "first" host.startproc "msg", "run", "second" host.startproc "msg", "run", "third" msgbox "base, id = " & host.id, 64 host.free host.id end sub end class class msg public sub run() msgbox host.aliasname & ", id = " & host.id, 64 host.free host.id end sub end class ' do not modify service class section class multiprocess public primary, ancestor, parent, process, err public names, execs, hosts public id, aid, isprimary public classname, methodname, aliasname public found, lost, active public state, permit, release private container, signature, wshshell public sub launch(startclassname, startmethodname, startaliasname) permit = false release = false executeglobal "dim scene, host, ancestor, process" if not isempty(host) then exit sub set host = me executeglobal "set host.err = err" executeglobal "function getroot: set getroot = me: end function" set parent = getroot isprimary = not wscript.arguments.named.exists("task") if isprimary then dim sample state = 24 randomize signature = "" do signature = signature & hex(rnd * 16) loop while len(signature) < 16 aid = empty id = 0 found = 0 lost = 0 set wshshell = createobject("WScript.Shell") set primary = host set ancestor = nothing set process = nothing set scene = parent set parent.ancestor = nothing set parent.process = nothing set hosts = createobject("Scripting.Dictionary") set execs = createobject("Scripting.Dictionary") set names = createobject("Scripting.Dictionary") classname = empty methodname = empty aliasname = empty set hosts(0) = host set container = getobject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}") container.putproperty signature, parent startproc startclassname, startmethodname, startaliasname on error resume next do for each sample in execs.keys if release or active = 0 then exit do if not (execs(sample) is nothing) then if execs(sample).status > 0 then abolish sample end if end if wscript.sleep 1 next loop release = true state = 28 scenequit else dim job job = split(wscript.arguments.named("task"), ";") signature = cstr(job(0)) do for each container in createobject("Shell.Application").windows if isobject(container.getproperty(signature)) then exit do end if next wscript.sleep 1 loop aid = clng(job(1)) id = clng(job(2)) found = null lost = null set scene = container.getproperty(signature) set primary = scene.host set hosts = primary.hosts set ancestor = hosts(aid) if isresponsive(aid) then set parent.ancestor = ancestor.parent.process else set parent.ancestor = nothing end if classname = cstr(job(3)) methodname = cstr(job(4)) aliasname = cstr(job(5)) state = 4 primary.implicate id, aliasname, host executeglobal "set process = new " & classname executeglobal "set host.process = process" executeglobal "set scene." & aliasname & " = process" if isresponsive(aid) then executeglobal "set host.ancestor.parent." & aliasname & " = process" end if state = 8 primary.staff host ancestorevent "oninitialized" state = 12 if methodname <> "" then do until permit wscript.sleep 10 loop state = 16 executeglobal "process." & methodname end if state = 20 ancestorevent "oncompleted" state = 24 do until release wscript.sleep 10 loop state = 28 end if end sub public default function startproc(classname, methodname, aliasname) set startproc = start(createproc(classname, methodname, aliasname)) end function public function createproc(classname, methodname, aliasname) if aliasname = "" then aliasname = classname newvar aliasname scene.host.newvar aliasname createproc = primary.spawn(id, classname, methodname, aliasname) end function public function spawn(issuer, classname, methodname, aliasname) if not release then found = found + 1 spawn = found active = found - lost names(spawn) = aliasname set hosts(spawn) = nothing if not hosts.exists(aliasname) then hosts.add aliasname, createobject("Scripting.Dictionary") end if set hosts(aliasname)(spawn) = nothing execs.add spawn, wshshell.exec("""" & wscript.fullname & """ """ & wscript.scriptfullname & """ ""/task:" & join(array(signature, issuer, spawn, classname, methodname, aliasname), ";") & """") end if end function public function start(target) select case outline(target) case "Nothing", "multiprocess" do while getstate(target) < 12 wscript.sleep 10 loop if isresponsive(target) then set start = hosts(target).process hosts(target).permit = true else set start = nothing end if case "Dictionary" dim elt set start = hosts(target) for each elt in start.keys do while getstate(elt) < 12 wscript.sleep 10 loop next for each elt in start.keys if isresponsive(elt) then hosts(elt).permit = true end if next case else set start = nothing end select end function public sub implicate(id, aliasname, host) set hosts(aliasname)(id) = host set hosts(id) = host end sub public sub staff(host) set hosts(host.process) = host end sub public sub abolish(id) if hosts.exists(names(id)) then hosts(names(id))(id) = empty end if names(id) = empty if isresponsive(id) then hosts(hosts(id).process) = empty end if hosts(id) = empty set execs(id) = nothing lost = lost + 1 active = found - lost end sub private sub ancestorevent(eventname) if aid > 0 then on error resume next executeglobal "ancestor." & aliasname & "_" & eventname & " host.hosts(" & id & ")" if err.number = 424 or err.number = 438 then err.clear end if end sub public sub assignhandler(handlername, byval varsqty) dim vars vars = "" if varsqty > 0 then do vars = vars & "param" & varsqty varsqty = varsqty - 1 if varsqty = 0 then exit do vars = vars & ", " loop end if executeglobal "sub " & handlername & "(" & vars & "): process." & handlername & " " & vars & ": end sub" end sub public sub newvar(varname) executecommand "dim " & varname end sub public sub executecommand(command) executeglobal command end sub public function getstate(target) select case outline(target) case "multiprocess" on error resume next getstate = hosts(target).state if err.number <> 0 then err.clear getstate = 64 end if case "Nothing" getstate = 1 case "Dictionary" getstate = null case empty getstate = 0 case else getstate = 64 end select end function private function outline(target) on error resume next if hosts.exists(target) then outline = typename(hosts(target)) if err.number <> 0 then err.clear outline = "Object" end if else outline = empty end if end function public function isresponsive(target) isresponsive = cbool(getstate(target) and 28) end function public function getid(target) on error resume next if isobject(target) then if isresponsive(target) then getid = hosts(target).id if err.number = 0 then exit function err.clear end if elseif primary.execs.exists(target) then getid = target exit function end if getid = null end function public function gethost(target) on error resume next if hosts.exists(target) then set gethost = hosts(target) if err.number = 0 then exit function err.clear end if set gethost = nothing end function public sub free(target) select case outline(target) case "multiprocess" on error resume next gethost(target).release = true err.clear case "Dictionary" dim elt for each elt in gethost(target) free(elt) next end select end sub public function joint(target, state, timeout) dim reftime reftime = timer select case outline(target) case "multiprocess", "Nothing" do while getstate(target) < state if timeisout(timeout, reftime) then joint = false exit function end if wscript.sleep 10 loop case "Dictionary" dim elt for each elt in gethost(target) do while getstate(elt) < state if timeisout(timeout, reftime) then joint = false exit function end if wscript.sleep 10 loop next end select joint = true end function private function timeisout(timeout, reftime) if timeout > 0 then dim delta delta = timer - reftime if delta < 0 then delta = delta + 86400 if delta > timeout then timeisout = true end if else timeisout = false end if end function public sub interrupt(target, timeout) select case outline(target) case "multiprocess" on error resume next with gethost(target).parent .wscript.timeout = timeout .wscript.quit end with err.clear case "Dictionary" dim elt for each elt in gethost(target) interrupt elt, timeout next end select end sub public sub kickout(target) if primary.execs.exists(target) then if getstate(target) < 64 then on error resume next primary.execs(target).terminate err.clear end if else select case outline(target) case "multiprocess" kickout getid(target) case "Dictionary" dim elt for each elt in gethost(target) kickout(elt) next end select end if end sub public sub terminate(target) interrupt target, 1 if not joint(target, 64, 2) then kickout target end sub public sub push(name, value) container.putproperty name, value end sub public function pop(name) on error resume next if isobject(container.getproperty(name)) then set pop = container.getproperty(name) else pop = container.getproperty(name) end if end function private sub scenequit if isprimary then dim col, i, status col = execs.keys for i = ubound(col) to 0 step -1 interrupt col(i), 1 next wscript.sleep 2000 on error resume next for i = ubound(col) to 0 step -1 status = execs(col(i)).status if err.number = 0 and status = 0 then execs(col(i)).terminate err.clear next container.quit end if end sub private sub class_terminate() if state < 28 and isprimary then scenequit end sub end class
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

説明：

マルチプロセスクラスのメソッド：



クラス名、メソッド名、エイリアス名を起動します

サービスアルゴリズムを起動し、スクリプトの実行は常にその呼び出しから始まります。

クラス名、メソッド名、エイリアス名-文字列。 これらは、ターゲットクラスclassnameと、新しいプロセスで実行されるこのクラスmethodnameのメソッドを示します。クラスclassnameのインスタンスは、aliasname（aliasnameが空の文字列の場合はclassname）という名前の変数に配置されます。

このメソッドの引数は、メインコードの実行を開始するために最初に起動されたスクリプトでのみ使用されます。

新しい各スクリプトで：

• 変数は、実行中のスクリプトのグローバルスペースで宣言されます。
  
  scene-最初のスクリプトのMeオブジェクトへの参照、
  
  host-このスクリプトのマルチプロセスクラスのインスタンス、
  
  process -classnameという名前のターゲットクラスのインスタンス。この名前は、このスクリプトのプロセスを作成するときに前のスクリプトによって示されたものです。
  
  祖先は、前述のスクリプトのターゲットクラスのインスタンスです。
• 変数は、グローバルスペースシーンおよび以前のスクリプトで、 aliasnameという名前で宣言されます-このスクリプトのターゲットクラスのインスタンスにリンクします。
• ホストプロパティが設定されます。
  
  primary-最初のスクリプトのマルチプロセスクラスのインスタンスへの参照、
  
  祖先 -前のスクリプトのマルチプロセスクラスのインスタンスへの参照、
  
  parent-このスクリプトのMeオブジェクト、
  
  process-グローバル空間でのプロセスへの参照、
  
  err-このスクリプトのerrオブジェクトへの参照、
  
  names-プライマリで作成されたエイリアス名を持つ辞書へのリンク、
  
  execs-プライマリで作成され、実行中のプロセスのwshexecオブジェクトを含む辞書へのリンク。
  
  ホスト -プライマリによって作成された実行中のプロセスのホストオブジェクトを使用して辞書にリンクします。
  
  id-このスクリプトのシリアル番号-辞書のキー、
  
  aid-前のスクリプトと同じ、
  
  isprimary -boolean、このスクリプトが主に実行されるかどうか、
  
  見つかった、失われた、アクティブ -プライマリのみ-作成、完了、およびアクティブなスクリプトプロセスのカウンター、
  
  クラス名、メソッド名、エイリアス名 -スクリプトの目的を含む、
  
  permit = False-Trueを割り当てた後、ターゲットメソッドが起動されます。
  
  release = False-ターゲットメソッドの完了時に、Trueを割り当てた後にスクリプトが完了します。
  
  state = 4-このスクリプトが配置されている状態。
• 辞書名 、 exec 、 hostsに要素が追加されます 。

startproc （クラス名、メソッド名、エイリアス名）

クラス名、メソッド名、エイリアス名-launch（）を参照してください。

新しいスクリプトプロセスを作成し、状態12（getstate（）を参照）の準備ができるまで待機し、ターゲットメソッドを起動します。 新しいプロセスで初期化されたターゲットクラスのインスタンスへの参照を返します。



createproc （クラス名、メソッド名、 エイリアス名）

クラス名、メソッド名、エイリアス名-launch（）を参照してください。

待機せずに新しいスクリプトプロセスを作成し、そのIDを返します。 各プロセスの準備が整うのを待たずに、ループで複数のプロセスを非同期的に作成するために使用します。 このようなアプリケーションでstartproc（）を使用するよりも著しく高速です。



開始 （ターゲット）

target-作成されたスクリプトのグループの番号、スクリプトID、または文字列、エイリアス名。

createproc（）を使用して作成されたスクリプトが状態12に達するまで待機し、ターゲットメソッドの実行を許可します。 グループに同じエイリアス名を持つスクリプトを使用することができます。 1つのスクリプトでは、新しいプロセスで初期化されたターゲットクラスのインスタンスへのリンクを返します。スクリプトのグループでは、aliasnameデータを持つすべてのホストを含​​むサブ辞書へのリンクを返します。



gethost （ターゲット）

target-番号、スクリプトIDまたは文字列、作成されたスクリプトのグループのエイリアス名、またはスクリプトプロセスオブジェクト。

必要なスクリプトのマルチプロセスクラスのホストインスタンスへのアクセスを提供します。 1つのスクリプトについてはホストへのリンクを返し、スクリプトのグループについては、idが見つからないかスクリプトが完了した場合、エイリアス名データを持つすべてのホストを含​​むサブ辞書へのリンクを返します-何もありません。



getid （ターゲット）

target-スクリプトの番号、ID、またはスクリプトのプロセスオブジェクト。

プロセスオブジェクトによって識別されるスクリプトのIDを返します。 既存のスクリプトのみ。



getstate （ターゲット）

ターゲット-getid（）を参照。

スクリプトの状態を決定します。 数値、実行ステップを返します。

0が見つかりません（ホストが見つかりません）、

1つのプロセスが作成されました（新しいプロセスexec）、

4ホストが初期化されました

8ターゲットクラスの初期化（プロセスの初期化）、

12ターゲットクラスが初期化され、イベントが処理されました（プロセスの初期化が処理されました）。

16個のターゲットメソッドの起動（プロセスメソッドの起動）、

20ターゲットメソッドが完了（プロセスが完了）、

24個のターゲットメソッドが完了し、イベントが処理されました（処理が完了しました）

28個のスクリプトがリリースされました

64スクリプトが完了しました（終了しました）。



isresponsive （ターゲット）

ターゲット-getid（）を参照。

ホストスクリプトオブジェクトの可用性を決定します（状態4〜28）。 ブール値を返します。



assignhandler handlername、varsqty

handlername-文字列、イベント名、varsqty-渡された引数の数。

イベント名handlernameを使用してグローバルスペースにサブイベントハンドラを作成し、作成されたプロセスオブジェクト内の同じ名前のメソッドに関連付けます。 イベントが発生すると、ハンドラーは呼び出しをプロセスにリダイレクトします。 ハンドラー名（）。



executecommandコマンド

commandは指示を含む文字列です。

インタープリターを呼び出して、グローバルスクリプトスペースでステートメントを実行します。



newvar varname

varnameは、変数の名前を含む文字列です。

グローバルスクリプトスペースで新しい変数を宣言します。



無料のターゲット

ターゲット-gethost（）を参照してください。

ターゲットメソッドの実行後にスクリプトを終了できます。 単一のスクリプトまたはグループで動作します。



ジョイント （ターゲット、状態、タイムアウト）

target-gethost（）を参照、state-getstate（）を参照、timeout-ミリ秒単位の秒単位の数値。

状態スクリプトが到着するまで待機します。スクリプトのグループでは、それぞれが状態に到達するまで待機します。 待機はタイムアウトによって制限されます。タイムアウト= 0は無制限の待機を意味します。 ブール値、Truth-待機は終了、False-タイムアウトを返します。 スクリプトを同期するように設計されています。 たとえば、プロセス-8オブジェクトが作成されるまで待つ必要がある場合、スクリプトは完了します-64。



割り込みターゲット、タイムアウト

target-gethost（）を参照、timeout-秒単位のwscript.timeoutの値。

class_terminateメソッドの実装により、スクリプトを通常の完了に変換します。 スクリプトでダイアログボックスが開かれた場合、タイムアウトの一時停止後にのみ完了します。 class_terminateメソッドでダイアログボックスを再表示すると、完了が停止します。



キックアウトターゲット

ターゲット-gethost（）を参照してください。

wshexec.terminateを使用して、OSレベルでスクリプトプロセスを終了します。 長い実行が可能です。スクリプトごとに最大2秒です。 単一のスクリプトまたはグループで動作します。



ターゲットを終了

ターゲット-gethost（）を参照してください。

スクリプトを完了し、最初に割り込みを使用してから、必要に応じてキックアウトします。



プッシュ名、値

name-文字列、プロパティ名、value-任意の値。

nameという名前のGlobalContainerプロパティにvalueの内容を入れます。



ポップ （名前）

name-文字列、プロパティ名。

GlobalContainerからnameという名前のプロパティの内容を返します。



このスクリプトのターゲットクラスに、ターゲットクラスの初期化および実行中のスクリプトのターゲットメソッドの実行のイベントのハンドラーとして配置できるメソッド：



<エイリアス名> _ oninitialized （ソース）

source-メソッドに渡されたメソッドを呼び出したスクリプトのホストオブジェクト;そのエイリアス名はメソッド名に含まれています。 このメソッドは、実行中のスクリプトのターゲットクラスの初期化後に呼び出されます（状態= 8）。



<エイリアス名> _ oncompleted （ソース）

source-メソッドに渡されたメソッドを呼び出したスクリプトのホストオブジェクト;そのエイリアス名はメソッド名に含まれています。 メソッドは、実行中のスクリプトのターゲットメソッドを実行した後に呼び出されます（状態= 20）。

例：

mprocliteおよびmprocの場合、抽象タスクの例が示されます。文字列の文字から文字ごとに個別のプロセスが作成され、ループ内の各プロセスがバッファーに独自の文字を入れます。 WScriptの場合、コンソールはIEウィンドウによってシミュレートされます。 途中で、開始および停止されたOSプロセスが表示されます（例ではWMIが使用されていますが、メカニズムが機能する必要はありません）。

デバッグ中、私はいくつかの観察とコメントを蓄積しました。需要があれば共有します。事実、それらを読みやすい形式にするのに時間がかかるということです。 建設的な批判は大歓迎です。