Что нового

Скрипт выключения беспроводного подключения

Manowar

Новичок
Сообщения
2
Репутация
0
Помогите новичку написать скрипт для отключения подключения к сети WIFI с названием: "Help". И последующем подключением к этой сети.

Код:
HotkeySet("{F5}","Disconnect")
HotkeySet("{F6}","Connect")

не знаю как выглядит функция для подключения и отключения.
 
Автор
M

Manowar

Новичок
Сообщения
2
Репутация
0
Код:
;~ #include <_my.au3>

Global $aNetConnect
    Global $objShell = ObjCreate("Shell.Application")

Func _GetNetConn()

$CSIDL_NetworkConnections = 0x31
$objNS = $objShell.Namespace($CSIDL_NetworkConnections)
$CountNS = $objNS.Items.Count
;1 -Состояние (вкл\выкл) 2 - наличие Свойства 3 -объект вкл\выкл 4 - объект свойства 5 - controlID Вкл 6 - controlID Свойства 7- controlID menu
Dim $aNetCon[$CountNS][8]
$n = 0

For $objItem in $objNS.Items

    $aNetCon[$n][0] = $objItem
;~  ConsoleWrite("NetConnect= " & $aNetCon[$n][0].Name & @CRLF)
    For $objVerbs in $aNetCon[$n][0].verbs
        If $objVerbs.Name = "Вкл&ючить" OR $objVerbs.Name = "Подкл&ючить" Then
            $aNetCon[$n][1] = False
            $aNetCon[$n][3] = $objVerbs
        ElseIf $objVerbs.Name = "Отклю&чить" OR $objVerbs.Name = "&Отключить" Then
            $aNetCon[$n][1] = True
            $aNetCon[$n][3] = $objVerbs
        ElseIf $objVerbs.Name = "Сво&йства" Then
            $aNetCon[$n][2] = True
            $aNetCon[$n][4] = $objVerbs
        EndIf
;~      ConsoleWrite("     verbs= " & $objVerbs.Name & @CRLF)
    Next
    If $aNetCon[$n][2] <> True Then
        $aNetCon[$n][2] = False
    EndIf
    $n += 1

Next

$aNetConnect = $aNetCon

EndFunc


    _GetNetConn()
For $i = 0 to UBound( $aNetConnect )-1
;~  msb ( $aNetConnect[$i][0].Name )
    If $aNetConnect[$i][0].Name = 'Беспроводное сетевое соединение' Then

        If $aNetConnect[$i][1] = True Then
            $aNetConnect[$i][3].DoIt  ; Отключить
                tti('OFF', 500)
        Else
            $aNetConnect[$i][3].DoIt  ; Включить
                tti('ON', 500)
        EndIf

    EndIf
Next

Func tti($message, $time)
        ToolTip(@CR&" "&@CR&" "& "" &@CR&" "&@CR&" ", Default, Default, $message, 1, 5)
        sleep($time)
    ToolTip("")
EndFunc


Нашел этот код, работает так- запускаю скрипт инет вырубается и скрипт выключается. Снова запускаю скрипт и инет начинает работать. Теперь как сделать что бы это чудо не выключалось, а работало от кнопок? Помогите пожалуйста)
И надо что бы отключало конкретное Wifi подключение, а не все сразу.
 
Верх