Показать сообщение отдельно
Старый 13.04.2017, 19:29   #662
Евген_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
По умолчанию

Вообщем, нашел свою проблему ухода в сон и далее гибернацию.
Раньше как то и не думал что всему этому может быть причиной,OBDmain, .Описывать не буду долгие мои мучения.
ExecTBL...дает нам большие возможности.
Закрытие OBDmain перед сном реализовал через него.
Начало кода.
Цитата:
"ONSUSPEND","CloseWindow;AutoCommServ||ByVar;vc_au toload_is;<<{CloseWindow;iCarVoiceCommander}||
То есть команда на закрытие OBDmain перед уходом в сон CloseWindow;AutoCommServ
Позже прочитал ,что так же была реализация у dmn37.
Все получилось, уход в сон без проблем. Но на рисовалась, другая проблема. Не стало подключения к ОБД или к телефону. Испробовал все варианты, сдесь предложенные
Но не один у меня не заработал.
Вот, пока такой тестирую такой код, может и грубый, и не красивый. НО РАБОТАЕТ.
1_запуском первого блютус
Код:
#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 <WindowsConstants.au3>
#include<Process.au3>

If @OSArch = "X86" Then
    $ProgramFileDir = "C:\Program Files"
    Else
    $ProgramFileDir = "C:\Program Files (x86)"
    endif

; Перезапуск BlueSoleilCS
    Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
    Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
    Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
Sleep(3000)
	 ShellExecute($ProgramFileDir & "\IVT Corporation\BlueSoleil\BtTray.exe")

If ($cmdline[0] > 0) Then Sleep($cmdline[1])
 Sleep(4000)
If (NOT ProcessExists("OBDmain.exe")) Then ShellExecute("OBDmain.exe")
.
2_запуском первого ОБД
Код:
#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 <WindowsConstants.au3>
#include<Process.au3>

If @OSArch = "X86" Then
    $ProgramFileDir = "C:\Program Files"
    Else
    $ProgramFileDir = "C:\Program Files (x86)"
    endif

If ($cmdline[0] > 0) Then Sleep($cmdline[1])
 Sleep(5000)
If (NOT ProcessExists("OBDmain.exe")) Then ShellExecute("OBDmain.exe")

; Перезапуск BlueSoleilCS
    Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
    Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
     Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
    Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
Sleep(3000)
	 ShellExecute($ProgramFileDir & "\IVT Corporation\BlueSoleil\BtTray.exe")
Пока тестирую, первый запускаеться ОБД.
Проблем не наблюдаю.
Запуск скрипта реализован , так же через ExecTBL, Это записано в конце команды ||RUN;$skinpath$OBD_ELM\OBDmain10_Loader.exe
Цитата:
/- Команды выполняемые при выходе из спящего режима
"OnONRESUMETimer","EndTimer;ONRESUME||BYVAR;vc_aut oload_is;<<{Run;$skinpath$Plugins\iCarVoiceCommand er................................................ .................................................. .................................................. ............RESUME;{OnAutoResume1Timer}<<MyApp35If Open||RUN;$skinpath$OBD_ELM\OBDmain10_Loader.exe"
Тестирую, пока все работает.
__________________
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 вне форума   Ответить с цитированием