24.04.2017, 02:25
|
#697
|
Старший Пользователь
Регистрация: 27.08.2015
Регион: Украина
Сообщений: 289
|
Цитата:
Сообщение от seriousstas
Такой вариант для Wi-Fi :
Код:
#NoTrayIcon
#RequireAdmin
#pragma compile(Icon, "C:\Program Files (x86)\AutoIt3\Icons\MyAutoIt3_Yellow.ico")
;#include <WindowsConstants.au3>
#include<Process.au3>
$sInterface = 'Беспроводная сеть'
Sleep(1000)
If @OSArch = "X86" Then
$ProgramFileDir = "C:\Program Files"
Else
$ProgramFileDir = "C:\Program Files (x86)"
endif
Sleep(1000)
; Запуск BlueSoleilCS
$hdll = DllOpen("C:\Windows\System32\BsSDK.dll")
DllCall($hdll, "none", "Btsdk_Init")
DllCall($hdll, "none", "Btsdk_StartBluetooth")
DllCall($hdll, "none", "Btsdk_Done")
DllClose($hdll)
Sleep(5000)
$var = Ping("www.google.com",250)
If @error Then
; Перезапуск BlueSoleilCS
Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
Sleep(1000)
; Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
; Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
$hdll = DllOpen("C:\Windows\System32\BsSDK.dll")
DllCall($hdll, "none", "Btsdk_Init")
DllCall($hdll, "none", "Btsdk_StartBluetooth")
DllCall($hdll, "none", "Btsdk_Done")
DllClose($hdll)
Sleep(3000)
; Перезапуск Wi-Fi
_RunDOS('netsh interface set interface "Беспроводная сеть" DISABLE') ; выкл "Local Area Connection"
Sleep(1000)
_RunDOS('netsh interface set interface "Беспроводная сеть" ENABLE') ; вкл "Local Area Connection"
EndIf
Запуск БТ , проверяем пинг, если нет И-нета - перезапуск ..
|
недопонял... отличается чем от этого =>
если это лучше реализация, то аналочично добавить в планировщик?
так же появилась проблема: win 8.1...иногда после выхода из сна просит войти в профиль как будто был сделан "выход из системы"
хз куда копать?
|
|
|