iCarDS + Сон, Гибридный сон и Гибернация

[seriousstas]

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

Выход из гибридного сна
на
Выход из Гибернации ,либо (так точнее) : выход при включенной настройке "Гибридный сон"
Потому-что из гибридного сна выйти однозначно нельзя (и снять одно видео) Он состоит из двух состояний,
гибрид - это миниум два.

mendisabal Тебе уже говорил о том , что состояния
гибридного сна НЕТ . Есть установка в настройках , которая
называется "Гибридный сон", которая лишь переводит в режим (или состояние) аналогичное Гибернации (или как ты выразился - Гипера) - при
отключении питания во время обычночного СНА, который у Тебя (до получаса стоит) . Если рубануть питание - будет процесс восстановление до рабочего состояния с диска .
Тут его не рекомендуют кстати, но мы пользуемся ) :

Как и в режиме обычного сна при гибридном сне компьютер не должен обесточиваться. При неожиданном сбое питания операционная система Windows может восстановить данные с диска, но такое восстановление не является штатным и обычно сопровождается интенсивной нагрузкой на жесткий диск - не злоупотребляйте.

Мой ssd crucial (256) три года - в норме .


замени также:
Фубар при выходе из гипера
на
Фубар при выходе из СНА
Режим , когда комп включается мгновенно - называется СОН (а не "гипер")))




Хух - думаю объяснил !

[Евген_21]

seriousstas

если пройтись батником (ком.строкой)

Все отключал вручную, батником не пользовался.

а где твой SUSPEND , можно посмотреть ?

1. С перезапуском Икара и Фубара.

PHP код:

#NoTrayIcon
#RequireAdmin
#pragma compile(Icon, "C:\Program Files (x86)\AutoIt3\Icons\MyAutoIt3_Green.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")
; Пауза при обычном запуске (без сна)
Sleep(1500)
; Перезапуск служб BlueSoleil при обычном старте
Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
     Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
ShellExecute("C:\Program Files (x86)\IVT Corporation\BlueSoleil\BtTray.exe")


While 1
;Циклический перезапуск Wi-Fi:
$connect = _GetNetworkConnect()
If Not $connect Then
_RunDOS('netsh interface set interface "Беспроводная сеть" DISABLE') ; выкл "Local Area Connection"
Sleep(5000)
_RunDOS('netsh interface set interface "Беспроводная сеть" ENABLE') ; вкл "Local Area Connection"
EndIf
;Циклическая проверка прозрачности иконки полноэкранного шаблона FSReal
$winList = WinList("[CLASS:TOverlayForm; W:77; H:73]")
    If ($winList[0][0] = 1) Then
        $hwnd = $winList[1][1]
        WinSetTrans($hWnd, "", 50)
    EndIf
    Sleep(10000)
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()
WinClose("foobar2000")
WinClose("Vkey_ARDUINO")
WinClose("iCar DS")
     Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
     Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)

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
   If (ProcessWaitClose("Vkey_ARDUINO.exe", 1) == 0) Then
        ProcessClose("Vkey_ARDUINO.exe")
     EndIf

     ShellExecute("d:\Install\FRONTEND\ICar\START\Vkey_ARDUINO.exe")
Sleep(1000)

     ; Перезапуск BlueSoleilCS
     Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
     Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
Sleep(200)
ShellExecute("C:\Program Files (x86)\IVT Corporation\BlueSoleil\BtTray.exe")

Sleep(1000)
    ; Запускаем iCarDS
    ShellExecute("C:\Program Files (x86)\TipTop software\iCar DS\iCarDS.exe")

EndFunc 


2.Без перезапуска

PHP код:

#NoTrayIcon
#RequireAdmin
#pragma compile(Icon, "C:\Program Files (x86)\AutoIt3\Icons\MyAutoIt3_Green.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")
; Пауза при обычном запуске (без сна)
Sleep(1500)
; Перезапуск служб BlueSoleil при обычном старте
Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
     Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
ShellExecute("C:\Program Files (x86)\IVT Corporation\BlueSoleil\BtTray.exe")


While 1
;Циклический перезапуск Wi-Fi:
$connect = _GetNetworkConnect()
If Not $connect Then
_RunDOS('netsh interface set interface "Беспроводная сеть" DISABLE') ; выкл "Local Area Connection"
Sleep(5000)
_RunDOS('netsh interface set interface "Беспроводная сеть" ENABLE') ; вкл "Local Area Connection"
EndIf
;Циклическая проверка прозрачности иконки полноэкранного шаблона FSReal
$winList = WinList("[CLASS:TOverlayForm; W:77; H:73]")
    If ($winList[0][0] = 1) Then
        $hwnd = $winList[1][1]
        WinSetTrans($hWnd, "", 50)
    EndIf
    Sleep(10000)
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()
 WinClose("Vkey_ARDUINO")
     Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
     Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)

EndFunc

; Выход из спящего режима
Func ResumeSuspend()

Sleep(100)
   If (ProcessWaitClose("Vkey_ARDUINO.exe", 1) == 0) Then
        ProcessClose("Vkey_ARDUINO.exe")
   EndIf

   ; Перезапуск Vkey_ARDUINO
Sleep(1000)
     ShellExecute("d:\Install\FRONTEND\ICar\START\Vkey_ARDUINO.exe")

     ; Перезапуск BlueSoleilCS
     Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
     Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
Sleep(200)
ShellExecute("C:\Program Files (x86)\IVT Corporation\BlueSoleil\BtTray.exe")

EndFunc 


[Евген_21]

seriousstas, вот с таким кодом тестанул, в сон ушел.
Но надо еще погонять,посмотреть.....SUSPEND.exe использовал тот что без перезапуска Фубара и Икара.

PHP код:

; Вход в спящий режим
Func Suspend()
    If (ProcessWaitClose("Vkey_ARDUINO.exe", 1) == 0) Then
   ProcessClose("Vkey_ARDUINO.exe")
   EndIf
     Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
     Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)

EndFunc 


[seriousstas]

Дстаточно перезапустить
Vkey_ARDUINO
Службы Bt отключаются и тут-же включаются
их нет смысла рубить на входе..
А по SUSPEND посмотри по блокам :
http://pccar.ru/showpost.php?p=365216&postcount=361
Зачем тебе куча лишнего (например Циклический перезапуск Wi-Fi для подхвата И-нета с телефона ) ..

[Krysanov]

Спасибо, Стас! Тему подправил

[Евген_21]

Стас,где здесь ошибка? Скрипт запускается и сразу завершается. Он же постоянно должен работать.

PHP код:

#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")

Sleep(1500)
     ; Перезапуск BlueSoleilCS
     Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
     Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
ShellExecute("C:\Program Files (x86)\IVT Corporation\BlueSoleil\BtTray.exe")


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

; Вход в спящий режим
Func Suspend()

If (ProcessExists("iCarDS.exe")) Then
WinClose("iCar DS"))
EndIf

If (ProcessExists("foobar200.exe")) Then
WinClose("foobar2000")
EndIf

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
Sleep(1000)

     ; Перезапуск BlueSoleilCS
     Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
     Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
ShellExecute("C:\Program Files (x86)\IVT Corporation\BlueSoleil\BtTray.exe")
Sleep(1000)
    ; Запускаем iCarDS
    If (Not ProcessExists("iCarDS.exe")) Then
  ShellExecute("C:\Program Files (x86)\TipTop software\iCar DS\iCarDS.exe")
EndIf

EndFunc 


[seriousstas]

Сообщение от Евген_21

Стасзапускается и сразу завершается. Он же постоянно должен работать.

нужно заставить работать, добавь:

While 1 
Sleep(100) 
WEnd

[Krysanov]

Стас, вот видео

[120705]

Сообщение от Krysanov

Стас, вот видео

То, о чем писал в посте №414. После загрузки Икара проскочили окна программ (мельтишили), которые стояли в автозагрузке Икара. По феншую, пусть Загрузочное окно Икара дольше стоит, пока программы, которые торчат в автозагрузке, загружаются в фоне (не мельтишили во время загрузки). Вот это будет классика. КАк сделать не ......?????

[Krysanov]

То, как на видео загружается комп и икар с моей помощью делаю крайне редко... поэтому не заморачиваюсь. При гипернации и сне мельтешения просто нет..