PCCar.ru - Ваш автомобильный компьютер - iCarDS + Сон, Гибридный сон и Гибернация

- iCarDS (http://pccar.ru/forumdisplay.php?f=121)

- - iCarDS + Сон, Гибридный сон и Гибернация (http://pccar.ru/showthread.php?t=23331)

Попробуй так:

Код:

#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 

; Это команда на сон

Global $PBT_APMSUSPEND = 0x0004

Global $PBT_APMRESUMESUSPEND = 0x0007



Local $omyerror

$omyerror = ObjEvent("AutoIt.Error", "MyErrFunc")

Dim $vol_from_speed[201]

Global $rr = ObjCreate("RideRunner.sdk")



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



; Запускаем программу по коннекту интернета (У кого нет такой программы, тогда эту и следующие строки удалить!)

ShellExecute("C:\Program Files (x86)\SP Dialer\SP Dialer.exe")

        

_main()



Func myerrfunc()

        $hexnumber = Hex($omyerror.number, 8)

        Exit

EndFunc



Func _initvolarray()

        $delta = 0

        $vol_from_speed[0] = $delta

        For $i = 0 To 150 Step 10

                $tmp_vol_from_speed = $rr.getinfo("=$vol_from_speed_" & $i + 10 & "$") / 10

                For $j = 1 To 10 Step 1

                        $delta = $delta + $tmp_vol_from_speed

                        $vol_from_speed[$i + $j] = Round($delta, 2)

                Next

        Next

        For $i = 162 To 200 Step 1

                $delta = $delta + $tmp_vol_from_speed

                $vol_from_speed[$i] = Round($delta, 2)

        Next

EndFunc



Func _main()

        Global $iswork = 1

        Global $isrun = 0

        Global $name = "[CLASS:TSkinForm]"

        Global $namecontrol = ""

        Global $foobarwindowtitleprev = ""

        Global $speed_prev = Round(Number($rr.getinfo("$IsDriveSpd$")), 0)

        Global $speed_prev_round = Round($speed_prev, -1)

        Global $vol_from_speed_full = 0

        Global $vol_min = Number($rr.getinfo("=$vol_from_speed_min$"))

        Global $vol_max = Number($rr.getinfo("=$vol_from_speed_max$"))

        _initvolarray()

        $rr.execute("SetVar;vol_from_speed_full;" & Round($vol_from_speed[$speed_prev], 2))

        While $iswork

                $handle = WinGetHandle($name)

                If @error Then

                        If $isrun Then

                                $iswork = 0

                        EndIf

                Else

                        $isrun = 1

                        If WinActive($name) OR WinActive("[CLASS:TOverlayForm]") OR WinActive("[CLASS:TPopupSkinForm]") OR WinActive("[CLASS:TModalSkinForm]") OR WinActive("[CLASS:TMediaForm]") Then

                                $rr.execute("SETIND;!iCarDS_Active;ON")

                        Else

                                $rr.execute("SETIND;!iCarDS_Active;OFF")

                        EndIf

                EndIf

                $volume = StringSplit($rr.getinfo("VOLUME"), "%")

                If @error = 0 Then

                        $current_volume = Number($volume[1])

                Else

                        $current_volume = 0

                EndIf

                $speed_current = Round(Number($rr.getinfo("$IsDriveSpd$")), 0)

                If $speed_current > $speed_prev Then

                        $delta_vol = Round($vol_from_speed[$speed_current] - $vol_from_speed[$speed_prev], 2)

                        If $current_volume + $delta_vol < $vol_max Then $rr.execute("volperc+;" & $delta_vol & "||SetVar;vol_from_speed_full;" & $vol_from_speed[$speed_current])

                Else

                        If $speed_current < $speed_prev Then

                                $delta_vol = Round($vol_from_speed[$speed_prev] - $vol_from_speed[$speed_current], 2)

                                If $current_volume - $delta_vol > $vol_min Then $rr.execute("volperc-;" & $delta_vol & "||SetVar;vol_from_speed_full;" & $vol_from_speed[$speed_current])

                        EndIf

                EndIf

                $speed_prev = $speed_current

                If Number($rr.getinfo("=$Is_new_vol_from_speed$")) = 1 Then

                        _initvolarray()

                        $rr.execute("SetVar;Is_new_vol_from_speed;0")

                EndIf

                Sleep(300)

        WEnd

EndFunc



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



    ; Закрываем программу по коннекту интернета

    ProcessClose("SP Dialer.exe")



    ; Закрываем GpsGate

    WinClose("Franson GpsGate")



    ; Закрываем Блюстак

    ShellExecute("C:\Program Files (x86)\BlueStacks\HD-Quit.exe")



    If (ProcessWaitClose("iCarDS.exe", 3) == 0) Then

        ProcessClose("iCarDS.exe")

    EndIf

        

    If (ProcessWaitClose("SP Dialer.exe", 3) == 0) Then

        ProcessClose("SP Dialer.exe")

    EndIf



    If (ProcessWaitClose("HD-Frontend.exe", 3) == 0) Then

        ProcessClose("HD-Frontend.exe")

    EndIf



EndFunc



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

Func ResumeSuspend()



    ; Запускаем GpsGate

    ShellExecute("C:\Program Files (x86)\Franson\GpsGate 2.0\GpsGateXP.exe")



    ; Запускаем программу по коннекту интернета

    ShellExecute("C:\Program Files (x86)\SP Dialer\SP Dialer.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

Спасибо, попробую
Попробовал дома на ноуте

Скрипт компилировал, переименовал и подменил..
В планировщике задач все автозагрузки поотключал...
запустил икар, все запустилось, все хорошо.. закрыл крышку ноута, подождал пока не уснет.. открыл...
и.. чистый рабочий стол:shok:
Нажимаю на ярлык икара, - все запустилось..:yes2:
Теперь я не пойму... а зачем были эти танцы с бубнами для последнего подмененного скрипта iCarMainScript, если пока не ткнешь в ярлык икара не заработает?
Или этот скрипт надо в автозагрузку закинуть? Тогда чем он отличается от
этого?

Это seriousstas что-то мутит. :dntknw:
Я - за отдельный скрипт! Правда, я пока не пользуюсь спящим режимом...

Цитата:

Сообщение от Lexx09 (Сообщение 336815)

Это seriousstas что-то мутит. :dntknw:
Я - за отдельный скрипт! Правда, я пока не пользуюсь спящим режимом...

получается так.. запускаю САМ икар, переделанный скрипт iCarMainScript появляется в трее, загоняю в сон..просыпается ком .. ни икара ни скрипта ... и следа от них не осталось... Попробовал закинуть в автозагрузку скрипт, - та же песня..
Пока на отдельном скрипте посижу....

Lexx09, как в этом задержку на выход из сна уменьшить? ТОЧНЕЕ, чтобы икар быстрее загружался..!!
тут

Код:

$hGUI = GUICreate("Restart", 100, 100, 1, 1)

покрутить?

Lexx09

Да я только за десятки одновременно работающих скриптов , НО
считаю , что цикличные процессы вредят стабильности.
Скрипты сейчас везде и в Фубарах ,
в этом например :
http://zeremy.deviantart.com/art/FooTube-545591551
и в других программах - конфликтов не избежать .
Это видно и на разных видео - то прогу нужно дважды запускать,
то кнопки навигации не работают ...
Я в сборке Фубара использую таймеры и эмуляцию клавы ,
и если закрыть Икар при работающем скрипте из фубара (и ту-же запустить) - получим белое окно с ошибкой о конфликте и тд и тп .
Если есть способ скрипту отработать и выйти - то почему-бы нет ?
Добавленные команды в iCarMainScript точно умеют задержать отключение
винды и выгрузить необходимое (как писал) Krysanov - чистый экран .
А дальше - дело техники ...
Krysanov
Можешь запустить Икар через планировщик

Цитата:

Сообщение от seriousstas (Сообщение 336817)

Lexx09
...
Krysanov
Можешь запустить Икар через планировщик

Слушай, а зачем так, НАЗАД в БУДУЩЕЕ?? В этом скрипте есть все программы, которые загружаются и мне нужны... Этот же скрипт был у меня в автозагрузке и все работает..
Объясни чем твоя идея лучше (быстрее, надежней...) ? Как ты запускаешь икар и как он себя ведет после просыпания?

Цитата:

Сообщение от Krysanov (Сообщение 336816)

Lexx09, как в этом задержку на выход из сна уменьшить?

Сделать апгрейд. :smile2: Больше никак. Нет там никакой специальной задержки.

Цитата:

Сообщение от seriousstas (Сообщение 336817)

Да я только за десятки одновременно работающих скриптов , НО
считаю , что цикличные процессы вредят стабильности.

Сильно сомневаюсь в этом. А вот зависнувший/заглючивший один процесс, в который запихнуто все-все-все, приведет к краху всего. Да и отлаживать легче по отдельности.
Но хозяин барин, делайте, кому как удобнее.

Lexx09

Цитата:

один процесс, в который запихнуто все-все-все

тут интересный пример :
http://www.pccar.ru/showthread.php?p=78811#post78811
А наша задача простая и согласен на все 100 ! ,что :

Цитата:

хозяин барин, делайте, кому как удобнее.

Я лишь за разнообразие вариантов , поэтому экспериментирую
Мой пример в шапке ни разу не подкачал это два крохотных скрипта , а теперь есть и (за что БОЛЬШОЕ спасибо!) :
http://pccar.ru/showpost.php?p=336689&postcount=107
который можно добавить для подстраховки в iCarMainScript,например , если Икар "растолстеет" со временем.
Krysanov какое будущее ? :) , я лишь написал

Цитата:

поробуй

, тк не стоят все эти проги , было интересно ,что получится.

Цитата:

Объясни чем твоя идея лучше

Идею несколько раз озвучивал - искал способ (и нашел) - без дополнительных "следящих" скриптов , тк сталкивался с конфликтами в Икаре ,
который сам по-себе напичкан скриптами ...

Цитата:

все работает..

Это хорошо! Тему не зря подняли :)

Цитата:

Сообщение от seriousstas (Сообщение 336824)

....я лишь написал
, тк не стоят все эти проги , было интересно ,что получится.

О, вот как !!...

Цитата:

Лично для меня - обсуждаемая тема приблизила к очередной минимизации моих действий после поворота ключа в машине.. В идеале хочу так.. повернул ключ зажигания и все само включилось, подхватилось :derisive:.. а ты только "баранку" крутишь и новыми технологиями наслаждаешься....

Цитата:

Сообщение от Krysanov (Сообщение 336831)

Да - не дело это ковырять шашечки , когда ехать надо )