Вверх ↑
Ответов: 8887
Рейтинг: 823
#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