Показать сообщение отдельно
Старый 09.08.2015, 20:51   #30
Krysanov
Super Moderator
 
Аватар для Krysanov
 
Регистрация: 12.11.2013
Возраст: 45
Город: Горно-Алтайск
Регион: 04
Машина: lexus rx300
Сообщений: 3,145
Krysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to behold
По умолчанию

Что то никто не отвечает... видать что то застопорилось..
LEXX09 посмотри, пожалуйста, этот код.. будет работать? Или что-нибудь добавить нужно?
Замысел в том, чтобы перед сном GPSGATE, икар, программа-звонилка для интернета закрывались, а после пробуждения, в том числе длительного трех и более часов запускались

Код:
#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>
#include <GUIConstants.au3>
#include <MsgBoxConstants.au3>

Global $bLogging = true
Global $sLogFile = @ScriptDir & '\' & @ScriptName & '.log'

Global $PBT_APMRESUMESUSPEND = 0x0007

$hGUI = GUICreate("Restart", 100, 100, 1, 1)
GUIRegisterMsg($WM_POWERBROADCAST, "Standby")
; Запускаем iCarDS
    If (@OSArch = "X64") Then
        $iCarDS_path = "C:\Program Files (x86)\TipTop software\iCar DS\"
    Else
        $iCarDS_path = "C:\Program Files\TipTop software\iCar DS\"
    EndIf
    ShellExecute($iCarDS_path & "iCarDS.exe")
While 1
    Sleep(100)
WEnd

Func Standby($hWnd, $Msg, $wParam, $lParam)
    ; Если выход из спящего режима, то...
    If ($wParam = $PBT_APMRESUMESUSPEND) Then
        Restart()
    EndIf
EndFunc

Func Restart()

    ; Закрываем GpsGate, если запущен
    If ProcessExists("GpsGateXP.exe") Then
        ProcessClose("GpsGateXP.exe")
    EndIf

    ; Закрываем iCarDS, если запущен
    If ProcessExists("iCarDS.exe") Then
        ProcessClose("iCarDS.exe")
	 EndIf
	 ; Закрываем ПРОГРАММУ по коннекту инернета, если запущен
    If ProcessExists("SP Dialer.exe") Then
        ProcessClose("SP Dialer.exe.exe")
    EndIf

    Sleep(50)

    ; Запускаем GpsGate ЗДЕСЬ ПАРАМЕТР НИЖЕ ЛУЧШЕ УКАЗЫВАТЬ КАК ПУТЬ К ФАЙЛУ
    $GpsGate_path = "C:\Program Files (x86)\Franson\GpsGate 2.0\"
    ShellExecute($GpsGate_path & "GpsGateXP.exe")

    Sleep(50)

    ; Запускаем iCarDS
     If (@OSArch = "X64") Then
        $iCarDS_path = "C:\Program Files (x86)\TipTop software\iCar DS\"
    Else
        $iCarDS_path = "C:\Program Files\TipTop software\iCar DS\"
    EndIf
    ShellExecute($iCarDS_path & "iCarDS.exe")

    ; Запускаем ПРОГРАММУ по коннекту инернета
	$GpsGate_path = "C:\Program Files (x86)\SP Dialer\"
	ShellExecute($GpsGate_path & "SP Dialer.exe")


EndFunc
__________________
Windows 8.1, 64 бит, iCar DS 1.7.0.60
LGA 1155 Intel(R) Core(TM) i5-3570 CPU @ 3,4 GHz (6 Mb), 2x DDRIII 4Gb 1333 MHz KINGMAX, ASRock IntelB75, VGA (DVI+HDMI)+PCX16 3,0, SSD TOSHIBA OCZ tr150 на 240 GB, 2,5 Samsung SATA 1 Tb 5400 rpm, 8Mb, M4-atx -hv
Проект Кристалл-М=многоканальный звук в Lexus rx300 на базе CarPC!
Установка Windows, iCarDS и всего, что необходимо для CarPC!
_________________________________________

Krysanov вне форума   Ответить с цитированием