Add(MainForm,2953706,770,217)
{
Width=468
Height=428
Color=-16777206
Caption="Активация точки доступа на Win7-8"
BorderStyle=3
Position=1
}
Add(WinExec,6219169,371,91)
{
FileName="netsh.exe"
Point(onConsoleResult)
Point(doConsoleExec)
Point(doConsoleInput)
link(onConsoleResult,5379116:doCharset,[])
}
Add(Button,6005586,35,91)
{
Left=10
Top=65
Width=115
Caption="Активировать"
link(onClick,3600352:doEvent1,[])
}
Add(StrList,11744469,588,98)
{
Point(doAppend)
}
Add(IndexToChanel,10461488,455,98)
{
Count=4
Point(Index)
link(onEvent2,11744469:doAdd,[(537,111)(537,104)])
link(onEvent3,12072662:doAdd,[(507,118)(507,230)])
link(onEvent4,11567765:doAdd,[(497,125)(497,356)])
link(Index,10705445:Value,[])
}
Add(Sleep,6646708,539,175)
{
Delay=1000000
link(onSleep,7237050:doSearch,[])
}
Add(Hub,3600352,84,91)
{
OutCount=3
link(onEvent1,1527041:doEvent1,[(112,97)(112,76)])
link(onEvent2,6219169:doConsoleExec,[(362,104)(362,111)])
link(onEvent3,6864503:doEvent1,[])
}
Add(Position,7237050,588,175)
{
Target="Поддержка размещенной сети : да"
ZeroPos=0
link(onSearch,12070650:doCompare,[])
link(Str,11744469:Text,[])
}
Add(If_else,12070650,630,175)
{
Type=5
Op2=Integer(0)
link(onTrue,2756013:doEvent1,[])
link(onFalse,7636749:doMessage,[])
}
Add(Message,7636749,679,182)
{
Message="Режим Ad Hoc
не подерживается устройством"
Caption="Внимание"
Icon=1
link(onMessage,7158416:doWork1,[(746,188)])
}
Add(Edit,16688476,819,98)
{
Left=10
Top=35
Width=115
Color=9943511
Font=[MS Sans Serif,8,1,0,204]
Text="AccessPoint"
}
Add(Edit,14881905,861,98)
{
Left=140
Top=35
Width=115
Color=9943511
Font=[MS Sans Serif,8,1,0,204]
Text="12345678"
}
Add(FormatStr,7425775,819,175)
{
Mask="wlan set hostednetwork mode=allow ssid=%1 key=%2
"
Point(FString)
link(onFString,16563119:In,[])
link(Str1,16688476:Text,[])
link(Str2,14881905:Text,[(832,149)(867,149)])
}
Add(Memory,10705445,455,49)
{
@Hint=#1:0|
Default=Integer(0)
AddHint(0,-31,21,13,Default)
}
Add(Charset,5379116,413,98)
{
link(onCharset,10461488:doEvent,[])
}
Add(DoData,6958730,168,105)
{
Data=String(wlan show drivers
)
link(onEventData,14818068:doEvent1,[])
AddHint(44,-22,123,13,Data)
}
Add(Hub,6864503,126,105)
{
OutCount=3
link(onEvent1,6958730:doData,[])
link(onEvent3,6646708:doSleepMks,[(157,125)(157,181)])
}
Add(Hub,2756013,777,175)
{
link(onEvent1,7425775:doString,[])
link(onEvent2,9029421:doSleepMks,[(813,188)(813,341)(518,341)(518,293)])
}
Add(Hub,14579149,343,112)
{
InCount=4
link(onEvent1,6219169:doConsoleInput,[])
}
Add(StrList,12072662,595,224)
{
Point(doAppend)
}
Add(Position,9776073,595,287)
{
Target="Режим размещенной сети разрешен в службе беспроводной сети."
ZeroPos=0
link(onSearch,14363962:doCompare,[])
link(Str,12072662:Text,[])
}
Add(If_else,14363962,651,287)
{
Type=5
Op2=Integer(0)
link(onTrue,9770037:In,[])
link(onFalse,6663686:doMessage,[])
}
Add(Sleep,9029421,532,287)
{
Delay=1000000
link(onSleep,9776073:doSearch,[])
}
Add(Memo,11567765,602,350)
{
Top=98
Width=462
Height=305
Align=4
Color=12887718
Font=[Courier New,10,1,0,204]
}
Add(Message,6663686,700,294)
{
Message="Режим размещенной сети не разрешен
в службе беспроводной сети."
Caption="Внимание"
Icon=1
link(onMessage,7158416:doWork3,[(746,300)])
}
Add(LineBreak,3469855,28,301)
{
Caption="start"
link(Out,10422088:doEvent1,[])
Primary=[9770037,672,-14]
}
Add(Hub,10422088,77,301)
{
InCount=2
link(onEvent1,639877:doData,[])
link(onEvent2,8606189:doEvent2,[(102,314)(102,370)])
}
Add(DoData,639877,147,301)
{
Data=String(wlan start hostednetwork
)
link(onEventData,8887569:doWork2,[])
AddHint(-72,-26,160,13,Data)
}
Add(LineBreak,16174055,224,126)
{
Caption="set"
link(Out,12741127:doEvent1,[])
Primary=[16563119,644,49]
}
Add(Hub,14818068,266,105)
{
link(onEvent1,821953:doWork2,[(301,111)(301,62)])
link(onEvent2,14579149:doEvent1,[])
}
Add(Hub,12741127,266,126)
{
link(onEvent1,821953:doWork3,[(307,132)(307,69)])
link(onEvent2,14579149:doEvent2,[(321,139)(321,125)])
}
Add(Hub,14071389,266,147)
{
link(onEvent1,821953:doWork4,[(313,153)(313,76)])
link(onEvent2,14579149:doEvent3,[(329,160)(329,132)])
}
Add(LineBreak,7287398,532,105)
{
Caption="res"
link(Out,11744469:doClear,[])
Primary=[6123443,-364,-42]
}
Add(LineBreak,10594020,532,231)
{
Caption="res"
link(Out,12072662:doClear,[])
Primary=[6300896,-364,-147]
}
Add(Hub,1527041,126,70)
{
link(onEvent1,6123443:In,[(154,76)(154,69)])
link(onEvent2,6300896:In,[(152,83)(152,90)])
}
Add(LineBreak,13255024,217,147)
{
Caption="show"
link(Out,14071389:doEvent1,[])
Primary=[803136,77,217]
}
Add(Hub,14562688,210,357)
{
InCount=2
OutCount=3
link(onEvent1,11567765:doClear,[])
link(onEvent2,10788525:doData,[])
}
Add(DoData,10788525,252,364)
{
Data=String(wlan show hostednetwork
)
link(onEventData,803136:In,[])
AddHint(-73,-27,162,13,Data)
}
Add(Sleep,11946400,147,357)
{
Delay=1000000
link(onSleep,14562688:doEvent1,[])
}
Add(Button,2580659,28,238)
{
Left=340
Top=15
Width=115
Caption="Отключить"
link(onClick,9175496:doEvent1,[])
}
Add(Button,6221524,28,385)
{
Left=340
Top=65
Width=115
Caption="Обновить инф."
link(onClick,14562688:doEvent2,[(199,391)(199,370)])
}
Add(Label,7097164,773,98)
{
Left=10
Top=10
Width=185
Height=17
Color=-16777206
Font=[MS Sans Serif,8,1,0,1]
Caption="Имя точки доступа Пароль"
}
Add(Hub,8606189,119,357)
{
InCount=2
OutCount=1
link(onEvent1,11946400:doSleepMks,[])
}
Add(DoData,12243493,147,238)
{
Data=String(wlan stop hostednetwork
)
link(onEventData,8887569:doWork1,[(200,244)])
AddHint(-119,-27,160,13,Data)
}
Add(Button,13983185,28,322)
{
Left=340
Top=40
Width=115
Caption="Включить"
link(onClick,10422088:doEvent2,[(68,328)(68,314)])
}
Add(HubEx,8887569,196,301)
{
link(onEvent,14579149:doEvent4,[(333,307)(333,139)])
}
Add(Hub,9175496,77,238)
{
link(onEvent1,12243493:doData,[])
link(onEvent2,8606189:doEvent1,[(109,251)(109,363)])
}
Add(ChanelToIndex,821953,371,49)
{
@Hint=#5:1-2-3|
Count=4
link(onIndex,10705445:doValue,[])
AddHint(-3,-28,39,13,@Hint)
}
Add(HubEx,7158416,742,238)
{
link(onEvent,2953706:doClose,[])
}
Или так:
Add(MainForm,2953706,861,217)
{
Width=468
Height=428
Color=-16777206
Caption="Активация точки доступа на Win7-8"
BorderStyle=3
Position=1
}
Add(WinExec,6219169,371,91)
{
FileName="netsh.exe"
Point(onConsoleResult)
Point(doConsoleExec)
Point(doConsoleInput)
link(onConsoleResult,5379116:doCharset,[])
}
Add(Button,6005586,28,91)
{
Left=10
Top=65
Width=115
Caption="Активировать"
link(onClick,3600352:doEvent1,[])
}
Add(StrList,11744469,679,105)
{
Point(doAppend)
}
Add(IndexToChanel,10461488,546,98)
{
Count=4
Point(Index)
link(onEvent2,11744469:doAdd,[])
link(onEvent3,12072662:doAdd,[(598,118)(598,230)])
link(onEvent4,11567765:doAdd,[(588,125)(588,335)])
link(Index,11589030:Var2,[])
}
Add(Hub,3600352,84,91)
{
OutCount=3
link(onEvent1,1527041:doEvent1,[(112,97)(112,76)])
link(onEvent2,6219169:doConsoleExec,[(362,104)(362,111)])
link(onEvent3,6958730:doData,[])
}
Add(Position,7237050,679,175)
{
Target="Поддержка размещенной сети : да"
ZeroPos=0
link(onSearch,12070650:doCompare,[])
link(Str,11744469:Text,[])
}
Add(If_else,12070650,742,175)
{
Type=5
Op2=Integer(0)
link(onTrue,7425775:doString,[])
link(onFalse,7636749:doMessage,[])
}
Add(Message,7636749,791,182)
{
Message="Режим Ad Hoc
не подерживается устройством"
Caption="Внимание"
Icon=1
link(onMessage,7158416:doWork1,[(837,188)])
}
Add(Edit,16688476,861,119)
{
Left=10
Top=35
Width=115
Color=9943511
Font=[MS Sans Serif,8,1,0,204]
Text="AccessPoint"
}
Add(Edit,14881905,903,119)
{
Left=140
Top=35
Width=115
Color=9943511
Font=[MS Sans Serif,8,1,0,204]
Text="12345678"
}
Add(FormatStr,7425775,861,175)
{
Mask="wlan set hostednetwork mode=allow ssid=%1 key=%2
"
Point(FString)
link(onFString,16563119:In,[])
link(Str1,16688476:Text,[])
link(Str2,14881905:Text,[(874,162)(909,162)])
}
Add(Memory,10705445,546,49)
{
@Hint=#1:0|
Default=Integer(0)
AddHint(0,-31,21,13,Default)
}
Add(Charset,5379116,413,98)
{
link(onCharset,10461488:doEvent,[])
}
Add(DoData,6958730,154,105)
{
Data=String(wlan show drivers
)
link(onEventData,14818068:doEvent1,[])
AddHint(56,-85,123,13,Data)
}
Add(Hub,14579149,343,112)
{
InCount=4
link(onEvent1,6219169:doConsoleInput,[])
link(onEvent2,6614472:doTimer,[(366,125)(366,167)])
}
Add(StrList,12072662,686,224)
{
Point(doAppend)
}
Add(Position,9776073,686,287)
{
Target="Режим размещенной сети разрешен в службе беспроводной сети."
ZeroPos=0
link(onSearch,14363962:doCompare,[])
link(Str,12072662:Text,[])
}
Add(If_else,14363962,742,287)
{
Type=5
Op2=Integer(0)
link(onTrue,9770037:In,[])
link(onFalse,6663686:doMessage,[])
}
Add(Memo,11567765,686,329)
{
Top=98
Width=462
Height=305
Align=4
Color=12887718
Font=[Courier New,10,1,0,204]
}
Add(Message,6663686,791,294)
{
Message="Режим размещенной сети не разрешен
в службе беспроводной сети."
Caption="Внимание"
Icon=1
link(onMessage,7158416:doWork3,[(837,300)])
}
Add(LineBreak,3469855,28,231)
{
Caption="start"
link(Out,10422088:doEvent1,[])
Primary=[9770037,763,56]
}
Add(Hub,10422088,77,231)
{
InCount=2
link(onEvent1,639877:doData,[])
link(onEvent2,16215588:doWork2,[])
}
Add(DoData,639877,147,231)
{
Data=String(wlan start hostednetwork
)
link(onEventData,8887569:doWork2,[])
AddHint(1,-24,160,13,Data)
}
Add(LineBreak,16174055,224,126)
{
Caption="set"
link(Out,12741127:doEvent1,[])
Primary=[16563119,714,49]
}
Add(Hub,14818068,266,105)
{
link(onEvent1,821953:doWork2,[(301,111)(301,62)])
link(onEvent2,14579149:doEvent1,[])
}
Add(Hub,12741127,266,126)
{
link(onEvent1,821953:doWork3,[(307,132)(307,69)])
link(onEvent2,14579149:doEvent2,[(321,139)(321,125)])
}
Add(Hub,14071389,266,147)
{
link(onEvent1,821953:doWork4,[(313,153)(313,76)])
link(onEvent2,14579149:doEvent3,[(329,160)(329,132)])
}
Add(LineBreak,7287398,623,112)
{
Caption="res"
link(Out,11744469:doClear,[])
Primary=[6123443,-455,-49]
}
Add(LineBreak,10594020,623,231)
{
Caption="res"
link(Out,12072662:doClear,[])
Primary=[6300896,-455,-154]
}
Add(Hub,1527041,126,70)
{
link(onEvent1,6123443:In,[(154,76)(154,69)])
link(onEvent2,6300896:In,[])
}
Add(LineBreak,13255024,217,147)
{
Caption="show"
link(Out,14071389:doEvent1,[])
Primary=[803136,42,196]
}
Add(Hub,14562688,175,336)
{
InCount=2
OutCount=3
link(onEvent1,11567765:doClear,[])
link(onEvent2,10788525:doData,[])
}
Add(DoData,10788525,217,343)
{
Data=String(wlan show hostednetwork
)
link(onEventData,803136:In,[])
AddHint(-31,-33,162,13,Data)
}
Add(Button,2580659,28,168)
{
Left=340
Top=15
Width=115
Caption="Отключить"
Data=String(wlan stop hostednetwork
)
link(onClick,9175496:doEvent1,[])
}
Add(Button,6221524,28,343)
{
Left=340
Top=65
Width=115
Caption="Обновить инф."
link(onClick,14562688:doEvent2,[])
}
Add(Label,7097164,815,119)
{
Left=10
Top=10
Width=185
Height=17
Color=-16777206
Font=[MS Sans Serif,8,1,0,1]
Caption="Имя точки доступа Пароль"
}
Add(Button,13983185,28,252)
{
Left=340
Top=40
Width=115
Caption="Включить"
link(onClick,10422088:doEvent2,[(68,258)(68,244)])
}
Add(HubEx,8887569,196,231)
{
link(onEvent,14579149:doEvent4,[(333,237)(333,139)])
}
Add(Hub,9175496,77,168)
{
link(onEvent1,8887569:doWork1,[(200,174)])
link(onEvent2,16215588:doWork1,[(109,181)])
}
Add(ChanelToIndex,821953,371,49)
{
@Hint=#5:1-2-3|
Count=4
link(onIndex,10705445:doValue,[])
AddHint(-3,-28,39,13,@Hint)
}
Add(HubEx,7158416,833,238)
{
link(onEvent,2953706:doClose,[])
}
Add(HubEx,16215588,105,238)
{
Angle=1
link(onEvent,14562688:doEvent1,[(109,342)])
}
Add(Timer,6614472,392,161)
{
Interval=500
Enable=1
OverCall=1
link(onTimer,1828910:doEvent1,[])
}
Add(IndexToChanel,2486483,497,168)
{
Count=4
Point(Index)
link(onEvent2,7237050:doSearch,[])
link(onEvent3,9776073:doSearch,[(566,188)(566,293)])
link(Index,11589030:Var1,[(503,89)])
}
Add(Hub,1828910,462,161)
{
link(onEvent1,6614472:doStop,[(485,167)(485,156)(380,156)(380,174)])
link(onEvent2,2486483:doEvent,[])
}
Add(GetDataEx,11589030,546,84)
{
link(Data,10705445:Value,[])
}