27.08.2015, 17:18 | #91 |
Старший Пользователь
Регистрация: 18.04.2009
Город: Краснодар
Регион: 23, 93
Машина: Приора хэтчбек
Сообщений: 979
|
Кстати, вместо задержки можно добавить проверку на наличие процесса iCarDS.exe и других...
__________________
Приора хэтчбек 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, круиз-контроль... |
27.08.2015, 19:38 | #92 |
Super Moderator
Регистрация: 12.11.2013
Возраст: 45
Город: Горно-Алтайск
Регион: 04
Машина: lexus rx300
Сообщений: 3,148
|
привет, LEXX09!
Своими вот как у меня сейчас работает (убрал пока блюстак, инет программу) твой скрипт, добавив Sleep(2000) Код:
#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 <GUIConstants.au3> #include <MsgBoxConstants.au3> ; Это команда на сон Global $PBT_APMSUSPEND = 0x0004 Global $PBT_APMRESUMESUSPEND = 0x0007 $hGUI = GUICreate("Restart", 100, 100, 1, 1) GUIRegisterMsg($WM_POWERBROADCAST, "Standby") ; Запускаем GpsGate ShellExecute("C:\Program Files (x86)\Franson\GpsGate 2.0\GpsGateXP.exe") ; Запускаем iCarDS ShellExecute("C:\Program Files (x86)\TipTop software\iCar DS\iCarDS.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") While 1 Sleep(100) WEnd 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") ; Закрываем программу по коннекту интернета ; WinClose("SP Dialer.exe") ; Закрываем GpsGate ; WinClose("Franson GpsGate") ;Закрываем Блюстак ; ShellExecute("C:\Program Files (x86)\BlueStacks\HD-Quit.exe") Sleep(2000) 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
__________________
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; 28.08.2015 в 06:48. Причина: добавил Sleep(2000) |
27.08.2015, 19:39 | #93 | ||
Бывалый писикарщик
Регистрация: 14.06.2013
Регион: Украина
Машина: Nissan Qashqai+2
Сообщений: 3,424
|
Lexx09
Цитата:
Ты мог-бы показать вариант(с ф-ей Suspend, для меня AutoIt почти тёмный лес ) с закрытием через Икар , то-есть , что-бы после отработки скрипта он закрывался , а запускать всё-таки через планировщик . Маленький пример на одном Икаре ? Цитата:
|
||
27.08.2015, 20:05 | #94 | |
Бывалый писикарщик
Регистрация: 27.09.2008
Город: Собянинск
Регион: 77, 97, 99, 177
Машина: шкода а5
Сообщений: 5,443
|
Цитата:
__________________
То win 10х64, то win 8.1x64 Видео регистрация на web. камеру:http://www.youtube.com/watch?v=1hPPLRBBIqc |
|
27.08.2015, 20:23 | #95 |
Бывалый писикарщик
Регистрация: 14.06.2013
Регион: Украина
Машина: Nissan Qashqai+2
Сообщений: 3,424
|
|
27.08.2015, 20:29 | #96 |
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! _________________________________________ |
27.08.2015, 20:33 | #97 |
Бывалый писикарщик
Регистрация: 27.09.2008
Город: Собянинск
Регион: 77, 97, 99, 177
Машина: шкода а5
Сообщений: 5,443
|
__________________
То win 10х64, то win 8.1x64 Видео регистрация на web. камеру:http://www.youtube.com/watch?v=1hPPLRBBIqc |
27.08.2015, 20:40 | #98 | |
Super Moderator
Регистрация: 12.11.2013
Возраст: 45
Город: Горно-Алтайск
Регион: 04
Машина: lexus rx300
Сообщений: 3,148
|
Цитата:
Lexx09, покажи плиз, как будет выглядеть эта часть кода, .. есть интерес ... ПС. Вопрос про БРИДЖ остается открытым..сорри за навязчивость
__________________
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! _________________________________________ |
|
27.08.2015, 22:20 | #99 | |
Старший Пользователь
Регистрация: 18.04.2009
Город: Краснодар
Регион: 23, 93
Машина: Приора хэтчбек
Сообщений: 979
|
Цитата:
Код:
; Вход в спящий режим Func Suspend() ; Закрываем iCarDS WinClose("iCar DS") ; Закрываем программу по коннекту интернета ;WinClose("SP Dialer") ; Закрываем GpsGate WinClose("Franson GpsGate") ; Закрываем BlueStacks ShellExecute("C:\Program Files (x86)\BlueStacks\HD-Quit.exe") If (ProcessWaitClose("iCarDS.exe", 3) == 0) Then ProcessClose("iCarDS.exe") EndIf EndFunc В варианте просто с паузой скрипт по любому будет ждать 3 сек, даже, если iCarDS закрылся за 1 сек. А если iCarDS заглючил, то при выходе из сна глюки продолжатся.
__________________
Приора хэтчбек 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, круиз-контроль... |
|
27.08.2015, 23:21 | #100 | |
Старший Пользователь
Регистрация: 18.04.2009
Город: Краснодар
Регион: 23, 93
Машина: Приора хэтчбек
Сообщений: 979
|
Цитата:
Код:
WinClose("iCar DS") If (ProcessWaitClose("iCarDS.exe", 3) == 0) Then ProcessClose("iCarDS.exe") EndIf
__________________
Приора хэтчбек 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, круиз-контроль... Последний раз редактировалось Lexx09; 28.08.2015 в 00:03. |
|
Здесь присутствуют: 2 (пользователей: 0 , гостей: 2) | |
|
|