Вверх ↑
Ответов: 8945
Рейтинг: 824
#1: 2009-10-09 20:46:28 ЛС | профиль | цитата
sle, put this program in the Startup and extended his gratitude to sla8a code_15194.txt
[b]sla8a[/b], Thanks (и от меня спасибо) :D

Add(MainForm,4193759,294,84)
{
 Width=209
 Height=27
 Caption="Stop firewall"
 link(onCreate,16726186:doEvent1,[])
}
Add(ServiceTools,2106636,427,91)
{
 Name="wscsvc"
 FileName="C:\WINDOWS\System32\svchost.exe -k netsvcs"
 Point(StatusService)
}
Add(Timer,10324767,371,98)
{
 Interval=3000
 Enable=1
 link(onTimer,2106636:doStop,[])
}
Add(Timer,1625862,371,140)
{
 Interval=4000
 Enable=1
 link(onTimer,8406930:doCompare,[])
}
Add(Hub,16726186,343,98)
{
 link(onEvent1,10324767:doTimer,[])
 link(onEvent2,1625862:doTimer,[(364,111)(364,146)])
}
Add(If_else,8406930,427,140)
{
 Op2=Integer(0)
 link(onTrue,4193759:doClose,[(471,146)(471,182)(282,182)(282,111)])
 link(Op1,2106636:StatusService,[])
}

карма: 19

0