PCCar.ru - Ваш автомобильный компьютер - iCarDS + Сон, Гибридный сон и Гибернация

- iCarDS (http://pccar.ru/forumdisplay.php?f=121)

- - iCarDS + Сон, Гибридный сон и Гибернация (http://pccar.ru/showthread.php?t=23331)

в шпке темы - объединил режимы сна и перезапуск 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 (Сообщение 356393)

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

Цитата:

Сообщение от Andy_ro (Сообщение 356423)

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

Цитата:

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

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

Цитата:

Сообщение от seriousstas (Сообщение 356470)

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

Цитата:

Сообщение от Krysanov (Сообщение 356497)

Да вот он по ссылке
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 

; Это команда на сон

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\foobar2000.exe")

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

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

Цитата:

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

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

Цитата:

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

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

Цитата:

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

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

Цитата:

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

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

Цитата:

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

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

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

Вложение 43234

Вложение 43235

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

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