[seriousstas]

Сообщение от shumaz

перечитал по несколько раз ваши "рецепты" по Блюсоил и так и не пойму всё таки вариант приемливей всего?

Такой вариант для 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

Запуск БТ , проверяем пинг, если нет И-нета - перезапуск ..