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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.01.2017, 01:57   #681
shumaz
Старший Пользователь
 
Регистрация: 27.08.2015
Регион: Украина
Сообщений: 289
shumaz is on a distinguished road
По умолчанию

Цитата:
Сообщение от Lexx09 Посмотреть сообщение
Код:
; Если BlueStacks запущен, то...
If (ProcessExists("HD-Frontend.exe") And ($bsNoBorder = 1)) Then
	; Убираем рамку вокруг окна BlueStacks
	$bsHandle = WinGetHandle("BlueStacks App Player")
	$bsStyle = _WinAPI_GetWindowLong($bsHandle, $GWL_STYLE)
	$bsStyle = BitAND($bsStyle, BitNOT($WS_BORDER), BitNOT($WS_CAPTION), BitNOT($WS_THICKFRAME))
	_WinAPI_SetWindowLong($bsHandle, $GWL_STYLE, $bsStyle)
EndIf
Цитата:
Сообщение от seriousstas Посмотреть сообщение
shumaz
проверь (из эмуляторов видел-щупал только Мему)

если не нужен рестарт адаптера при старте Икара - убери вначале скрипта (после переменных) :
Код:
_disable_()
Sleep(1000)
_enable_()
вначале скрипта
Спасибо, завтра тестану в машине.
P.S. убрал 3 строки упомянутые выше... я так понял без них тоже будет шустро цеплятся к wifi, просто без рестарта адаптера... я раньше не ресстартил, вроде работало норм
shumaz вне форума   Ответить с цитированием
Старый 16.01.2017, 16:55   #682
dmn37
Старший Пользователь
 
Регистрация: 07.10.2013
Возраст: 33
Город: Новосибирск
Регион: 54
Машина: Сузуки Гранд Витара
Сообщений: 101
dmn37 has a spectacular aura aboutdmn37 has a spectacular aura aboutdmn37 has a spectacular aura about
По умолчанию

При отключении UAC (EnableLUA =0) в Win10 не запускаются метро-приложения(
dmn37 вне форума   Ответить с цитированием
Старый 16.01.2017, 16:56   #683
shumaz
Старший Пользователь
 
Регистрация: 27.08.2015
Регион: Украина
Сообщений: 289
shumaz is on a distinguished road
По умолчанию

Не работает что то... + ошибка
shumaz вне форума   Ответить с цитированием
Старый 16.01.2017, 19:22   #684
dmn37
Старший Пользователь
 
Регистрация: 07.10.2013
Возраст: 33
Город: Новосибирск
Регион: 54
Машина: Сузуки Гранд Витара
Сообщений: 101
dmn37 has a spectacular aura aboutdmn37 has a spectacular aura aboutdmn37 has a spectacular aura about
По умолчанию

Цитата:
Сообщение от dmn37 Посмотреть сообщение
При отключении UAC (EnableLUA =0) в Win10 не запускаются метро-приложения(
Разобрался: UAC включить (EnableLUA =1), iCarDS в качестве оболочки запускать с правами админа (запись в реестр - iCarDS_Admin+explorer_REG.exe)

Еще вопрос: Для связи с автомобилем использую плагин iCarVOBD&obdmain. Obdmain стартует сразу после запуска iCarDS, потом у меня грузится explorer, следом bluesoleil. Нужно чтобы obdmain грузился после bluesoleil, и видел порт obd адаптера.

Как отложить запуск obdmain секунд на десять, например?
dmn37 вне форума   Ответить с цитированием
Старый 16.01.2017, 19:27   #685
Евген_21
Старший Пользователь
 
Аватар для Евген_21
 
Регистрация: 10.11.2014
Возраст: 48
Город: Усть-Илимск
Регион: 38
Машина: HYUNDAI I30 Рестайлинг
Сообщений: 958
Евген_21 is a glorious beacon of lightЕвген_21 is a glorious beacon of lightЕвген_21 is a glorious beacon of lightЕвген_21 is a glorious beacon of lightЕвген_21 is a glorious beacon of lightЕвген_21 is a glorious beacon of light
По умолчанию

Цитата:
Сообщение от dmn37 Посмотреть сообщение
Как отложить запуск obdmain секунд на десять, например?
Настройки=расширенные настройки=время задержки начала работы плагина....
Миниатюры
Нажмите на изображение для увеличения
Название: Снимок.JPG
Просмотров: 372
Размер:	79.2 Кб
ID:	46310  
__________________
GIGABYTE LGA1150 GA-85N B85,Intel Core i3-4330 3.5GHz 4Mb 2xDDR3-1600,Kingston HyperX 4Gb...USB GPS приемник Locosys LS-23030G.,блок питания M4-ATX
Windows 7-64, iCarDS 1.7.0.60 (лицензия)
Оформления и темы для iCarDS
Евген_21 вне форума   Ответить с цитированием
Старый 16.01.2017, 19:42   #686
dmn37
Старший Пользователь
 
Регистрация: 07.10.2013
Возраст: 33
Город: Новосибирск
Регион: 54
Машина: Сузуки Гранд Витара
Сообщений: 101
dmn37 has a spectacular aura aboutdmn37 has a spectacular aura aboutdmn37 has a spectacular aura about
По умолчанию

Цитата:
Сообщение от Евген_21 Посмотреть сообщение
Настройки=расширенные настройки=время задержки начала работы плагина....
Не помогло, поставил значение 10000, все равно obdmain стартует сразу
__________________
Windows 10, iCarDS v1.7.0.60
ASRock H87M-ITX, Intel i3-4350 2x3600MHz, HD Graphics 4600, DDR3x4Gb, SSD 128Gb + HDD, M4-ATX, Locosys ls-23090, 10.1" HSD101PWW2 + Multitouch, Модем E3372H + Yota Sim
dmn37 вне форума   Ответить с цитированием
Старый 16.01.2017, 20:34   #687
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
По умолчанию

dmn37
Цитата:
Разобрался: UAC включить (EnableLUA =1), iCarDS в качестве оболочки запускать с правами админа (запись в реестр - iCarDS_Admin+explorer_REG.exe)
Отлично! - рад , что пригодилось..
Цитата:
Как отложить запуск obdmain секунд на десять, например?

Что-б "побороть" СОН - добавить задержку и понять принцип работы - пошло много времени
- больше не хочу..!
Могу только подсказать ,куда копать :
1 Изучи принцип работы таймеров :
http://pccar.ru/showpost.php?p=183089&postcount=7
2. Открывай ExecTBL.ini , ищи запуск плагина - добавляй задержку .
seriousstas вне форума   Ответить с цитированием
Старый 16.01.2017, 20:55   #688
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
По умолчанию

shumaz
не находит (какое-то) значение..
Lexx09 прикрепи плиз весь iCarMainScript или подскажи чего не хватает ..
seriousstas вне форума   Ответить с цитированием
Старый 16.01.2017, 21:55   #689
Lexx09
Старший Пользователь
 
Регистрация: 18.04.2009
Город: Краснодар
Регион: 23, 93
Машина: Приора хэтчбек
Сообщений: 976
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
По умолчанию

Цитата:
Сообщение от shumaz Посмотреть сообщение
Не работает что то... + ошибка
Выложи свой iCarMainScript.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, круиз-контроль...
Lexx09 вне форума   Ответить с цитированием
Старый 17.01.2017, 00:49   #690
shumaz
Старший Пользователь
 
Регистрация: 27.08.2015
Регион: Украина
Сообщений: 289
shumaz is on a distinguished road
По умолчанию

Цитата:
Сообщение от Lexx09 Посмотреть сообщение
Выложи свой iCarMainScript.exe.
код
так же архивом залил.
Код:
#NoTrayIcon
#RequireAdmin
#pragma compile(Icon, "C:\Program Files (x86)\AutoIt3\Icons\MyAutoIt3_Yellow.ico")
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <Encoding.au3>
#include <nativewifi.au3>
#include <array.au3>
Global $iPID, $sOut, $sInterface, $aResult
Local $asConnection, $asAvailableNets, $sCurrentProfile
_Wlan_StartSession()
$sMessages = 0
$cTimer = 5000
$myAlpha = 50
$sInterface = IniRead(@ScriptDir & '\wifi.ini', 'wifi', 'interface', 0)
Local $omyerror
$omyerror = ObjEvent("AutoIt.Error", "MyErrFunc")
Dim $vol_from_speed[201]
Global $rr = ObjCreate("RideRunner.sdk")
_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$"))
	_Wlan_StartSession()
_Wlan_StartNotificationModule()

If _Wlan_QueryInterface() = "Connected" Then
	Local $asConnection = _Wlan_QueryInterface($WLAN_INTF_OPCODE_CURRENT_CONNECTION)
	$sCurrentProfile = $asConnection[2]
Else
	_enable_()
	Sleep(3000)
	Local $asNetworks = _Wlan_GetNetworks(True) ;True will perform a scan before returning a list.
	;_ArrayDisplay($asNetworks)
	For $i = 0 To UBound($asNetworks) - 1
		If StringInStr($asNetworks[$i][9], "P") Then ;If the entry has a profile.
			$sCurrentProfile = $asNetworks[$i][0]
			ExitLoop
		EndIf
	Next
	_check_interface()
EndIf


	_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)
		If Not (Ping("www.google.com", 250) Or Ping("www.yandex.ru", 250)) Then ;пингуем гугл и если нет подключаемся

			If Not (_Wlan_QueryInterface() = "Connected") Then ;проверяем подключение активного профиля
				If _Wlan_Connect($sCurrentProfile, False) Then ;True will wait for the interface to connect. Подключаемся к сети.
					_check_interface()
				ElseIf Not (_Wlan_QueryInterface() = "Connected") Then ;если все еще нет сети пытаемсся включить адаптер
					_enable_() ;включаем адаптер
				EndIf
			EndIf
		EndIf


	Sleep($cTimer) ;цикл в 10 сек
		$overlay_handle = WinGetHandle("[CLASS:TOverlayForm]")
	If ($overlay_handle And WinExists($overlay_handle)) Then
		Local $iTransColor, $iAlpha
		$iInfo = _WinAPI_GetLayeredWindowAttributes($overlay_handle, $iTransColor, $iAlpha)
		If ($iAlpha <= 100) Then
		Sleep(3000)
			_WinAPI_SetLayeredWindowAttributes($overlay_handle, $iTransColor, $myAlpha)
		EndIf
	EndIf
	Sleep(300)
If (ProcessExists("HD-Frontend.exe") And ($bsNoBorder = 1)) Then
	; Убираем рамку вокруг окна BlueStacks
	$bsHandle = WinGetHandle("BlueStacks App Player")
	$bsStyle = _WinAPI_GetWindowLong($bsHandle, $GWL_STYLE)
	$bsStyle = BitAND($bsStyle, BitNOT($WS_BORDER), BitNOT($WS_CAPTION), BitNOT($WS_THICKFRAME))
	_WinAPI_SetWindowLong($bsHandle, $GWL_STYLE, $bsStyle)
EndIf
	WEnd
EndFunc
Func _check_interface()
	;If Not $sInterface Then
	$iPID = Run('netsh.exe wlan show interfaces', '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
	$sOut = ''
	ProcessWaitClose($iPID)
	Do
		$sOut &= StdoutRead($iPID)
	Until @error
	$aResult = StringRegExp(_Encoding_866To1251($sOut), '(Имя|Name) *: *(.+) *', 1)
	;_ArrayDisplay($aResult)
	If UBound($aResult) >= 2 Then
		$sInterface = $aResult[1]
	EndIf
	;MsgBox(0, "Check Interface result:", $sInterface)
	$sInterface_check = IniRead(@ScriptDir & '\wifi.ini', 'wifi', 'interface', 0)
	If Not ($sInterface == $sInterface_check) Then
		IniWrite(@ScriptDir & '\wifi.ini', 'wifi', 'interface', $sInterface)
	EndIf
	;EndIf
EndFunc   ;==>_check_interface
Func _enable_()

	RunWait('netsh.exe interface set interface "' & $sInterface & '" enable', '', @SW_HIDE) ; включить
	Sleep(200)
	;$sping_ = Ping("www.google.com", 250)
	;MsgBox(0, "Ping:", $sping_)
EndFunc   ;==>_enable_

Func _disable_()
	RunWait('netsh.exe interface set interface "' & $sInterface & '" disable', '', @SW_HIDE) ; выключить
	Sleep(200)
EndFunc   ;==>_disable_
Вложения
Тип файла: rar iCarMainScript + BS.rar (578.2 Кб, 330 просмотров)
shumaz вне форума   Ответить с цитированием
Ответ


Здесь присутствуют: 3 (пользователей: 0 , гостей: 3)
 
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

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

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



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


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