29.08.2015, 10:25 | #131 |
Старший Пользователь
Регистрация: 18.04.2009
Город: Краснодар
Регион: 23, 93
Машина: Приора хэтчбек
Сообщений: 979
|
Попробуй так:
Код:
#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> ; Это команда на сон 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
__________________
Приора хэтчбек Win7 x64 Pro, Intel Core i3-3240 Ivy Bridge 2x3.4GHz HT, DDR3 2x4Gb, SSD SiliconPower Ace A55 128GB SATAIII, ASRock B75M-ITX, M2-ITX rev.2F, GPS Beitian BN-808, Logitech Wireless Touch Keyboard K400r, ИК-пульт Prology RCD-350, круиз-контроль... |
29.08.2015, 12:34 | #132 |
Super Moderator
Регистрация: 12.11.2013
Возраст: 45
Город: Горно-Алтайск
Регион: 04
Машина: lexus rx300
Сообщений: 3,148
|
Спасибо, попробую
Попробовал дома на ноуте Скрипт компилировал, переименовал и подменил.. В планировщике задач все автозагрузки поотключал... запустил икар, все запустилось, все хорошо.. закрыл крышку ноута, подождал пока не уснет.. открыл... и.. чистый рабочий стол Нажимаю на ярлык икара, - все запустилось.. Теперь я не пойму... а зачем были эти танцы с бубнами для последнего подмененного скрипта iCarMainScript, если пока не ткнешь в ярлык икара не заработает? Или этот скрипт надо в автозагрузку закинуть? Тогда чем он отличается от этого?
__________________
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; 29.08.2015 в 13:33. |
29.08.2015, 13:50 | #133 |
Старший Пользователь
Регистрация: 18.04.2009
Город: Краснодар
Регион: 23, 93
Машина: Приора хэтчбек
Сообщений: 979
|
Это seriousstas что-то мутит.
Я - за отдельный скрипт! Правда, я пока не пользуюсь спящим режимом...
__________________
Приора хэтчбек Win7 x64 Pro, Intel Core i3-3240 Ivy Bridge 2x3.4GHz HT, DDR3 2x4Gb, SSD SiliconPower Ace A55 128GB SATAIII, ASRock B75M-ITX, M2-ITX rev.2F, GPS Beitian BN-808, Logitech Wireless Touch Keyboard K400r, ИК-пульт Prology RCD-350, круиз-контроль... |
29.08.2015, 14:08 | #134 | |
Super Moderator
Регистрация: 12.11.2013
Возраст: 45
Город: Горно-Алтайск
Регион: 04
Машина: lexus rx300
Сообщений: 3,148
|
Цитата:
Пока на отдельном скрипте посижу.... Lexx09, как в этом задержку на выход из сна уменьшить? ТОЧНЕЕ, чтобы икар быстрее загружался..!! тут Код:
$hGUI = GUICreate("Restart", 100, 100, 1, 1)
__________________
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! _________________________________________ |
|
29.08.2015, 14:12 | #135 |
Бывалый писикарщик
Регистрация: 14.06.2013
Регион: Украина
Машина: Nissan Qashqai+2
Сообщений: 3,424
|
Lexx09
Да я только за десятки одновременно работающих скриптов , НО считаю , что цикличные процессы вредят стабильности. Скрипты сейчас везде и в Фубарах , в этом например : http://zeremy.deviantart.com/art/FooTube-545591551 и в других программах - конфликтов не избежать . Это видно и на разных видео - то прогу нужно дважды запускать, то кнопки навигации не работают ... Я в сборке Фубара использую таймеры и эмуляцию клавы , и если закрыть Икар при работающем скрипте из фубара (и ту-же запустить) - получим белое окно с ошибкой о конфликте и тд и тп . Если есть способ скрипту отработать и выйти - то почему-бы нет ? Добавленные команды в iCarMainScript точно умеют задержать отключение винды и выгрузить необходимое (как писал) Krysanov - чистый экран . А дальше - дело техники ... Krysanov Можешь запустить Икар через планировщик |
29.08.2015, 14:26 | #136 |
Super Moderator
Регистрация: 12.11.2013
Возраст: 45
Город: Горно-Алтайск
Регион: 04
Машина: lexus rx300
Сообщений: 3,148
|
Слушай, а зачем так, НАЗАД в БУДУЩЕЕ?? В этом скрипте есть все программы, которые загружаются и мне нужны... Этот же скрипт был у меня в автозагрузке и все работает..
Объясни чем твоя идея лучше (быстрее, надежней...) ? Как ты запускаешь икар и как он себя ведет после просыпания?
__________________
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! _________________________________________ |
29.08.2015, 14:29 | #137 | ||
Старший Пользователь
Регистрация: 18.04.2009
Город: Краснодар
Регион: 23, 93
Машина: Приора хэтчбек
Сообщений: 979
|
Цитата:
Цитата:
Но хозяин барин, делайте, кому как удобнее.
__________________
Приора хэтчбек Win7 x64 Pro, Intel Core i3-3240 Ivy Bridge 2x3.4GHz HT, DDR3 2x4Gb, SSD SiliconPower Ace A55 128GB SATAIII, ASRock B75M-ITX, M2-ITX rev.2F, GPS Beitian BN-808, Logitech Wireless Touch Keyboard K400r, ИК-пульт Prology RCD-350, круиз-контроль... |
||
29.08.2015, 15:26 | #138 | |||||
Бывалый писикарщик
Регистрация: 14.06.2013
Регион: Украина
Машина: Nissan Qashqai+2
Сообщений: 3,424
|
Lexx09
Цитата:
http://www.pccar.ru/showthread.php?p=78811#post78811 А наша задача простая и согласен на все 100 ! ,что : Цитата:
Мой пример в шапке ни разу не подкачал это два крохотных скрипта , а теперь есть и (за что БОЛЬШОЕ спасибо!) : http://pccar.ru/showpost.php?p=336689&postcount=107 который можно добавить для подстраховки в iCarMainScript,например , если Икар "растолстеет" со временем. Krysanov какое будущее ? , я лишь написал Цитата:
Цитата:
который сам по-себе напичкан скриптами ... Цитата:
Последний раз редактировалось seriousstas; 30.08.2015 в 13:52. |
|||||
29.08.2015, 19:16 | #139 | ||
Super Moderator
Регистрация: 12.11.2013
Возраст: 45
Город: Горно-Алтайск
Регион: 04
Машина: lexus rx300
Сообщений: 3,148
|
Цитата:
Цитата:
Лично для меня - обсуждаемая тема приблизила к очередной минимизации моих действий после поворота ключа в машине.. В идеале хочу так.. повернул ключ зажигания и все само включилось, подхватилось .. а ты только "баранку" крутишь и новыми технологиями наслаждаешься....
__________________
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! _________________________________________ |
||
29.08.2015, 19:26 | #140 |
Бывалый писикарщик
Регистрация: 14.06.2013
Регион: Украина
Машина: Nissan Qashqai+2
Сообщений: 3,424
|
Да - не дело это ковырять шашечки , когда ехать надо )
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|