Небольшие правки (для своих нужд и для стабильной работы) скриптов в шапке темы и полезные ссылки .
Схема работает очень стабильно уже долгое время - без единого сбоя ..
Расшифровка блоков SUSPEND.exe :
Пауза при обычном запуске (без сна) :
Sleep(1500) - Задержка 1.5 секунды
; Перезапуск служб BlueSoleil при обычном старте
Рестарт служб BT BlueSoleil для стабильности при выходе из Сна и Гибернации
;Циклический перезапуск Wi-Fi:
если нет И-нета - рестарт - позволяет быстро сединится, например с мобильным 3G . В паре с
Tasker - соединяется мгновенно .
;Циклическая проверка прозрачности иконки полноэкранного шаблона FSReal
подробнее :
http://pccar.ru/showpost.php?p=344768&postcount=216
; Вход в спящий режим (Команды)
Закрываем Икар :
WinClose("iCar DS")
и всё что нужно ещё ...
; Выход из спящего режима(Команды)
If (ProcessWaitClose... - Здесь перепроверяем наличие процессов(окон) - если есть - закрываем
WinClose - закрыть программу
ProcessClose- закрыть принудительно программу (процесс)
Запуск Икара :
ShellExecute("C:\Program Files (x86)\TipTop software\iCar DS\iCarDS.exe")
и все, что нужно ещё ..
Паузы
Sleep -можно изменить под себя
Если что-то не нужно , то просто удаляем блоками :
Код:
; Перезапуск BlueSoleilCS
Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
Sleep(200)
или
Код:
; Перезапуск Wi-Fi (с проверкой)
$var = Ping("www.google.com",250)
If @error Then
_RunDOS('netsh interface set interface "Беспроводная сеть" DISABLE') ; выкл "Local Area Connection"
Sleep(2000)
_RunDOS('netsh interface set interface "Беспроводная сеть" ENABLE') ; вкл "Local Area Connection"
или (здесь два действия внутри одного цикла)
Код:
;Начало цикла
While 1
;Циклический перезапуск Wi-Fi:
$connect = _GetNetworkConnect()
If Not $connect Then
_RunDOS('netsh interface set interface "Беспроводная сеть" DISABLE') ; выкл "Local Area Connection"
Sleep(5000)
_RunDOS('netsh interface set interface "Беспроводная сеть" ENABLE') ; вкл "Local Area Connection"
EndIf
;Циклическая проверка прозрачности иконки полноэкранного шаблона FSReal
$winList = WinList("[CLASS:TOverlayForm; W:77; H:73]")
If ($winList[0][0] = 1) Then
$hwnd = $winList[1][1]
WinSetTrans($hWnd, "", 50)
EndIf
Sleep(10000)
WEnd
;завершение цикла
;
Циклическая проверка прозрачности Кнопки полноэкранного шаблона FSReal :
Узнать размеры(W:77; H:73) кнопки можно программой AutoIt3\Au3Info_x64.exe
перетянув прицел на неё .