Показать сообщение отдельно
Старый 24.04.2017, 02:25   #697
shumaz
Старший Пользователь
 
Регистрация: 27.08.2015
Регион: Украина
Сообщений: 289
shumaz is on a distinguished road
По умолчанию

Цитата:
Сообщение от 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...иногда после выхода из сна просит войти в профиль как будто был сделан "выход из системы"
хз куда копать?
shumaz вне форума   Ответить с цитированием