iCarDS + Сон, Гибридный сон и Гибернация

[Krysanov]

Сообщение от 120705

Что то я туплю...... Можно сделать, что бы Икар уходил в сон, а минут так через 20-30 переходил в Гибер?? Варианты решения???

Это делает за вас интеллектуальный БП, например, M2-ITX (если правильно поставить джампера)

[seriousstas]

Методом "проб" пришел к выводу,что лучше перезапуска Фубара ничего нет .
Фубаровские скрипты почти все имеют таймеры и проще перезапустить весь Фубар .
Обновил скрипт в шапке для этого .
Обновил так-же и сам Фубар (перезапуск и его версию) .
Можно сделать самому добавив :

if(vkey== VK_NUMPAD1) {
fb.RunMainMenuCommand("File/Restart");
}

после
...
//================================================== == On key down
function on_key_down(vkey) {
var mask = GetKeyboardMask();
<<СЮДА>>
if(vkey== VK_SPACEBAR) {
...
Кликнув ПКМ по кнопкам = > Configure
и перекомпилировась скрипт из шапки .
пример перезапуска (когда Фубар главный, либо за Ситигидом ):

[seriousstas]

120705
Да БП просто отключает питание , и получаешь Гибернацию .
Должен быть вкл. "Гибридный сон" в настройках питания Win.

И ещё обратил внимание, что в трее несколько (2-4) иконок Блюсолей

Вспомнил, что Ты писал про нормальную работу Блюсолеил .
Поставь ";" перед _BlueSoleilCS() и перезапуска служб не будет .

ну и проверь, как сейчас полный перезапуск Фубара, записал минутное видео в авто , сейчас залью..

[shumaz]

Сообщение от seriousstas

Методом "проб" пришел к выводу,что лучше перезапуска Фубара ничего нет .
Обновил скрипт в шапке для этого.

привет Стас

Я блин не успею за тобой)))
только кинусь обновлять по одному - ты уже сделал по иному)))
опять я запутался и задам 3 ключевых (не потятных вопроса):

1) у тебя куча версий на все случаи жизни.
решили, что Foobar лучше перезапускать целиком.
Вопрос: что с iCarDs - его нужно перезапускать всё таки для корректной работы после выхода из сна или нет? или твои готовые SUSPEND.exe всё делают?
Если нужно то как? (какой скрипт)

2) какую теперь версию SUSPEND.exe использовать? из готовых какую то, либо же этот код править под себя (обзывать его SUSPEND.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<Process.au3>
_AlreadyRunning()
; Это команда на сон
Global $PBT_APMSUSPEND = 0x0004
Global $PBT_APMRESUMESUSPEND = 0x0007
$myAlpha = 50

$hGUI = GUICreate("Restart", 100, 100, 1, 1)
GUIRegisterMsg($WM_POWERBROADCAST, "Standby")
If @OSArch = "X86" Then
    $ProgramFileDir = "C:\Program Files"
    Else
    $ProgramFileDir = "C:\Program Files (x86)" 
    endif

Func Standby($hWnd, $Msg, $wParam, $lParam)
    Select
        Case $wParam = $PBT_APMSUSPEND
            Suspend()
        Case $wParam = $PBT_APMRESUMESUSPEND
            ResumeSuspend()
        Case Else
    EndSelect
EndFunc

While 1

$connect = _GetNetworkConnect() 
If Not $connect Then
_RunDOS('netsh interface set interface "Беспроводная сеть" DISABLE') ; выкл "Local Area Connection"
Sleep(1000)
_RunDOS('netsh interface set interface "Беспроводная сеть" ENABLE') ; вкл "Local Area Connection"
EndIf
Sleep(5000)
	$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
WEnd

; Вход в спящий режим
Func Suspend()
;_CloseIcarDS ()
EndFunc



; Выход из спящего режима
Func ResumeSuspend()
Sleep(100)
_BlueSoleilCS()
Sleep(1000)
If Not (ProcessExists('iCarDS.exe')) Then
Sleep(1000)
If @OSArch = "X86" Then
    $ProgramFileDir = "C:\Program Files"
    Else
    $ProgramFileDir = "C:\Program Files (x86)" 
    Endif
Sleep(100)
ShellExecute($ProgramFileDir & "\TipTop software\iCar DS\iCarDS.exe")
Else
;_RadioUpd()

Sleep(100)
_restfoob()
Sleep(100)
_StartIcarDS()
;_restwifi()
Endif
EndFunc

Func _StartIcarDS()
If Not (ProcessExists('iCarDS.exe')) Then
If @OSArch = "X86" Then
    $ProgramFileDir = "C:\Program Files"
    Else
    $ProgramFileDir = "C:\Program Files (x86)" 
    Endif
        ; Запускаем iCarDS
    ShellExecute($ProgramFileDir & "\TipTop software\iCar DS\iCarDS.exe")
Endif
EndFunc

Func _CloseIcarDS()
Local $Class = '[Class:TSkinForm]', $Delay = Opt('WinWaitDelay', 0)
If WinExists($Class) Then
WinClose($Class)
Endif
EndFunc

Func _RadioUpd()	
Sleep(2000)
If (ProcessExists('iCarDS.exe')) Then ;check icar
$RRSDK = ObjCreate("RoadRunner.SDK") ;create obj
;Media Source
; Media_s : 0 - Audio  1 - Radio  2 - TV  3 - Video   4 - DVD  5 - WinampRadio  6 - InternetRadio  7 - SkinMedia
Global $media_source = $RRSDK.getInfo("=$Media_s$");check media source
If ($media_source == 1) Then
		ProcessClose('DSPlayer.exe');close proc
		Sleep(100)
		$RRSDK.execute("RADIO");call radio
		Sleep(100)
		$RRSDK.execute("plexec");call radio
		Sleep(4000)
		$RRSDK.execute("RADIO");call radio
		Sleep(100)
		$RRSDK.execute("plexec");call radio

EndIf
EndIf
EndFunc

Func _BlueSoleilCS()
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(100)
ShellExecute($ProgramFileDir & "\IVT Corporation\BlueSoleil\BtTray.exe")
EndFunc

Func _restfoob()
ControlSend("[CLASS:{E7076D1C-A7BF-4f39-B771-BCBE88F2A2A8}]", "", "MegaPanelSplitterWindowContainer1", "{NUMPAD1}")
EndFunc

Func _restwifi()
$connect = _GetNetworkConnect() 
If Not $connect Then
_RunDOS('netsh interface set interface "Беспроводная сеть" DISABLE') ; выкл "Local Area Connection"
Sleep(200)
_RunDOS('netsh interface set interface "Беспроводная сеть" ENABLE') ; вкл "Local Area Connection"
EndIf
EndFunc

Func _GetNetworkConnect()
    Local Const $NETWORK_ALIVE_LAN = 0x1  ;net card connection
    Local $aRet, $iResult 
    $aRet = DllCall("sensapi.dll", "int", "IsNetworkAlive", "int*", 0) 
    If BitAND($aRet[1], $NETWORK_ALIVE_LAN) Then $iResult &= "LAN connected" & @LF
    Return $iResult
EndFunc

Func _AlreadyRunning()
    If ProcessExists(@Scriptname) Then
        $list = ProcessList()
            for $i = 1 to $list[0][0]
            If $list[$i][0] = @ScriptName And $list[$i][1] <> @AutoItPID Then 
                Exit
            EndIf
            Next
    EndIf
EndFunc

3)

Сообщение от seriousstas

Vkey_ARDUINO.exe (AHK)- для эмуляции клавиш ARDUINO (без устройства) , использования хоткеев из вне (например для кнопок руля)

Объясни, этот "экзешник" мне нужно использовать или нет?
Я просто не вкурю это для корректной работы плагина iCarDuino и скомпилированого AHK (код ниже) или для чего то другого?

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

~f1::
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111111||OnDuinoKeyPress")
return

~f2::
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111112||OnDuinoKeyPress")
return

~f3::
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111113||OnDuinoKeyPress")
return

~f7::
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111114||OnDuinoKeyPress")
return

~f9::
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111115||OnDuinoKeyPress")
return

4)

Сообщение от seriousstas

Обновил так-же и сам Фубар (перезапуск и его версию) .

если ты обновил саму версию фубара, то чисдо добавления пару строк в код (для перезапуска) не обойтись же?


P.S. У тебя работает CityGuide и iCarDS... как ты победил то его? у меня (да и у многих на сколько я читал) связка iCar + CityGuide не работает (ошибка была в ситигиде)! Win 8 x64 стоит...
если можешь залей куда то CityGuide + карты (ключ активации у меня куплен, валяется без дела)

P.S.S> Ты проделываешь колосальную работу за что тебе просто !РИСПЕКТ!
рассписываешь всё очень развёрнуто, но оч много вариаций и всё спутано и легко потерятся (... часто не понятно что применять, а что пропустить.

[Krysanov]

Да, Стас, выложи здесь ссылки на последние твои разработки..

[120705]

Сообщение от seriousstas

120705
Держи :

В сикбар в самый конец :

function on_key_down(vkey) {
if  (vkey == 0x63) {
window.Reload();}
}

Сделал изменения в скрипте Сикбара. После запуска строка бежит (около 3-5 сек.) Может не так долго, как было.. Потом останавливается. Чем больше комп находится в режиме сна, тем дольше по времени строка бежит при выходе компа из сна---это из моего наблюдения. Такое впечатления, что она что то нагоняет, т.е. пролистывает пропущенные треки (радио).

Пожелания: (это больше касается Seriousstas). Если можно в скриптах, которые в шапке или позже выложенные, в начале или в конце скрипта писать версию скрипта или дату его создания, что бы понять, на сколько это свежая запись или правка скрипта. Начинается путаница, какие скрипты оригинальные, какие уже с исправлениями, а дальше будет больше.

[seriousstas]

shumaz Привет! (на все Твои вопросы давал ответ по пару раз )

ошибка была в ситигиде

Что за ошибка ? Мне известна только ошибка микшера Икара ,
её победил через адаптер для USB (звук карта USB) .
На домашнем (Win10) - ситик работает без проблем


Перезапускать Икар или нет - решает каждый сам .
Если нет много фоновых загрузок (в режиме "восстановление") а в автозагрузке 1-2
программы - лучше перезапустить сняв коммент ";" перед ;_CloseIcarDS () при входе в сон .
Я пока не перезапускаю - еще тесты ..
Фубар перезапускать обязательно .

2) какую теперь версию SUSPEND.exe

Скрипт обновляю сейчас каждый день - пока не отлажу...
Слава сделал Wi-Fi следилку без перезапуска адаптера - сегодня добавлю его наработки в скрипт ..

Vkey_ARDUINO

Нужен для общения хоткеями из вне . Например для кнопок руля .
В скрипте задаешь хоткей который передаешь в Икар ,
а в настройках Икара - что делать при его получении .
Если нет кнопок - он не нужен .

4) Фубар обновил и добавил пару строк для перезапуска .

Перезапуск через Numpad1 (можно поменять)
Строки можно и самому добавить в МПС (писал выше об этом) .
120705
Задержки можно уменьшить - но лучше перезапустить Фубар тк кнопки работать
сразу не будут после долгого сна.

[shumaz]

Сообщение от seriousstas

shumaz Привет! (на все Твои вопросы давал ответ по пару раз )

Что за ошибка ? Мне известна только ошибка микшера Икара ,
её победил через адаптер для USB (звук карта USB) .
На домашнем (Win10) - ситик работает без проблем


Перезапускать Икар или нет - решает каждый сам .
Если нет много фоновых загрузок (в режиме "восстановление") а в автозагрузке 1-2
программы - лучше перезапустить сняв коммент ";" перед ;_CloseIcarDS () при входе в сон .
Я пока не перезапускаю - еще тесты ..
Фубар перезапускать обязательно .

Скрипт обновляю сейчас каждый день - пока не отлажу...
Слава сделал Wi-Fi следилку без перезапуска адаптера - сегодня добавлю его наработки в скрипт ..

Нужен для общения хоткеями из вне . Например для кнопок руля .
В скрипте задаешь хоткей который передаешь в Икар ,
а в настройках Икара - что делать при его получении .
Если нет кнопок - он не нужен .

Перезапуск через Numpad1 (можно поменять)
Строки можно и самому добавить в МПС (писал выше об этом) .
120705
Задержки можно уменьшить - но лучше перезапустить Фубар тк кнопки работать
сразу не будут после долгого сна.

по ситигиду: я не помню ошибку, но IcarDS + CityGuide у меня не работал (ошибку выдавало какую то...вроде icar крашился). если в микшере ошибка и только встроеная звуковая то видимо не победить?

по перезапуску icarDS: вот снова же каша)))
ты отвечал по несколько раз (ЗА ЧТО ТЕБЕ СНОВА СПАСИБО! что терпишь нас спамеров )
вот решил я перезапускать всё же iCarDS + foobar.
что мне нужно?
SUSPEND_rest_foob в папку icarDS + скомпилировать скрипт с первого сообщения (и добавить его в автозагрузку) или сам скрипт будет и icarDS перезапускать и foobar?
вот в чём для меня непонятка.

[seriousstas]

вот решил я перезапускать всё же iCarDS + foobar.

либо Икар , либо Фубар внутри Икара ..
Если ты закрываешь-открываешь Икар то ничего больше не нужно .
Он сам перезапустит все программы .
Ты больше пробуй - вопросы отпадут .
Можно перезапустить только Фубар - тогда будет , как на видео .

звуковая то видимо не победить?

Попробуй Win 7 или Win 10, можно вытащить из Нави программ - не будет приглушения звука при подсказках, но и не будет падений ..

SUSPEND_rest_foob

перезапустит только скрипты Фубара , что не решит проблемы (тут - проехали) .
Тебе нужно скомпилировать скрипт из шапки и закинуть его к Икару (Взять сборку или добавить в МПС строчки , что выше),
а дальше почитать здесь(я обновил в архиве все кроме SUSPEND - он в шапке) :
http://pccar.ru/showpost.php?p=376595&postcount=516

[shumaz]

Сообщение от seriousstas

либо Икар , либо Фубар внутри Икара ..
Если ты закрываешь-открываешь Икар то ничего больше не нужно .
Он сам перезапустит все программы .
Ты больше пробуй - вопросы отпадут .
Можно перезапустить только Фубар - тогда будет , как на видео .

Попробуй Win 7 или Win 10, можно вытащить из Нави программ - не будет приглушения звука при подсказках, но и не будет падений ..

перезапустит только скрипты Фубара , что не решит проблемы (тут - проехали) .
Тебе нужно скомпилировать скрипт из шапки и закинуть его к Икару (Взять сборку или добавить в МПС строчки , что выше),
а дальше почитать здесь(я обновил в архиве все кроме SUSPEND - он в шапке) :
http://pccar.ru/showpost.php?p=376595&postcount=516

Тьфу... Дошло!
Как то не задумывался, что при перезапуске iCarDS все проги встроеные тоже перезапустятся.
Скомпилированый скрипт "SUSPEND" назвать если ити по первому пункту (запуск icar как оболочки с подгрузкой раб. стола)?

С фубаром понял... Обновил уже.

Спасибо.

P.S. постараюсь больше на практике применять, просто не хочется винду положить)