Костыль
Доброго всем времени суток. Предлагаю костыль, реализующий механизм многопоточности (а точнее «многопроцессности») для WSH VBScript. Не рекомендуется лицам с аллергией на индокод.
Первая мысль о потенциальных удобствах многопоточности пришла однажды во время решения на добровольных началах относительно несложной задачи по обработке и визуализации информации. И, поскольку установка IDE навроде Visual Studio и наш Helpdesk — понятия несовместимые, из «легальных» оставались только VBA и WSH. В то время был выбран последний. А действующие административные ограничения и желание получить дружественные методы продиктовали требования к данной реализации многопроцессности:
- Код расположен в одном файле, как обычный сценарий.
- Использует минимум ActiveX, и только встроенных, работоспособен без WMI, под WSH x86/x64.
- Достаточная функциональность и удобство важнее быстродействия и паттернов.
Особенности:
- Запущенный скрипт выполняет служебную функцию. Основной код выполняется в последующих процессах.
- В «полной версии» основной код размещается только в классах, экземпляр любого из которых можно создать в отдельном процессе. В каждом новом процессе скрипт создает экземпляр служебного класса, который создает экземпляр указанного целевого класса, вызывает целевой метод, контролирует его ход, создает в глобальном контексте скриптов переменные, ссылающиеся на созданные экземпляры классов. В предшествующий скрипт возвращается объект инициализированного целевого класса, и «обрабатываются» события инициализации и завершения целевого класса запущенного скрипта.
- В «легкой версии» логика аналогична, только основной код размещается внутри sub’ов, предшествующему скрипту возвращается не объект, а индекс запущенного, и нет обработки событий.
- Для создания нового процесса скрипт рекурсивно запускает самого себя, передав данные о вызываемом методе и идентифицирующую информацию в именованном аргументе.
- Единого пространства исполнения нет, каждый скрипт хранит свои данные и объекты в своем контексте. Для обмена данными объект Me первого скрипта передается в последующие с применением GlobalContainer, описанным в теме «обмен данными и объектами между скриптами — 2» на Сером форуме. Каждый скрипт после завершения целевого метода ожидает разрешения на завершение, такая задержка позволяет забрать из него полученную информацию.
- Функционирует одинаково в WSH WScript и CScript, и в виде скомпилированного в ScriptCryptor exe-файла (правда, в exe не работают методы class_terminate).
Минусы:
- Сложность в отладке из-за использования во многих методах on error resume next и execute. Все ж таки это костыль.
- Громоздкость.
- Порядок завершения скриптов полностью в ответственности разработчика. Естественно, при обращении к объектам завершенного скрипта возникнет ошибка.
Актуально:
- Не реализованы мьютексы и механизмы залочивания метода от использования более чем одним процессом.
- Возможны сбои при одновременном доступе к переменным скрипта из контекстов других.
- Окно проводника остается в памяти при закрытии окна консоли 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
Описание:
Функции механизма многопроцессности легкой версии:
launch subname
Запускает служебный алгоритм, выполнение скрипта всегда начинается с его вызова.
subname – строка, указывает целевой sub, который будет выполнен в новом процессе.
Аргументы этого метода используются только в первично запущенном скрипте для начала выполнения основного кода.
В каждом новом скрипте:
- Объявляются переменные в глобальном пространстве запущенного скрипта:
scene – ссылка на объект Me первого скрипта,
container – ссылка на окно проводника GlobalContainer,
signature – строка, сгенерирована для идентификации GlobalContainer,
found, lost – только для scene – счетчики созданных и завершенных процессов скриптов,
subname – строка, содержит цель скрипта,
jobs – ссылка на словарь с объектами Me запущенных скриптов, созданный в scene,
id – порядковый номер данного скрипта — ключ в словаре,
release = Ложь — после завершения целевого sub’а скрипт будет завершен после присвоения Истина,
state = 4 – состояние, в котором находится данный скрипт. - Добавляется элемент в словарь jobs.
startproc(subname)
subname – см. launch().
Создает новый процесс скрипта, ожидает его готовности до состояния 4 (см. getstate()), когда можно обращаться к объекту Me скрипта. Возвращает число — id запущенного скрипта.
createproc(subname)
subname – см. launch().
Создает новый процесс скрипта, не ожидая, возвращает число — id запущенного скрипта. Используется для асинхронного создания нескольких процессов в цикле, без ожидания готовности каждого. Заметно быстрее по сравнению с использованием startproc() для такого применения.
getjob(target)
target – число, id скрипта или строка, имя subname группы созданных скриптов.
Обеспечивает доступ к объекту Me скрипта. Возвращает ссылку на объект Me скрипта, если id не найден или скрипт завершен – Nothing.
getstate(target)
target – число, id скрипта.
Определяет состояние скрипта. Возвращает число, этап выполнения:
1 процесс создан (new process exec),
4 скрипт запущен (initialized),
24 целевой sub выполнен (sub completed),
28 скрипт освобожден (released),
64 не найден (host not found), скрипт завершен (terminated).
isresponsive(target)
target — см. getstate().
Определяет доступность объекта Me скрипта (состояния с 4 по 28). Возвращает булево значение.
executecommand command
command — строка, содержащая инструкции.
Вызов интерпретатора для выполнения операторов в глобальном пространстве скрипта.
share varname, value
varname — строка, содержащая имя переменной, value – любое значение.
Объявляет в глобальном пространстве первого скрипта переменную с именем varname, которая становится доступна всем скриптам в виде свойства scene, присваивает переменной содержимое value.
newvar varname
varname — строка, содержащая имя переменной.
Объявляет новую переменную в глобальном пространстве скрипта.
free target
target – число, id скрипта или строка, имя subname группы созданных скриптов. Разрешает завершение скрипта после выполнения целевого sub’а. Работает с одним скриптом или с группой.
joint(target, state, timeout)
target — см. free(), state — см. getstate(), timeout – число, в секундах, с миллисекундами.
Ожидает наступления состояния скрипта state, для группы скриптов ожидание длится, пока каждый не достигнет state. Ожидание ограничено таймаутом, timeout = 0 означает неограниченное ожидание. Возвращает булево значение, Истина – ожидание закончено, Ложь – таймаут. Предназначен для синхронизации работы скриптов. Например, если необходимо дождаться запуска скрипта — 4, полного завершения скрипта — 64;
interrupt target, timeout
target — см. free(), timeout – значение для wscript.timeout, в секундах.
Переводит скрипт к штатному завершению, с выполнением методов class_terminate. Если в скрипте были открыты диалоговые окна, он перейдет к завершению только после паузы timeout. Повторное появление диалогового окна в методах class_terminate остановит завершение.
push name, value
name – строка, имя свойства, value – любое значение.
Помещает в свойство GlobalContainer с именем name содержимое value.
pop(name)
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
Описание:
Методы класса multiprocess:
launch classname, methodname, aliasname
Запускает служебный алгоритм, выполнение скрипта всегда начинается с его вызова.
classname, methodname, aliasname – строки. Указывают целевой класс classname и метод этого класса methodname, который будет выполнен в новом процессе, экземпляр класса classname будет помещен в переменную с именем aliasname (или classname, если aliasname – пустая строка).
Аргументы этого метода используются только в первично запущенном скрипте для начала выполнения основного кода.
В каждом новом скрипте:
- Объявляются переменные в глобальном пространстве запущенного скрипта:
scene – ссылка на объект Me первого скрипта,
host – экземпляр класса multiprocess данного скрипта,
process – экземпляр целевого класса с именем classname, которое было указано предшествующим скриптом при создании процесса данного скрипта,
ancestor – экземпляр целевого класса предшествующего скрипта. - Объявляются переменные в глобальном пространстве scene и предшествующего скрипта, с именем aliasname – ссылки на экземпляр целевого класса данного скрипта.
- Задаются свойства host:
primary – ссылка на экземпляр класса multiprocess первого скрипта,
ancestor – ссылка на экземпляр класса multiprocess предшествующего скрипта,
parent – объект Me данного скрипта,
process – ссылка на process в глобальном пространстве,
err – ссылка на объект err данного скрипта,
names – ссылка на словарь с aliasname, созданный в primary,
execs – ссылка на словарь с объектами wshexec запущенных процессов, созданный в primary,
hosts – ссылка на словарь с объектами host запущенных процессов, созданный primary,
id – порядковый номер данного скрипта — ключ в словарях,
aid – то же, предшествующего скрипта,
isprimary – булево, является ли данный скрипт первично запущенным,
found, lost, active – только для primary – счетчики созданных, завершенных и активных процессов скриптов,
classname, methodname, aliasname – содержат цель скрипта,
permit = Ложь — целевой метод будет запущен после присвоения Истина,
release = Ложь — после завершения целевого метода скрипт будет завершен после присвоения Истина,
state = 4 – состояние, в котором находится данный скрипт. - Добавляются элементы в словари names, execs, hosts.
startproc(classname, methodname, aliasname)
classname, methodname, aliasname – см. launch().
Создает новый процесс скрипта, ожидает его готовности до состояния 12 (см. getstate()), запускает целевой метод. Возвращает ссылку на инициализированный в новом процессе экземпляр целевого класса.
createproc(classname, methodname, aliasname)
classname, methodname, aliasname – см. launch().
Создает новый процесс скрипта, не ожидая, возвращает его id. Используется для асинхронного создания нескольких процессов в цикле, без ожидания готовности каждого. Заметно быстрее по сравнению с использованием startproc() для такого применения.
start(target)
target – число, id скрипта, или строка, имя aliasname группы созданных скриптов.
Ожидает готовности скрипта, созданного с использованием createproc(), до состояния 12, разрешает выполнение целевого метода. Возможно использование для группы скриптов, имеющих одинаковый aliasname. Для одного скрипта возвращает ссылку на его инициализированный в новом процессе экземпляр целевого класса, для группы скриптов возвращает ссылку на субсловарь, содержащий все host с данными aliasname.
gethost(target)
target – число, id скрипта или строка, имя aliasname группы созданных скриптов, или объект process скрипта.
Обеспечивает доступ к экземпляру host класса multiprocess требуемого скрипта. Для одного скрипта возвращает ссылку на его host, для группы скриптов возвращает ссылку на субсловарь, содержащий все host с данными aliasname, если id не найден или скрипт завершен – Nothing.
getid(target)
target – число, id скрипта, или объект process скрипта.
Возвращает id срипта, определенное по объекту process. Только для действующих скриптов.
getstate(target)
target — см. getid().
Определяет состояние скрипта. Возвращает число, этап выполнения:
0 не найден (host not found),
1 процесс создан (new process exec),
4 host инициализирован (host initialized),
8 целевой класс инициализирован (process initialized),
12 целевой класс инициализирован, событие обработано (process initialized handled),
16 целевой метод запущен (process method launched),
20 целевой метод выполнен (process completed),
24 целевой метод выполнен, событие обработано (process completed handled),
28 скрипт освобожден (released),
64 скрипт завершен (terminated).
isresponsive(target)
target — см. getid().
Определяет доступность объекта host скрипта (состояния с 4 по 28). Возвращает булево значение.
assignhandler handlername, varsqty
handlername — строка, имя события, varsqty — число, количество передаваемых аргументов.
Создает в глобальном пространстве хэндлер события sub с именем события handlername, связывет его с одноименным методом в созданном объекте process. При наступлении события, хэндлер перенаправит вызов в process. handlername().
executecommand command
command — строка, содержащая инструкции.
Вызов интерпретатора для выполнения операторов в глобальном пространстве скрипта.
newvar varname
varname — строка, содержащая имя переменной.
Объявляет новую переменную в глобальном пространстве скрипта.
free target
target — см. gethost().
Разрешает завершение скрипта после выполнения целевого метода. Работает с одним скриптом или с группой.
joint(target, state, timeout)
target — см. gethost(), state — см. getstate(), timeout – число, в секундах, с миллисекундами.
Ожидает наступления состояния скрипта state, для группы скриптов ожидание длится, пока каждый не достигнет state. Ожидание ограничено таймаутом, timeout = 0 означает неограниченное ожидание. Возвращает булево значение, Истина – ожидание закончено, Ложь – таймаут. Предназначен для синхронизации работы скриптов. Например, если необходимо дождаться создания объекта process — 8, полного завершения скрипта — 64;
interrupt target, timeout
target — см. gethost(), timeout – значение для wscript.timeout, в секундах.
Переводит скрипт к штатному завершению, с выполнением методов class_terminate. Если в скрипте были открыты диалоговые окна, он перейдет к завершению только после паузы timeout. Повторное появление диалогового окна в методах class_terminate остановит завершение.
kickout target
target — см. gethost().
Завершает процесс скрипта на уровне ОС, используя wshexec.terminate. Возможно длительное выполнение, до 2 сек для каждого скрипта. Работает с одним скриптом или с группой.
terminate target
target — см. gethost().
Завершает скрипт, использует сначала interrupt, затем при необходимости kickout.
push name, value
name – строка, имя свойства, value – любое значение.
Помещает в свойство GlobalContainer с именем name содержимое value.
pop(name)
name – строка, имя свойства.
Возвращает из GlobalContainer содержимое свойства с именем name.
Методы, которые можно разместить в целевом классе данного скрипта в качестве хэндлеров событий инициализации целевого класса и выполнения целевого метода запущенного скрипта:
<aliasname>_ oninitialized(source)
source – передаваемый в метод объект host скрипта, вызвавшего метод, его aliasname содержится в имени метода. Метод вызывается после инициализации целевого класса запущенного скрипта (state = 8).
<aliasname>_ oncompleted(source)
source — передаваемый в метод объект host скрипта, вызвавшего метод, его aliasname содержится в имени метода. Метод вызывается после выполнения целевого метода запущенного скрипта (state = 20).
Пример:
Для mproclite и mproc демонстрируется работа на примере абстрактной задачи: для каждого символа из строки letters создаются отдельные процессы, каждый в цикле помещает свой символ в буфер, по мере заполнения которого другой процесс выводит по 3 «слова» в консоль. Для WScript консоль сымитирована окном IE. Попутно выводятся запущенные и остановленные процессы ОС (в примере используется WMI, но для функционирования механизма он не обязателен).
В ходе дебага у меня накопились некоторые наблюдения и комменты, коими я поделюсь, если будет спрос — дело в том, что потребуется время, чтобы привести их в читабельный вид. Конструктивная критика приветствуется.
This entry passed through the Full-Text RSS service — if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers. Five Filters recommends: 'You Say What You Like, Because They Like What You Say' - http://www.medialens.org/index.php/alerts/alert-archive/alerts-2013/731-you-say-what-you-like-because-they-like-what-you-say.html
Комментариев нет:
Отправить комментарий