HiAsm
HiAsm
Вверх ↑
ФорумыСхемыСоздание WiFi точки доступа на Win8 ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 1304
Рейтинг: 405
#1: 2014-09-29 00:54:07 ЛС | профиль | цитата
С удивлением обнаружил что в Win8 нет возможности создать точку доступа для связи двух ноутбуков по WiFi, хотя в ручную с помощью netsh.exe это возможно.
wifi_accesspoint2.sha
ps: возможно на слабых машинах необходимо будет увеличить задержки.
карма: 3

0
файлы: 1wifi_accesspoint2.sha [8.6KB] [541]
Ответов: 16884
Рейтинг: 1239
#2: 2014-09-29 16:22:15 ЛС | профиль | цитата
opt_1.png
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1opt_1.png [7.3KB] [1489]
Голосовали:MAV
Ответов: 1304
Рейтинг: 405
#3: 2014-09-29 17:01:01 ЛС | профиль | цитата
Tad, ну да логично, что то не додумал, видать время было позднее .
карма: 3

0
Ответов: 16884
Рейтинг: 1239
#4: 2014-09-29 18:17:23 ЛС | профиль | цитата
[flood]При беглом просмотре насчитал десяток лишних компонент.[/flood]
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1304
Рейтинг: 405
#5: 2014-09-29 19:35:30 ЛС | профиль | цитата
Tad, некоторые элементы как DoData вставлены к примеру для наглядности, не стал прятать данные в кнопки. Ну а так особо лишних и не замечаю , если не трудно посмотрите на перезалитую схему в первом посте.
карма: 3

0
Ответов: 1536
Рейтинг: 176
#6: 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
Ответов: 1304
Рейтинг: 405
#7: 2014-09-29 21:36:04 ЛС | профиль | цитата
ser_davkin, была такая песенка "ятебе конечно верю ......", а посмотреть хочется .
------------ Дoбавленo в 21.36:
ser_davkin, спасибо за цветовую линковку, но насчёт лишних элементов получилось заковырка. Помещение данных в кнопку "Активировать" привело к тому что не запустив netsh.exe уже пытаемся передать ей команду "wlan show drivers" ну и соответственно крах всей логике. Поэтому я в исходной схеме оставил на первый взгляд лишние DoData. Компоновка у тебя лучше. Поэтому как найду способ подключать автоматически интернет с к созданной точке доступа нарисую новую красивую схему .
карма: 3

0
Ответов: 16884
Рейтинг: 1239
#8: 2014-09-30 12:29:29 ЛС | профиль | цитата
MAV, вот это проверь (перезалил). 

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,[])
}
54 компонента. ------------ Дoбавленo в 12.29:
Или так: 

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,[])
}
(52)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:MAV
Ответов: 1304
Рейтинг: 405
#9: 2014-09-30 22:19:39 ЛС | профиль | цитата
Tad, спасибо за потраченное время на оптимизацию схемы, наверное мне стоило выложить не как схему а в раздел между делом . Слипы действительно можно заменить на один таймер переделав логику или оставив как в схеме 52 эл. (изначально у меня они расплодились из за разных задержек), а вот насчёт StrCat думаю стоит оставить так как WinExec выдаёт иногда строчки с лишними символами "окончание сроки", притом в разных местах при повторных запусках.
223344.png
тест схема
code_34379.txt
------------ Дoбавленo в 22.19:
Обе схемы заработали нормально, правда вторая взбрыкнула при первом запуске(мал интервал Timer-ра).
карма: 3

0
файлы: 2223344.png [7.1KB] [1054], code_34379.txt [1.1KB] [489]
Ответов: 16884
Рейтинг: 1239
#10: 2014-09-30 23:41:26 ЛС | профиль | цитата
MAV, на тебе третий, самый экономный вариант. 48 компонент.
code_34380.txt
MAV писал(а):
StrCat думаю стоит оставить
Не стоит. В последнем варианте не имеют никакого значения никакие лишние символы.
------------ Дoбавленo в 23.41:
Я бы и от таймера отказался. Там есть волшебное слово конца передачи. по StrList.onChange анализировать последнюю строку в StrList-е.
Если она что-то вроде netsh>(не запомнил точно) и прозвучала два раза значит передача закончена.
После этого можно анализировать текст на POS().
Не люблю я ни таймеров ни слипов.
В винде - это ненадёжная техника - у меня Avast! обновляется 10-15 сек в это время комп прекращает любые другие действия.

Завтра, если буду посвободней, попытаюсь осуществить.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_34380.txt [6.2KB] [418]
Ответов: 1304
Рейтинг: 405
#11: 2014-10-01 00:10:06 ЛС | профиль | цитата
Tad писал(а):
netsh>

Да похоже на вошебное слово , утилита сообщает я готова к бою.
карма: 3

0
Ответов: 498
Рейтинг: 39
#12: 2014-10-01 13:17:07 ЛС | профиль | цитата
Это называется "Virtual WiFi". Существует похожая программа - Connectify.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#13: 2014-10-01 16:08:09 ЛС | профиль | цитата
MAV, а ведь получается программа - только для русской локальной версии Windows.
Нужен другой подход.



карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1mav_2.png [8.6KB] [402]
Ответов: 1304
Рейтинг: 405
#14: 2014-10-01 20:48:39 ЛС | профиль | цитата
Tad, первое что пришло в голову взять netsh.exe(en) и запускать за место оригинала, но увы этот вариант не прошёл . Следующий вариант убрать проверки тем самым превратить программу в батник. И третий вариант получить информацию об аппаратной поддержке Ad Hoc другим способом а далее запускать поэтапно без проверок. Буду искать решение по третьему варианту.
Muz-Tv, лёгких путей мы не ищем
------------ Дoбавленo в 20.48:
хотя уходить от netsh.exe в пределах данной программы не хочется, тем более что есть способ расшаривания Интернет подключения через созданную точку доступа, соответственно всё в пределах возможностей netsh.exe ну и конечно будут ещё проверки результаты которых надо интерпритировать.
карма: 3

0
Разработчик
Ответов: 26255
Рейтинг: 2140
#15: 2014-10-01 22:43:30 ЛС | профиль | цитата
MAV, а зафиг писать прогу, когда вроде в винде есть все средства для создания ADHoc -- http://mult.mobi/content/kak-nastroit-ad-hoc-soedinenie-v-win7
карма: 22

0
ФорумыСхемыСоздание WiFi точки доступа на Win8 ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика