iCarDS + Сон, Гибридный сон и Гибернация

[seriousstas]

в шпке темы - объединил режимы сна и перезапуск BT и Wi-Fi (убрал лишний скрипт)
Ещё покурил вопрос и слепил способ перезапуска Wi-Fi в цикле с проверкой каждые 6 сек (как только теряется связь - перезапуск) и без привязки к и-нету :

While 1
$connect = _GetNetworkConnect() 
If Not $connect Then
_RunDOS('netsh interface set interface "Беспроводная сеть" DISABLE') ; выкл "Local Area Connection"
Sleep(100)
_RunDOS('netsh interface set interface "Беспроводная сеть" ENABLE') ; вкл "Local Area Connection"
EndIf

Func _GetNetworkConnect()
    Local Const $NETWORK_ALIVE_LAN = 0x1  ;net card connection
    Local $aRet, $iResult 
    $aRet = DllCall("sensapi.dll", "int", "IsNetworkAlive", "int*", 0) 
    If BitAND($aRet[1], $NETWORK_ALIVE_LAN) Then $iResult &= "LAN connected" & @LF
    Return $iResult
EndFunc
Sleep(6000)
WEnd

Уже обкатал

[Krysanov]

У меня бывает после пробуждения загружается ИКАР и все остальное, проходит какое то время и появляется надпись о том, что ещё одна версия икара запустилась. Как это исключить?

[Andy_ro]

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

У меня бывает после пробуждения загружается ИКАР и все остальное, проходит какое то время и появляется надпись о том, что ещё одна версия икара запустилась. Как это исключить?

Какой-то дополнительный скрипт тому причиной.
Может в него надо вписать защиту от повторного запуска процесса.

[Krysanov]

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

Какой-то дополнительный скрипт тому причиной.
Может в него надо вписать защиту от повторного запуска процесса.

было бы здорово, но я не как

[seriousstas]

проходит какое то время и появляется надпись о том, что ещё одна версия икара запустилась

Нужно больше инфы : как запускаешь скрипт , как запускаешь Икар если обычная загрузка .
Такое может происходить, если закрытие при входе в сон не произошло и пошла команда на запуск .
Покажи свой скрипт.

[Krysanov]

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

Нужно больше инфы : как запускаешь скрипт , как запускаешь Икар если обычная загрузка .
Такое может происходить, если закрытие при входе в сон не произошло и пошла команда на запуск .
Покажи свой скрипт.

Да вот он по ссылке
http://pccar.ru/showpost.php?p=354233&postcount=750

[seriousstas]

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

Да вот он по ссылке
http://pccar.ru/showpost.php?p=354233&postcount=750

Попробуй так :

#pragma compile(Icon, "C:\Program Files (x86)\AutoIt3\Icons\au3script_v9.ico")
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <WindowsConstants.au3>
; Это команда на сон
Global $PBT_APMSUSPEND = 0x0004
Global $PBT_APMRESUMESUSPEND = 0x0007

$hGUI = GUICreate("Restart", 100, 100, 1, 1)
GUIRegisterMsg($WM_POWERBROADCAST, "Standby")

 ; Запускаем GpsGate
    ShellExecute("C:\Program Files (x86)\Franson\GpsGate 2.0\GpsGateXP.exe")

; Запускаем Bluestacks вместе с лаунчером MyLauncher
	$Bluestacks_path = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Bluestacks", "InstallDir")
	ShellExecute($Bluestacks_path & "HD-RunApp.exe", "-p ru.znalexey.mylauncher -a ru.znalexey.mylauncher.LauncherActivity")


While 1
    Sleep(100)
WEnd

Func Standby($hWnd, $Msg, $wParam, $lParam)
    Select
        ; Вход в спящий режим
        Case $wParam = $PBT_APMSUSPEND
            Suspend()
        ; Выход из спящего режима
        Case $wParam = $PBT_APMRESUMESUSPEND
            ResumeSuspend()
        Case Else
    EndSelect
EndFunc

; Вход в спящий режим
Func Suspend()

      ; Закрываем iCarDS
    WinClose("iCar DS")
    ; Закрываем программу фубар
     WinClose("foobar2000")
    ; Закрываем GpsGate
    ShellExecute("C:\Program Files (x86)\Franson\GpsGate 2.0\GpsGateXP.exe", "-exit")
    ; Закрываем GPSBridge
    ShellExecute("C:\ADB\adb.exe", "shell am force-stop com.rbc.gpsbridge");
   ;Закрываем Блюстак
    ShellExecute("C:\Program Files (x86)\BlueStacks\HD-Quit.exe")
    WinClose("HD-Frontend.exe")

EndFunc

; Выход из спящего режима
Func ResumeSuspend()
       If (ProcessWaitClose("foobar2000.exe", 5) == 0) Then
       ProcessClose("foobar2000.exe")
       EndIf
     Sleep(100)
     If (ProcessWaitClose("iCarDS.exe", 3) == 0) Then
      WinClose("iCar DS")
     EndIf


    ShellExecute("C:\vol.cmd")

    ; Запускаем GpsGate
    ShellExecute("C:\Program Files (x86)\Franson\GpsGate 2.0\GpsGateXP.exe")

	; Запускаем Bluestacks вместе с лаунчером MyLauncher
	$Bluestacks_path = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Bluestacks", "InstallDir")
	ShellExecute($Bluestacks_path &"HD-RunApp.exe", "-p ru.znalexey.mylauncher -a ru.znalexey.mylauncher.LauncherActivity")

    ; Запускаем iCarDS
    ShellExecute("C:\Program Files (x86)\TipTop software\iCar DS\iCarDS.exe")
EndFunc

Икар запускай через галку в его настройках .
Сам скрипт в автозагрузку + обычный запуск (двойным кликом)

В скрипте были ошибки ...
Например :

;Закрываем программу фубар
ShellExecute("D:\fubar\4Icar_13_1_MPS\foobar2000\f oobar2000.exe")

у тебя это запуск Фубара , а не закрытие..+
его запускать при выходе и обычном старте не нужно (только закрыть), его восстановит Икар .
+ проверки при входе в сон и на WIN-8.1 и WIN-10 бесполезны .
Мы это давно с Lexx09 выяснили - ставь , если необходимо - на выходе .
И не перезагружай всё подряд . Только то . что глючит .

[Krysanov]

Стас, большое спасибо за помощь, попробовать не смогу в ближайшее время, улетаю по делам... Позже обязательно проверю и отпишусь..
Вопрос:
1.

Икар запускай через галку в его настройках

Это поставить галку Auto run во вкладке general ? Разве для 8-ки это работает?
2. Что значит

Сам скрипт в автозагрузку + обычный запуск (двойным кликом)

? Что для запуска икара мне придется самому "тыкать" на ярлык на рабочем столе?

[seriousstas]

Стас, большое спасибо за помощь

Не за что !
У меня в таком виде хорошо работает ..

Это поставить галку Auto run во вкладке general ? Разве для 8-ки это работает?

Именно - работает , почему нет .

2. Что значит
Цитата:
Сам скрипт в автозагрузку + обычный запуск (двойным кликом)

Ну для того что-бы он немедленно заработал - нужно кликнуть по нему .
Можешь после добавления в автозагрузку просто перезапустить КарПК ...
Также попробуй добавить админ права вверху :
#RequireAdmin
Если что-то пойдёт не так - убери (у меня прописан - см. шапку ) .
Ещё при выходе можешь ставить небольшие задержки
между командами при необходимости .
Sleep(1000) - одна секунда .

[Krysanov]

не утерпел, попробовал.. после перезапука не загружается икар





вернул в начала скрипта
; Запускаем iCarDS
ShellExecute("C:\Program Files (x86)\TipTop software\iCar DS\iCarDS.exe") и убрал галку с настроек икара. Результат - загрузка икара после перезапуска, но после выхода из сна запускаются две и более копий икара

ПС. Фото с айфона на форум скидывать –изврат