Тема: iCarDS+Foobar2000
Показать сообщение отдельно
Старый 09.06.2016, 02:47   #2489
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 Посмотреть сообщение
Версия фубара 16 стоит... Может у тебя ссд ?
Если войти в СОН и выйти - то всё ОК . А вот если подождать пару часов
один из таймеров действительно блокирует работу MPS .
Пока только рестарт (лучше перезапустить Икар) :
Перезапуск IcarDS :
Код:
#NoTrayIcon
#RequireAdmin
#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<Process.au3>
; Это команда на сон
Global $PBT_APMSUSPEND = 0x0004
Global $PBT_APMRESUMESUSPEND = 0x0007

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

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

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

; Вход в спящий режим
Func Suspend()
Local $Class = '[Class:TSkinForm]', $Delay = Opt('WinWaitDelay', 0)
If WinExists($Class) Then
WinClose($Class)
EndIf

EndFunc

; Выход из спящего режима
Func ResumeSuspend()
Local $Class = '[Class:TSkinForm]', $Delay = Opt('WinWaitDelay', 0)
If WinExists($Class) Then
WinClose($Class)
If Not WinWaitClose($Class, '', 3) Then
ProcessClose(iCarDS.exe)
EndIf
EndIf

If (@OSArch = "X86") Then  
    $rDir = "C:\Program Files\TipTop software\iCar DS\iCarDS.exe"  
    $sKey = "HKLM" 
Else  
    $rDir = "C:\Program Files (x86)\TipTop software\iCar DS\iCarDS.exe" 
    $sKey = "HKLM64" 
EndIf  

If (Not ProcessExists("iCarDS.exe")) Then 
ShellExecute($rDir) 
EndIf 
    EndFunc
Скомпилировать в exe и запустить (также можно в автозагрузку на случай рестарта) ..

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