Вверх ↑
Ответов: 1536
Рейтинг: 176
#1: 2014-09-29 19:36:55 ЛС | профиль | цитата
Не трогая линки, хотя нет, убрал пару реально не нужных, сократил до 68.
Add(MainForm,11700628,868,287)
{
Width=468
Height=428
Color=-16777206
Caption="Активация точки доступа на Win7-8"
BorderStyle=3
Position=1
}
Add(WinExec,6219169,392,84)
{
FileName="netsh.exe"
Point(onConsoleResult)
Point(doConsoleExec)
Point(doConsoleInput)
link(onConsoleResult,5379116:doCharset,[])
}
Add(Button,6005586,77,77)
{
Left=10
Top=65
Width=115
Caption="Активировать"
Data=String(wlan show drivers
)
link(onClick,3600352:doEvent1,[])
AddHint(49,-39,123,13,Data)
}
Add(StrList,11744469,651,154)
{
Point(doAppend)
link(Str,12763459:Var2,[])
}
Add(StrCat,16266715,651,98)
{
Point(doClear)
link(Str1,12763459:Var3,[(657,88)(688,88)(688,138)])
}
Add(IndexToChanel,10461488,490,91)
{
Count=4
Point(Index)
PColor(onEvent3,11184640)
PColor(onEvent4,16733525)
link(onEvent2,16266715:doStrCat,[])
link(onEvent3,16617202:doStrCat,[(562,111)(562,286)])
link(onEvent4,13109187:doStrCat,[(550,118)(550,489)])
link(Index,10705445:Value,[])
}
Add(Sleep,6646708,168,154)
{
Delay=1000000
link(onSleep,11744469:doAdd,[])
}
Add(Hub,3600352,119,77)
{
OutCount=6
link(onEvent1,6123443:In,[(147,83)(147,69)])
link(onEvent2,6300896:In,[])
link(onEvent3,6219169:doConsoleExec,[(382,97)(382,104)])
link(onEvent4,14818068:doEvent1,[])
link(onEvent5,6646708:doSleepMks,[(157,111)(157,160)])
link(onEvent6,5050069:doEnum,[(147,118)(147,223)])
}
Add(ArrayEnum,5050069,665,217)
{
link(onItem,7237050:doSearch,[])
link(Array,11744469:Array,[])
}
Add(Position,7237050,707,217)
{
Target="Поддержка размещенной сети : да"
ZeroPos=0
link(onSearch,12070650:doCompare,[])
}
Add(If_else,12070650,749,217)
{
Type=5
Op2=Integer(0)
link(onTrue,4101454:In,[(789,223)(789,202)])
link(onFalse,7636749:doMessage,[])
}
Add(Message,7636749,798,224)
{
Message="Режим Ad Hoc
не подерживается устройством"
Caption="Внимание"
Icon=1
link(onMessage,3816504:doWork1,[(844,230)])
}
Add(Edit,16688476,427,266)
{
Left=10
Top=35
Width=115
Color=9943511
Font=[MS Sans Serif,8,1,0,204]
Text="AccessPoint"
}
Add(Edit,14881905,469,266)
{
Left=140
Top=35
Width=115
Color=9943511
Font=[MS Sans Serif,8,1,0,204]
Text="12345678"
}
Add(FormatStr,7425775,427,329)
{
Mask="wlan set hostednetwork mode=allow ssid=%1 key=%2
"
link(onFString,16563119:In,[])
link(Str1,16688476:Text,[])
link(Str2,14881905:Text,[(440,317)(475,317)])
}
Add(LineBreak,6993171,294,329)
{
Caption="Ad Hoc True"
Color=65280
link(Out,2756013:doEvent1,[])
Primary=[4101454,504,-133]
}
Add(Memory,10705445,490,42)
{
@Hint=#1:0|
Default=Integer(0)
AddHint(4,-28,21,13,Default)
}
Add(Charset,5379116,441,91)
{
link(onCharset,10461488:doEvent,[])
}
Add(Hub,2756013,385,329)
{
link(onEvent1,7425775:doString,[])
link(onEvent2,9029421:doSleepMks,[(416,342)(416,370)])
}
Add(Hub,14579149,364,105)
{
InCount=4
OutCount=1
link(onEvent1,6219169:doConsoleInput,[])
}
Add(StrList,12072662,651,336)
{
Point(doAppend)
link(Str,11035551:Var2,[])
}
Add(ArrayEnum,16759533,665,399)
{
link(onItem,9776073:doSearch,[])
link(Array,12072662:Array,[])
}
Add(Position,9776073,707,399)
{
Target="Режим размещенной сети разрешен в службе беспроводной сети."
ZeroPos=0
link(onSearch,14363962:doCompare,[])
}
Add(If_else,14363962,749,399)
{
Type=5
Op2=Integer(0)
link(onTrue,9770037:In,[(789,405)(789,391)])
link(onFalse,6663686:doMessage,[])
}
Add(Sleep,9029421,427,364)
{
Delay=1000000
link(onSleep,10666590:doEvent1,[])
}
Add(Memo,11567765,651,553)
{
Top=98
Width=462
Height=305
Align=4
Color=12887718
Font=[Courier New,10,1,0,204]
link(Str,13924219:Var2,[])
}
Add(StrCat,16617202,651,280)
{
Point(doClear)
link(Str1,11035551:Var3,[(657,272)(688,272)(688,320)])
}
Add(Hub,10666590,609,364)
{
link(onEvent1,12072662:doAdd,[(637,370)(637,342)])
link(onEvent2,16759533:doEnum,[(638,377)(638,405)])
}
Add(Message,6663686,798,406)
{
Message="Режим размещенной сети не разрешен
в службе беспроводной сети."
Caption="Внимание"
Icon=1
link(onMessage,3816504:doWork3,[(844,412)])
}
Add(LineBreak,3435766,322,462)
{
Caption="start"
Color=65280
link(Out,10422088:doEvent1,[])
Primary=[9770037,476,-77]
}
Add(Hub,10422088,378,462)
{
InCount=2
link(onEvent1,639877:doData,[])
link(onEvent2,13589667:doWork2,[])
}
Add(DoData,639877,427,462)
{
Data=String(wlan start hostednetwork
)
link(onEventData,8887569:doWork2,[])
AddHint(-318,42,160,13,Data)
}
Add(LineBreak,1368488,203,140)
{
Caption="start stop"
Color=16776960
link(Out,14579149:doEvent3,[(342,146)(342,125)])
Primary=[15259451,280,322]
}
Add(LineBreak,16360709,231,119)
{
Caption="set"
Color=16776960
link(Out,12741127:doEvent1,[])
Primary=[16563119,245,210]
}
Add(Sleep,9692105,525,553)
{
Delay=1000000
link(onSleep,11567765:doAdd,[])
}
Add(StrCat,13109187,637,483)
{
Point(doClear)
link(Str1,13924219:Var3,[(643,472)(675,472)(675,523)])
}
Add(GetDataEx,13924219,651,518)
{
Angle=3
link(Data,13109187:Result,[(643,523)])
}
Add(Hub,14818068,273,98)
{
PColor(onEvent1,16711935)
link(onEvent1,821953:doWork2,[(301,104)(301,55)])
link(onEvent2,14579149:doEvent1,[])
}
Add(Hub,12741127,273,119)
{
PColor(onEvent1,16711935)
link(onEvent1,821953:doWork3,[(309,125)(309,62)])
link(onEvent2,14579149:doEvent2,[(332,132)(332,118)])
}
Add(Hub,14071389,273,168)
{
PColor(onEvent1,16711935)
link(onEvent1,821953:doWork4,[(318,174)(318,69)])
link(onEvent2,14579149:doEvent4,[(351,181)(351,132)])
}
Add(LineBreak,16740683,574,133)
{
Caption="res"
Color=65535
link(Out,858737:doEvent1,[])
Primary=[6123443,-413,-70]
}
Add(Hub,858737,616,133)
{
link(onEvent1,16266715:doClear,[(640,139)(640,111)])
link(onEvent2,11744469:doClear,[(640,146)(640,167)])
}
Add(LineBreak,2762734,567,336)
{
Caption="res"
Color=65535
link(Out,3177672:doEvent1,[])
Primary=[6300896,-406,-252]
}
Add(Hub,3177672,609,336)
{
link(onEvent1,16617202:doClear,[(630,342)(630,293)])
link(onEvent2,12072662:doClear,[])
}
Add(LineBreak,15427441,224,168)
{
Caption="show"
Color=16776960
link(Out,14071389:doEvent1,[])
Primary=[803136,343,350]
}
Add(Hub,14562688,483,511)
{
InCount=2
OutCount=3
link(onEvent1,6218138:doEvent1,[(505,517)(505,496)])
link(onEvent2,10788525:doData,[])
link(onEvent3,9692105:doSleepMks,[(511,531)(511,559)])
}
Add(DoData,10788525,525,518)
{
Data=String(wlan show hostednetwork
)
link(onEventData,803136:In,[])
AddHint(-417,50,162,13,Data)
}
Add(Hub,6218138,595,490)
{
link(onEvent1,13109187:doClear,[])
link(onEvent2,11567765:doClear,[(618,503)(618,566)])
}
Add(Sleep,11946400,427,511)
{
Delay=1000000
link(onSleep,14562688:doEvent1,[])
}
Add(Button,2580659,287,420)
{
Left=340
Top=15
Width=115
Caption="Отключить"
Data=String(wlan stop hostednetwork
)
link(onClick,9175496:doEvent1,[])
AddHint(-172,8,160,13,Data)
}
Add(Button,6221524,287,539)
{
Left=340
Top=65
Width=115
Caption="Обновить инф."
link(onClick,14562688:doEvent2,[(469,545)(469,524)])
}
Add(Label,7097164,329,266)
{
Left=10
Top=10
Width=117
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="Имя точки доступа"
}
Add(Label,6706889,371,266)
{
Left=145
Top=10
Width=48
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="Пароль"
}
Add(Button,13983185,287,476)
{
Left=340
Top=40
Width=115
Caption="Включить"
link(onClick,10422088:doEvent2,[(365,482)(365,475)])
}
Add(HubEx,8887569,469,462)
{
link(onEvent,15259451:In,[])
}
Add(Hub,9175496,378,420)
{
link(onEvent1,8887569:doWork1,[(473,426)])
link(onEvent2,13589667:doWork1,[(410,433)])
}
Add(ChanelToIndex,821953,392,42)
{
@Hint=#5:1-2-3|
Count=4
link(onIndex,10705445:doValue,[])
AddHint(-3,-28,39,13,@Hint)
}
Add(HubEx,13589667,406,469)
{
Angle=1
link(onEvent,11946400:doSleepMks,[(410,517)])
}
Add(HubEx,3816504,840,308)
{
link(onEvent,11700628:doClose,[])
}
Add(GetDataEx,12763459,651,133)
{
link(Data,16266715:Result,[])
}
Add(GetDataEx,11035551,651,315)
{
link(Data,16617202:Result,[])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

1
Голосовали:MAV