डब्ल्यूएसएच वीबीएसस्क्रिप्ट को गुणा करना

बैसाखी

सभी को शुभ दिन। मैं एक बैसाखी प्रदान करता हूं जो डब्ल्यूएसएच वीबीएसस्क्रिप्ट के लिए मल्टीथ्रेडिंग (या "मल्टीप्रोसेसिंग") के तंत्र को लागू करता है। इंडोकोड से एलर्जी वाले व्यक्तियों के लिए अनुशंसित नहीं है।
मल्टीथ्रेडिंग की संभावित सुविधा के बारे में पहला विचार एक बार प्रसंस्करण और दृश्य जानकारी के अपेक्षाकृत सरल कार्य पर एक स्वैच्छिक निर्णय के दौरान आया था। और, विजुअल स्टूडियो और हमारे हेल्पडेस्क जैसे आईडीई स्थापित करने के बाद से असंगत अवधारणाएं हैं, केवल VBA और WSH "कानूनी" वाले बने हुए हैं। उस समय, बाद को चुना गया था। और वर्तमान प्रशासनिक प्रतिबंधों और मैत्रीपूर्ण तरीकों को प्राप्त करने की इच्छा ने मल्टीप्रोसेसिंग के इस कार्यान्वयन के लिए आवश्यकताओं को निर्धारित किया:

• कोड सामान्य स्क्रिप्ट की तरह एकल फ़ाइल में स्थित है।
• यह WSX x86 / x64 के तहत WMI के बिना, ActiveX का न्यूनतम उपयोग करता है, और केवल अंतर्निहित, कार्यात्मक है।
• पर्याप्त कार्यक्षमता और सुविधा गति और पैटर्न की तुलना में अधिक महत्वपूर्ण हैं।

विशेषताएं:

• लॉन्च की गई स्क्रिप्ट सेवा कार्य करती है। मुख्य कोड को बाद की प्रक्रियाओं में निष्पादित किया जाता है।
• "पूर्ण संस्करण" में, मुख्य कोड को केवल कक्षाओं में रखा जाता है, जिनमें से किसी को भी एक अलग प्रक्रिया में त्वरित किया जा सकता है। प्रत्येक नई प्रक्रिया में, स्क्रिप्ट उपयोगिता वर्ग का एक उदाहरण बनाता है, जो निर्दिष्ट लक्ष्य वर्ग का एक उदाहरण बनाता है, लक्ष्य पद्धति को कॉल करता है, इसकी प्रगति को नियंत्रित करता है, वैश्विक स्क्रिप्ट संदर्भ में चर बनाता है जो निर्मित वर्ग उदाहरणों को संदर्भित करता है। आरंभिक लक्ष्य वर्ग की वस्तु को पिछली स्क्रिप्ट में लौटाया जाता है, और चल रहे स्क्रिप्ट के लक्ष्य वर्ग के आरंभ और पूरा होने की घटनाओं को "संसाधित" किया जाता है।
• "लाइट संस्करण" में, तर्क समान है, केवल उप कोड के अंदर मुख्य कोड रखा गया है, न कि वस्तु को पिछली स्क्रिप्ट में लौटाया गया है, लेकिन लॉन्च किए गए एक के सूचकांक, और कोई ईवेंट हैंडलिंग नहीं है।
• एक नई प्रक्रिया बनाने के लिए, स्क्रिप्ट पुनरावर्ती रूप से लॉन्च होती है, जिसे कॉल विधि के बारे में डेटा पास किया जाता है और नामित तर्क में जानकारी की पहचान करता है।
• कोई एकल निष्पादन स्थान नहीं है, प्रत्येक स्क्रिप्ट अपने डेटा और वस्तुओं को इसके संदर्भ में संग्रहीत करती है। डेटा का आदान-प्रदान करने के लिए, ग्रे मंच पर "स्क्रिप्ट - 2 के बीच डेटा और ऑब्जेक्ट्स का आदान-प्रदान" विषय में वर्णित GlobalContainer का उपयोग करके पहले स्क्रिप्ट की मुझे ऑब्जेक्ट को बाद के लोगों को स्थानांतरित कर दिया जाता है। लक्ष्य पद्धति के पूरा होने के बाद प्रत्येक स्क्रिप्ट को पूर्ण होने की अनुमति की उम्मीद है, इस तरह की देरी आपको इससे प्राप्त जानकारी लेने की अनुमति देती है।
• यह WSH WScript और CScript में समान रूप से कार्य करता है, और ScriptCryptor में संकलित एक exe फ़ाइल के रूप में (हालाँकि class_terminate विधियाँ exe में काम नहीं करती हैं)।

विपक्ष:

• अगले पर फिर से शुरू होने और कई तरीकों से निष्पादित करने में त्रुटि के कारण डिबगिंग कठिनाई। सभी एक ही, यह एक बैसाखी है।
• स्थूलता।
• स्क्रिप्ट का पूरा क्रम पूरी तरह से डेवलपर की जिम्मेदारी है। स्वाभाविक रूप से, एक पूर्ण स्क्रिप्ट की वस्तुओं तक पहुंचते समय एक त्रुटि उत्पन्न होगी।

वास्तविक:

• एक से अधिक प्रक्रियाओं द्वारा उपयोग से विधि को छिपाने के म्यूटेक्स और तंत्र को लागू नहीं किया जाता है।
• अन्य संदर्भों से स्क्रिप्ट चर तक पहुँचते समय विफलताएँ हो सकती हैं।
• जब आप 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 

विवरण:

प्रकाश संस्करण की बहुप्रक्रिया तंत्र विशेषताएं:

सबमिशन लॉन्च करें
यह सेवा एल्गोरिथ्म को लॉन्च करता है, स्क्रिप्ट का निष्पादन हमेशा इसकी कॉल से शुरू होता है।
सबनाम एक स्ट्रिंग है जो नई प्रक्रिया में निष्पादित होने वाले लक्ष्य उप को इंगित करता है।
इस पद्धति के तर्क मुख्य कोड के निष्पादन को शुरू करने के लिए शुरू में शुरू की गई स्क्रिप्ट में ही उपयोग किए जाते हैं।
प्रत्येक नई स्क्रिप्ट में:

• चर स्क्रिप्ट के वैश्विक स्थान में भिन्न घोषित किए जाते हैं:
  दृश्य - पहली स्क्रिप्ट के मेरे उद्देश्य का संदर्भ,
  कंटेनर - GlobalContainer एक्सप्लोरर विंडो से लिंक,
  हस्ताक्षर - GlobalContainer की पहचान करने के लिए उत्पन्न एक स्ट्रिंग,
  पाया, खोया - केवल दृश्य के लिए - निर्मित और पूर्ण स्क्रिप्ट प्रक्रियाओं की गिनती,
  सबनाम - स्ट्रिंग, स्क्रिप्ट का उद्देश्य होता है,
  नौकरियां - मेरे द्वारा दृश्य में बनाई गई स्क्रिप्ट चलाने की वस्तुओं के साथ एक शब्दकोश का लिंक,
  इस स्क्रिप्ट की आईडी - क्रम संख्या - शब्दकोश में कुंजी,
  रिलीज = गलत - लक्ष्य उप के पूरा होने पर, स्क्रिप्ट को पूरा करने के बाद पूरा किया जाएगा,
  State = 4 - वह स्थिति जिसमें यह स्क्रिप्ट स्थित है।
• नौकरियों के शब्दकोश में एक आइटम जोड़ा जाता है।

startproc (सबनाम)
सबनाम - लॉन्च देखें ()।
एक नई स्क्रिप्ट प्रक्रिया बनाता है, इसके लिए प्रतीक्षा करता है कि वह 4 राज्य के लिए तैयार हो जाए (getstate () देखें), जब आप स्क्रिप्ट के Me ऑब्जेक्ट को एक्सेस कर सकते हैं। संख्या लौटाता है - चल स्क्रिप्ट की आईडी।

createproc (सबनाम)
सबनाम - लॉन्च देखें ()।
एक नई स्क्रिप्ट प्रक्रिया बनाता है, बिना प्रतीक्षा किए, एक नंबर देता है - रनिंग स्क्रिप्ट की आईडी। एक लूप में कई प्रक्रियाओं को अतुल्यकालिक रूप से बनाने के लिए उपयोग किया जाता है, प्रत्येक के तैयार होने की प्रतीक्षा किए बिना। इस तरह के एक आवेदन के लिए startproc () का उपयोग करने से अधिक तेजी से।

गेटजॉब (लक्ष्य)
लक्ष्य - संख्या, स्क्रिप्ट आईडी या स्ट्रिंग, निर्मित स्क्रिप्ट के समूह का सबनाम।
मुझे स्क्रिप्ट ऑब्जेक्ट तक पहुंच प्रदान करता है। अगर आईडी नहीं मिली है या स्क्रिप्ट पूरी नहीं हुई है तो स्क्रिप्ट के Me ऑब्जेक्ट का संदर्भ देता है - कुछ भी नहीं।

गेटस्टेट (लक्ष्य)
लक्ष्य - संख्या, स्क्रिप्ट की आईडी।
स्क्रिप्ट की स्थिति निर्धारित करता है। एक नंबर देता है, निष्पादन कदम:
1 प्रक्रिया (नई प्रक्रिया निष्पादित),
4 स्क्रिप्ट चल रही है (आरंभिक),
24 लक्ष्य उप पूरा
28 स्क्रिप्ट जारी की
64 नहीं मिला (होस्ट नहीं मिला), स्क्रिप्ट समाप्त।

गैर जिम्मेदार (लक्ष्य)
लक्ष्य - getstate देखें ()।
मुझे स्क्रिप्ट ऑब्जेक्ट की उपलब्धता निर्धारित करता है (28 के माध्यम से 4)। एक बूलियन मान लौटाता है।

निष्पाद्य आदेश
कमांड एक स्ट्रिंग है जिसमें निर्देश हैं।
वैश्विक स्क्रिप्ट अंतरिक्ष में बयानों को निष्पादित करने के लिए दुभाषिया को आमंत्रित करना।

शेयर varname, मूल्य
varname एक स्ट्रिंग है जिसमें वैरिएबल का नाम है, वैल्यू कोई भी वैल्यू है।
पहली स्क्रिप्ट की वैश्विक जगह में varname नामक एक वैरिएबल की घोषणा करता है, जो दृश्य संपत्ति के रूप में सभी लिपियों के लिए उपलब्ध हो जाता है, चर के लिए मूल्य की सामग्री प्रदान करता है।

newvar varname
varname एक स्ट्रिंग है जिसमें वैरिएबल का नाम होता है।
वैश्विक स्क्रिप्ट स्थान में एक नया चर घोषित करता है।

मुक्त लक्ष्य
लक्ष्य - संख्या, स्क्रिप्ट आईडी या स्ट्रिंग, निर्मित स्क्रिप्ट के समूह का सबनाम। लक्ष्य उप के निष्पादन के बाद स्क्रिप्ट समाप्ति की अनुमति देता है। एक स्क्रिप्ट के साथ या एक समूह के साथ काम करता है।

संयुक्त (लक्ष्य, राज्य, समय समाप्त)
लक्ष्य - मुफ्त देखें (), राज्य - देखें getstate (), टाइमआउट - संख्या, सेकंड में, मिलीसेकंड के साथ।
स्क्रिप्ट के समूह के लिए, राज्य स्क्रिप्ट के आने का इंतजार किया जाता है, प्रतीक्षा तब तक चलती है जब तक कि हर एक राज्य में नहीं पहुंच जाता। प्रतीक्षा समय-सीमा द्वारा सीमित है, टाइमआउट = 0 का अर्थ है असीमित प्रतीक्षा। एक बूलियन मान लौटाता है, सत्य - प्रतीक्षा खत्म हो गई है, झूठी - टाइमआउट। स्क्रिप्ट को सिंक्रनाइज़ करने के लिए डिज़ाइन किया गया। उदाहरण के लिए, यदि आपको स्क्रिप्ट शुरू होने तक प्रतीक्षा करने की आवश्यकता है - 4, स्क्रिप्ट पूरी हो गई है - 64;

बीच में टारगेट, टाइमआउट
लक्ष्य - मुक्त देखें (), टाइमआउट - मान wscript.time, सेकंड में।
नियमित रूप से पूरा करने के लिए स्क्रिप्ट का अनुवाद करता है, class_terminate विधियों के कार्यान्वयन के साथ। यदि स्क्रिप्ट में डायलॉग बॉक्स खोले जाते हैं, तो यह केवल टाइमआउट पॉज़ के बाद पूरा होगा। Class_terminate मेथड्स में डायलॉग बॉक्स को रीपेयर करने से काम पूरा हो जाएगा।

पुश नाम, मान
नाम - स्ट्रिंग, संपत्ति का नाम, मूल्य - कोई भी मूल्य।
नाम के GlobalContainer संपत्ति में मूल्य की सामग्री डालता है।

पॉप (नाम)
नाम - स्ट्रिंग, संपत्ति का नाम।
GlobalContainer से नाम वाली प्रॉपर्टी की सामग्री लौटाता है।

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, aliasname - स्ट्रिंग्स। टारगेट क्लास का नाम और इस क्लास के तरीके का नाम निर्दिष्ट करें, जिसे नई प्रक्रिया में निष्पादित किया जाएगा, क्लास क्लासनाम का एक उदाहरण एलियासनेम (या क्लासनाम अगर अलियासैम एक रिक्त स्ट्रिंग है) नाम से एक चर में रखा जाएगा।
इस पद्धति के तर्क मुख्य कोड के निष्पादन को शुरू करने के लिए शुरू में शुरू की गई स्क्रिप्ट में ही उपयोग किए जाते हैं।
प्रत्येक नई स्क्रिप्ट में:

• चर स्क्रिप्ट के वैश्विक स्थान में भिन्न घोषित किए जाते हैं:
  दृश्य - पहली स्क्रिप्ट के मेरे उद्देश्य का संदर्भ,
  होस्ट - इस स्क्रिप्ट के मल्टीप्रोसेस वर्ग का एक उदाहरण,
  प्रक्रिया - कक्षा नाम के साथ लक्ष्य वर्ग का एक उदाहरण, जिसे इस स्क्रिप्ट की प्रक्रिया बनाते समय पिछली स्क्रिप्ट द्वारा इंगित किया गया था,
  पूर्वज पूर्ववर्ती स्क्रिप्ट के लक्ष्य वर्ग का एक उदाहरण है।
• वैरिएबल को वैश्विक अंतरिक्ष दृश्य और पिछली स्क्रिप्ट में घोषित किया जाता है, जिसका नाम उपनाम है - इस स्क्रिप्ट के लक्ष्य वर्ग की एक आवृत्ति के लिए लिंक।
• होस्ट गुण सेट हैं:
  प्राथमिक - पहली स्क्रिप्ट के मल्टीप्रोसेस वर्ग के उदाहरण के लिए,
  पूर्वज - पिछली स्क्रिप्ट के मल्टीप्रोसेस वर्ग के उदाहरण के लिए,
  जनक - मुझे इस लिपि का उद्देश्य,
  प्रक्रिया - वैश्विक अंतरिक्ष में प्रक्रिया के लिए एक संदर्भ,
  गलत - इस स्क्रिप्ट की गलत वस्तु के संदर्भ में,
  नाम - प्राथमिक में बनाए गए उपनाम के साथ एक शब्दकोश का लिंक
  निष्पादन - प्राथमिक में बनाई गई, चलने वाली प्रक्रियाओं की wshexec वस्तुओं के साथ एक शब्दकोश का लिंक
  मेजबानों - प्राथमिक द्वारा बनाई गई चल रही प्रक्रियाओं के मेजबान वस्तुओं के साथ शब्दकोश में लिंक,
  इस लिपि की क्रम संख्या - शब्दकोशों में कुंजी,
  सहायता - पिछली स्क्रिप्ट के समान,
  इस्प्रिमरी - बूलियन, चाहे यह स्क्रिप्ट मुख्य रूप से चलाया जाता है,
  पाया, खो, सक्रिय - केवल प्राथमिक के लिए - निर्मित, पूर्ण और सक्रिय स्क्रिप्ट प्रक्रियाओं के काउंटर,
  classname, methodname, aliasname - इसमें स्क्रिप्ट का उद्देश्य है,
  परमिट = गलत - सही, असाइन करने के बाद लक्ष्य विधि लॉन्च की जाएगी
  रिलीज = गलत - लक्ष्य विधि के पूरा होने पर, स्क्रिप्ट को पूरा करने के बाद पूरा किया जाएगा,
  State = 4 - वह स्थिति जिसमें यह स्क्रिप्ट स्थित है।
• तत्वों को शब्दकोश नामों , निष्पादन , मेजबानों में जोड़ा जाता है ।

startproc (classname, methodname, aliasname)
classname, methodname, aliasname - लॉन्च देखें ()।
एक नई स्क्रिप्ट प्रक्रिया बनाता है, इसके लिए 12 राज्य में तैयार होने का इंतजार करता है (देखें गेटस्टेट () देखें), लक्ष्य विधि लॉन्च करता है। नई प्रक्रिया में आरंभिक लक्ष्य वर्ग के उदाहरण का संदर्भ देता है।

createproc ( क्लासनाम , मेथडनाम, अलियासनेम)
classname, methodname, aliasname - लॉन्च देखें ()।
बिना प्रतीक्षा किए, एक नई स्क्रिप्ट प्रक्रिया बनाता है, अपनी आईडी लौटाता है। एक लूप में कई प्रक्रियाओं को अतुल्यकालिक रूप से बनाने के लिए उपयोग किया जाता है, प्रत्येक के तैयार होने की प्रतीक्षा किए बिना। इस तरह के एक आवेदन के लिए startproc () का उपयोग करने से अधिक तेजी से।

शुरू (लक्ष्य)
लक्ष्य - संख्या, स्क्रिप्ट आईडी या स्ट्रिंग, निर्मित स्क्रिप्ट के समूह का उपनाम नाम।
राज्य 12 तक पहुंचने के लिए क्रिएटप्रोक () का उपयोग करके बनाई गई स्क्रिप्ट की प्रतीक्षा करता है, लक्ष्य पद्धति के निष्पादन की अनुमति देता है। एक समूह के लिए एक ही उपनाम के साथ स्क्रिप्ट का उपयोग करना संभव है। एक स्क्रिप्ट के लिए, नई प्रक्रिया में आरंभ किए गए लक्ष्य वर्ग के अपने उदाहरण के लिए एक लिंक देता है, स्क्रिप्ट के एक समूह के लिए एक उप-शब्दकोश के लिए एक लिंक देता है जिसमें सभी होस्ट के साथ उपनाम डेटा होता है।

गेटहोस्ट (लक्ष्य)
लक्ष्य - संख्या, स्क्रिप्ट आईडी या स्ट्रिंग, निर्मित स्क्रिप्ट के समूह का उपनाम नाम या स्क्रिप्ट प्रक्रिया ऑब्जेक्ट।
आवश्यक स्क्रिप्ट के मल्टीप्रोसेस वर्ग के मेजबान उदाहरण तक पहुंच प्रदान करता है। एक स्क्रिप्ट के लिए यह अपने होस्ट के लिए एक लिंक देता है, लिपियों के एक समूह के लिए यह एक उप-शब्दकोश के लिए एक लिंक देता है, जिसमें आलियानाम डेटा के साथ सभी होस्ट होते हैं, अगर आईडी नहीं मिली है या स्क्रिप्ट पूरी नहीं हुई है - कुछ भी नहीं।

लक्ष्य (लक्ष्य)
लक्ष्य - संख्या, स्क्रिप्ट की आईडी, या स्क्रिप्ट की प्रक्रिया वस्तु।
प्रक्रिया ऑब्जेक्ट द्वारा पहचानी गई स्क्रिप्ट की आईडी लौटाता है। केवल मौजूदा स्क्रिप्ट के लिए।

गेटस्टेट (लक्ष्य)
लक्ष्य - getid देखें ()।
स्क्रिप्ट की स्थिति निर्धारित करता है। एक नंबर देता है, निष्पादन कदम:
0 नहीं मिला (मेजबान नहीं मिला),
1 प्रक्रिया (नई प्रक्रिया निष्पादित),
4 मेजबान प्रारंभिक
8 लक्ष्य वर्ग आरंभीकृत (प्रक्रिया आरंभीकृत),
12 लक्ष्य वर्ग आरंभीकृत, घटना संसाधित (प्रक्रिया आरंभीकृत संभाला),
16 लक्ष्य विधि का शुभारंभ (प्रक्रिया विधि का शुभारंभ),
20 लक्ष्य विधि पूरी (प्रक्रिया पूरी),
24 टारगेट मेथड पूरा, इवेंट प्रोसेस्ड (प्रोसेस हैंडेड),
28 स्क्रिप्ट जारी की
64 स्क्रिप्ट पूरी (समाप्त)।

गैर जिम्मेदार (लक्ष्य)
लक्ष्य - getid देखें ()।
होस्ट स्क्रिप्ट ऑब्जेक्ट की उपलब्धता निर्धारित करता है (28 के माध्यम से 4)। एक बूलियन मान लौटाता है।

हैंडहेल्डर हैंडलबर्न, वार्सकटी
handlername - स्ट्रिंग, घटना का नाम, varsqty - संख्या, पास किए गए तर्कों की संख्या।
वैश्विक स्थान में उप इवेंट हैंडलर बनाता है जिसमें ईवेंट नाम हैंडलबर्न होता है, इसे बनाए गए प्रक्रिया ऑब्जेक्ट में समान नाम की विधि के साथ जोड़ता है। जब कोई घटना होती है, तो हैंडलर कॉल को प्रोसेस करने के लिए रीडायरेक्ट करेगा। हस्त रेखा ()।

निष्पाद्य आदेश
कमांड एक स्ट्रिंग है जिसमें निर्देश हैं।
वैश्विक स्क्रिप्ट अंतरिक्ष में बयानों को निष्पादित करने के लिए दुभाषिया को आमंत्रित करना।

newvar varname
varname एक स्ट्रिंग है जिसमें वैरिएबल का नाम होता है।
वैश्विक स्क्रिप्ट स्थान में एक नया चर घोषित करता है।

मुक्त लक्ष्य
लक्ष्य - gethost देखें ()।
लक्ष्य पद्धति को निष्पादित करने के बाद स्क्रिप्ट समाप्ति की अनुमति देता है। एक स्क्रिप्ट के साथ या एक समूह के साथ काम करता है।

संयुक्त (लक्ष्य, राज्य, समय समाप्त)
लक्ष्य - gethost देखें (), स्थिति - getstate (), टाइमआउट - संख्या, सेकंड में, मिलीसेकंड के साथ देखें।
स्क्रिप्ट के समूह के लिए, राज्य स्क्रिप्ट के आने का इंतजार किया जाता है, प्रतीक्षा तब तक चलती है जब तक कि हर एक राज्य में नहीं पहुंच जाता। प्रतीक्षा समय-सीमा द्वारा सीमित है, टाइमआउट = 0 का अर्थ है असीमित प्रतीक्षा। एक बूलियन मान लौटाता है, सत्य - प्रतीक्षा खत्म हो गई है, झूठी - टाइमआउट। स्क्रिप्ट को सिंक्रनाइज़ करने के लिए डिज़ाइन किया गया। उदाहरण के लिए, यदि आपको प्रक्रिया तक प्रतीक्षा करने की आवश्यकता है - 8 ऑब्जेक्ट बनाया गया है, तो स्क्रिप्ट पूरी हो गई है - 64;

बीच में टारगेट, टाइमआउट
लक्ष्य - gethost देखें (), टाइमआउट - wscript.time के लिए मूल्य, सेकंड में।
नियमित रूप से पूरा करने के लिए स्क्रिप्ट का अनुवाद करता है, class_terminate विधियों के कार्यान्वयन के साथ। यदि स्क्रिप्ट में डायलॉग बॉक्स खोले जाते हैं, तो यह केवल टाइमआउट पॉज़ के बाद पूरा होगा। Class_terminate मेथड्स में डायलॉग बॉक्स को रीपेयर करने से काम पूरा हो जाएगा।

किकआउट लक्ष्य
लक्ष्य - gethost देखें ()।
Wshexec.terminate का उपयोग करके OS स्तर पर स्क्रिप्ट प्रक्रिया को समाप्त करता है। प्रत्येक स्क्रिप्ट के लिए 2 सेकंड तक लंबी निष्पादन संभव है। एक स्क्रिप्ट के साथ या एक समूह के साथ काम करता है।

लक्ष्य को समाप्त करें
लक्ष्य - gethost देखें ()।
स्क्रिप्ट को पूरा करता है, पहले इंटरप्ट का उपयोग करता है, फिर यदि आवश्यक हो तो किकआउट करें।

पुश नाम, मान
नाम - स्ट्रिंग, संपत्ति का नाम, मूल्य - कोई भी मूल्य।
नाम के GlobalContainer संपत्ति में मूल्य की सामग्री डालता है।

पॉप (नाम)
नाम - स्ट्रिंग, संपत्ति का नाम।
GlobalContainer से नाम वाली प्रॉपर्टी की सामग्री लौटाता है।

इस स्क्रिप्ट के लक्ष्य वर्ग में रखी जाने वाली विधियाँ, लक्ष्य वर्ग के आरंभ की घटनाओं के लिए संचालकों के रूप में और चालू स्क्रिप्ट के लक्ष्य विधि के निष्पादन के लिए रखी जा सकती हैं:

<aliasname> _ oninitialized (स्रोत)
source - स्क्रिप्ट का होस्ट ऑब्जेक्ट जिसे विधि को विधि कहा जाता है, उसका उपनाम नाम विधि नाम में निहित है। विधि को रनिंग स्क्रिप्ट के लक्ष्य वर्ग के प्रारंभिककरण के बाद कहा जाता है (राज्य = 8)।

<aliasname> _ oncompleted (source)
source - स्क्रिप्ट का होस्ट ऑब्जेक्ट जिसे विधि को विधि कहा जाता है, उसका उपनाम नाम विधि नाम में निहित है। रनिंग स्क्रिप्ट (राज्य = 20) की लक्ष्य पद्धति को निष्पादित करने के बाद विधि को कहा जाता है।

एक उदाहरण:

Mproclite और mproc के लिए, एक अमूर्त समस्या का एक उदाहरण प्रदर्शित किया जाता है: स्ट्रिंग अक्षरों से प्रत्येक वर्ण के लिए, अलग-अलग प्रक्रियाएं बनाई जाती हैं, प्रत्येक लूप में अपना चरित्र बफर में डालता है, जैसा कि यह भरता है, एक और प्रक्रिया कंसोल को "शब्द" 3 शब्द प्रदर्शित करती है। WScript के लिए, कंसोल IE विंडो द्वारा सिम्युलेटेड है। रास्ते के साथ, शुरू और बंद ओएस प्रक्रियाओं को प्रदर्शित किया जाता है (WMI उदाहरण में उपयोग किया जाता है, लेकिन यह कार्य करने के लिए तंत्र के लिए आवश्यक नहीं है)।
डिबग के दौरान, मैंने कुछ टिप्पणियों और टिप्पणियों को संचित किया है, जिसे मैं साझा करूंगा यदि कोई मांग है - तथ्य यह है कि उन्हें एक पठनीय रूप में लाने में समय लगेगा। रचनात्मक आलोचना का स्वागत है।