code_13067.txt
------------ Дoбавленo в 10.35:
изменил компонент все в норме стало. спасибо за помошь. Прошу не пугаться схеме
Add(MainForm,2953706,21,105)
{
Width=494
Height=466
link(onCreate,8113887:doTimer,[(55,125)(55,237)])
}
Add(WinExec,145987,273,70)
{
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,6785127:doAdd,[(335,83)(335,76)])
}
Add(ArrayRW,3184780,420,112)
{
Index=String(3)
link(onRead,8712480:doTimer,[(464,118)(464,122)(310,122)(310,160)])
link(Array,6785127:Array,[(426,114)(384,114)])
}
Add(RichEdit,6785127,364,70)
{
Left=10
Top=40
Width=325
Height=30
link(onChange,3184780:doRead,[(408,76)(408,118)])
}
Add(Timer,8712480,315,154)
{
Interval=2
Enable=1
AutoStop=1
link(onTimer,925003:doEvent1,[(355,160)(355,181)])
}
Add(StrPart,7420452,420,168)
{
Char=":"
link(onSplit,16572876:doValue,[])
link(Str,3184780:Item,[])
}
Add(Memory,16572876,469,168)
{
link(onData,10332459:doData,[(513,174)(513,202)(457,202)(457,216)])
}
Add(Case,3316984,525,224)
{
Value=String( 4 RUNNING )
link(onNextCase,4724922:doCase,[])
link(onTrue,1657844:doData,[(618,237)(618,272)])
}
Add(Hub,925003,364,175)
{
OutCount=3
link(onEvent1,7420452:doSplit,[(399,181)(399,174)])
link(onEvent2,6785127:doClear,[(390,188)(390,136)(352,136)(352,83)])
}
Add(DoData,10332459,469,210)
{
Data=String()
link(onEventData,3316984:doCase,[(513,216)(513,230)])
link(Data,16572876:Value,[])
}
Add(RichEdit,3450848,185,17)
{
Left=10
Top=5
Width=325
Height=35
Strings=#15:sc query wscsvc|21:sc query SharedAccess|17:sc query wuauserv|
}
Add(Counter,7160333,126,133)
{
Min=-1
Default=-1
Point(Max)
link(onNext,14219299:doRead,[(180,139)(180,146)])
link(Max,6265251:Data1,[(132,117)(167,117)])
}
Add(ArrayRW,14219299,203,140)
{
link(onRead,145987:doConsoleExec,[(268,146)(268,90)])
link(Array,3450848:Array,[(209,98)(205,98)])
link(Index,9295508:Data1,[(216,128)(181,128)(181,233)(146,233)])
}
Add(GetData,6265251,161,70)
{
link(Data,3450848:Count,[(167,62)(198,62)])
}
Add(GetData,9295508,140,189)
{
link(Data,7160333:Count,[(146,177)(132,177)])
}
Add(Timer,8113887,56,231)
{
Interval=300
Enable=1
AutoStop=3
link(onTimer,7160333:doNext,[(114,237)(114,139)])
}
Add(Case,4724922,644,224)
{
Value=String( 1 STOPPED )
link(onTrue,2079529:doData,[])
}
Add(DoData,1657844,623,266)
{
Data=String(=Запущена)
link(onEventData,5171686:doEvent1,[])
}
Add(ArrayRW,604350,679,392)
{
link(onRead,4016721:doValue,[(779,398)(779,300)])
link(Array,8221968:Array,[(685,380)(622,380)])
link(Index,8432539:Count,[(692,380)(646,380)(646,422)(601,422)])
}
Add(RichEdit,12669427,837,361)
{
Left=15
Top=135
Width=325
Height=90
}
Add(GetData,3971033,707,434)
{
link(Data,4016721:Value,[(713,380)(853,380)])
}
Add(DoData,2079529,714,231)
{
Data=String(=Остановлена)
link(onEventData,5944715:doEvent1,[])
}
Add(Counter,8432539,595,378)
{
Min=-1
Default=-1
Point(Max)
link(onNext,604350:doRead,[(653,384)(653,398)])
}
Add(Hub,5944715,777,231)
{
InCount=2
OutCount=3
link(onEvent1,4222396:doValue,[])
link(onEvent2,6993736:doEvent2,[(803,244)(803,300)(492,300)(492,356)])
link(onEvent3,805510:doStrCat,[(795,251)(795,496)])
}
Add(Memory,4222396,805,231)
{
}
Add(Hub,6993736,511,343)
{
InCount=2
link(onEvent1,8432539:doNext,[(560,349)(560,384)])
}
Add(Hub,5171686,679,266)
{
InCount=2
OutCount=3
link(onEvent1,11879792:doValue,[])
link(onEvent2,6993736:doEvent1,[(705,279)(705,314)(492,314)(492,349)])
link(onEvent3,12564326:doStrCat,[(717,286)(717,496)])
}
Add(Memory,11879792,714,266)
{
}
Add(StrCat,12564326,742,490)
{
link(onStrCat,11811021:doEvent1,[(804,496)(804,440)])
link(Str1,3971033:Data1,[(748,478)(713,478)])
link(Str2,11879792:Value,[(755,394)(720,394)])
}
Add(StrCat,805510,798,490)
{
link(onStrCat,11811021:doEvent2,[(832,496)(832,447)])
link(Str1,3971033:Data2,[(804,478)(720,478)])
link(Str2,4222396:Value,[])
}
Add(Hub,11811021,833,434)
{
InCount=2
link(onEvent1,12669427:doAdd,[(859,440)(859,404)(825,404)(825,367)])
}
Add(Memory,4016721,847,294)
{
}
Add(StrList,8221968,602,322)
{
Strings=#30:Центр обеспечения безопасности|10:Брендмауэр|14:Автообновление|
}