Цитата:
Сообщение от 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 и запустить (также можно в автозагрузку на случай рестарта) ..