PCCar.ru - Ваш автомобильный компьютер

Вернуться   PCCar.ru - Ваш автомобильный компьютер > MP3Car ТехИнфа > Разработка программ > Программы управления > iCarDS

Ответ
 
Опции темы Поиск в этой теме
Старый 29.08.2015, 10:25   #131
Lexx09
Старший Пользователь
 
Регистрация: 18.04.2009
Город: Краснодар
Регион: 23, 93
Машина: Приора хэтчбек
Сообщений: 979
Lexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud of
По умолчанию

Попробуй так:
Код:
#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, круиз-контроль...
Lexx09 вне форума   Ответить с цитированием
Старый 29.08.2015, 12:34   #132
Krysanov
Super Moderator
 
Аватар для Krysanov
 
Регистрация: 12.11.2013
Возраст: 45
Город: Горно-Алтайск
Регион: 04
Машина: lexus rx300
Сообщений: 3,148
Krysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to behold
По умолчанию

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

Скрипт компилировал, переименовал и подменил..
В планировщике задач все автозагрузки поотключал...
запустил икар, все запустилось, все хорошо.. закрыл крышку ноута, подождал пока не уснет.. открыл...
и.. чистый рабочий стол
Нажимаю на ярлык икара, - все запустилось..
Теперь я не пойму... а зачем были эти танцы с бубнами для последнего подмененного скрипта 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.
Krysanov вне форума   Ответить с цитированием
Старый 29.08.2015, 13:50   #133
Lexx09
Старший Пользователь
 
Регистрация: 18.04.2009
Город: Краснодар
Регион: 23, 93
Машина: Приора хэтчбек
Сообщений: 979
Lexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud of
По умолчанию

Это 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, круиз-контроль...
Lexx09 вне форума   Ответить с цитированием
Старый 29.08.2015, 14:08   #134
Krysanov
Super Moderator
 
Аватар для Krysanov
 
Регистрация: 12.11.2013
Возраст: 45
Город: Горно-Алтайск
Регион: 04
Машина: lexus rx300
Сообщений: 3,148
Krysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to behold
По умолчанию

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

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!
_________________________________________

Krysanov вне форума   Ответить с цитированием
Старый 29.08.2015, 14:12   #135
seriousstas
Бывалый писикарщик
 
Регистрация: 14.06.2013
Регион: Украина
Машина: Nissan Qashqai+2
Сообщений: 3,424
seriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant future
По умолчанию

Lexx09

Да я только за десятки одновременно работающих скриптов , НО
считаю , что цикличные процессы вредят стабильности.
Скрипты сейчас везде и в Фубарах ,
в этом например :
http://zeremy.deviantart.com/art/FooTube-545591551
и в других программах - конфликтов не избежать .
Это видно и на разных видео - то прогу нужно дважды запускать,
то кнопки навигации не работают ...
Я в сборке Фубара использую таймеры и эмуляцию клавы ,
и если закрыть Икар при работающем скрипте из фубара (и ту-же запустить) - получим белое окно с ошибкой о конфликте и тд и тп .
Если есть способ скрипту отработать и выйти - то почему-бы нет ?
Добавленные команды в iCarMainScript точно умеют задержать отключение
винды и выгрузить необходимое (как писал) Krysanov - чистый экран .
А дальше - дело техники ...
Krysanov
Можешь запустить Икар через планировщик
seriousstas вне форума   Ответить с цитированием
Старый 29.08.2015, 14:26   #136
Krysanov
Super Moderator
 
Аватар для Krysanov
 
Регистрация: 12.11.2013
Возраст: 45
Город: Горно-Алтайск
Регион: 04
Машина: lexus rx300
Сообщений: 3,148
Krysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to behold
По умолчанию

Цитата:
Сообщение от seriousstas Посмотреть сообщение
Lexx09
...
Krysanov
Можешь запустить Икар через планировщик
Слушай, а зачем так, НАЗАД в БУДУЩЕЕ?? В этом скрипте есть все программы, которые загружаются и мне нужны... Этот же скрипт был у меня в автозагрузке и все работает..
Объясни чем твоя идея лучше (быстрее, надежней...) ? Как ты запускаешь икар и как он себя ведет после просыпания?
__________________
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, 14:29   #137
Lexx09
Старший Пользователь
 
Регистрация: 18.04.2009
Город: Краснодар
Регион: 23, 93
Машина: Приора хэтчбек
Сообщений: 979
Lexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud ofLexx09 has much to be proud of
По умолчанию

Цитата:
Сообщение от Krysanov Посмотреть сообщение
Lexx09, как в этом задержку на выход из сна уменьшить?
Сделать апгрейд. Больше никак. Нет там никакой специальной задержки.

Цитата:
Сообщение от 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, круиз-контроль...
Lexx09 вне форума   Ответить с цитированием
Старый 29.08.2015, 15:26   #138
seriousstas
Бывалый писикарщик
 
Регистрация: 14.06.2013
Регион: Украина
Машина: Nissan Qashqai+2
Сообщений: 3,424
seriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant future
По умолчанию

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.
seriousstas вне форума   Ответить с цитированием
Старый 29.08.2015, 19:16   #139
Krysanov
Super Moderator
 
Аватар для Krysanov
 
Регистрация: 12.11.2013
Возраст: 45
Город: Горно-Алтайск
Регион: 04
Машина: lexus rx300
Сообщений: 3,148
Krysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to beholdKrysanov is a splendid one to behold
По умолчанию

Цитата:
Сообщение от seriousstas Посмотреть сообщение
....я лишь написал
, тк не стоят все эти проги , было интересно ,что получится.
О, вот как !!...
Цитата:
Идею несколько раз озвучивал - искал способ (и нашел) - без дополнительных "следящих" скриптов , тк сталкивался с конфликтами в Икаре ,
который сам по-себе напичкан скриптами ...

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

Лично для меня - обсуждаемая тема приблизила к очередной минимизации моих действий после поворота ключа в машине.. В идеале хочу так.. повернул ключ зажигания и все само включилось, подхватилось .. а ты только "баранку" крутишь и новыми технологиями наслаждаешься....
__________________
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, 19:26   #140
seriousstas
Бывалый писикарщик
 
Регистрация: 14.06.2013
Регион: Украина
Машина: Nissan Qashqai+2
Сообщений: 3,424
seriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant futureseriousstas has a brilliant future
По умолчанию

Цитата:
Сообщение от Krysanov Посмотреть сообщение
Лично для меня - обсуждаемая тема приблизила к очередной минимизации моих действий после поворота ключа в машине.. В идеале хочу так.. повернул ключ зажигания и все само включилось, подхватилось .. а ты только "баранку" крутишь и новыми технологиями наслаждаешься....
Да - не дело это ковырять шашечки , когда ехать надо )
seriousstas вне форума   Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.



Часовой пояс GMT +4, время: 03:22.


Работает на vBulletin® версия 3.8.4.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot