Показать сообщение отдельно
Старый 28.03.2016, 20:51   #327
seriousstas
Бывалый писикарщик
 
Регистрация: 14.06.2013
Регион: Украина
Машина: Nissan Qashqai+2
Сообщений: 3,424
seriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant future
По умолчанию

Цитата:
Сообщение от 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 выяснили - ставь , если необходимо - на выходе .
И не перезагружай всё подряд . Только то . что глючит .

Последний раз редактировалось seriousstas; 29.03.2016 в 02:16.
seriousstas вне форума   Ответить с цитированием