Add(MainForm,9425885,203,280)
{
link(onCreate,3173145:doOperation,[])
}
Add(StrList,5491812,441,203)
{
Strings=#16:3000;notepad.exe|16:6000;mspaint.exe|
}
Add(ArrayRW,3111282,455,287)
{
Point(Count)
link(onRead,8509480:doSplit,[])
link(Array,5491812:Array,[])
}
Add(Timer,10070692,588,287)
{
Interval=1
Enable=1
AutoStop=1
Point(doInterval)
link(onTimer,16452214:doTimer,[])
}
Add(StrPart,8509480,504,287)
{
Char=";"
link(onSplit,5476655:doValue,[(543,293)(543,251)])
link(onPart,5156882:doEvent1,[])
}
Add(Hub,5156882,546,294)
{
OutCount=3
link(onEvent1,10070692:doStop,[])
link(onEvent2,10070692:doInterval,[])
link(onEvent3,10070692:doTimer,[(588,293)])
}
Add(Hub,4062538,343,294)
{
link(onEvent1,2143230:doMax,[])
link(onEvent2,12645077:doWork3,[(384,307)])
}
Add(LineBreak,6636619,448,259)
{
Type=1
link(Data,5491812:Count,[])
Primary=[14580627,-147,7]
}
Add(CounterEx,2143230,399,287)
{
Min=1
Max=1
Default=-1
Point(doMax)
Point(onThroughMax)
link(onNext,3111282:doRead,[])
link(onThroughMax,9425885:doClose,[(443,300)(443,335)(191,335)(191,307)])
}
Add(Math,3173145,301,294)
{
OpType=1
Op2=1
link(onResult,4062538:doEvent1,[])
link(Op1,14580627:Var,[])
}
Add(WinExec,8217348,686,287)
{
FileName="cmd.exe /C"
Mode=0
link(onExec,12645077:doWork1,[(739,293)(739,189)(384,189)])
link(Params,5476655:Value,[])
}
Add(Memory,5476655,693,245)
{
Default=String( )
}
Add(Timer,16452214,637,287)
{
Interval=1
Enable=1
AutoStop=1
link(onTimer,8217348:doExec,[])
}
Add(HubEx,12645077,380,287)
{
link(onEvent,2143230:doNext,[])
}
Ответов: 3889
Рейтинг: 362
|
|||
user_asm, Предвосхищая вопросы: два таймера потому, что иногда замечен глюк - ветка после таймера не срабатывала, предположительно из-за изменения параметров таймера самим собой, в общем, цепочка из двух таймеров работает без проблем, посему такой индусский код решено оставить в том виде, как есть. [flood]Интересующиеся могут удалить второй таймер и сообщить о результатах и своих соображениях по поводу причин.[/flood] Второй вопрос, возможно, был бы "зачем запускать cmd.exe". Чтобы гарантированно что-то запустилось и не оборвалась цепочка запусков при недействительной строчке или строке с проблемами, кроме того, такой трюк даёт прямой доступ к командам интерпретатора.
|
|||
карма: 1 |
| ||
Голосовали: | user_asm |