Полезные утилиты и Твики iCarDS

[duzzy]

icar_wallpaper_changer

Программка рандомной смены обоев в Икаре.

Работает так видос(в видео работает тестовый скрипт для наглядности)...

Есть настройки...
[settings]
day_time=08:25 --- дневное время
night_time=18:00 --- ночное время
set_wallpaper_on_time=false --- смена режимов, false - рандомная смена обоев, true - смена обоев по дневному и ночному времени.
wallpaper_path=C:\Users\Terro\Desktop\фоны\resize --- путь до папки с обоями
on_time_cycle_interval=5 --- цикл отработки скрипта, для смены обоев по времени(в мин.).
random_cycle_interval=5 --- цикл отработки скрипта, для смены обоев рандомно(в мин.).

Скачать
...

[Евген_21]

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

icar_wallpaper_changer

Программка рандомной смены обоев в Икаре.

Работает так видос(в видео работает тестовый скрипт для наглядности)...

Есть настройки...
[settings]
day_time=08:25 --- дневное время
night_time=18:00 --- ночное время
set_wallpaper_on_time=false --- смена режимов, false - рандомная смена обоев, true - смена обоев по дневному и ночному времени.
wallpaper_path=C:\Users\Terro\Desktop\фоны\resize --- путь до папки с обоями
on_time_cycle_interval=5 --- цикл отработки скрипта, для смены обоев по времени(в мин.).
random_cycle_interval=5 --- цикл отработки скрипта, для смены обоев рандомно(в мин.).

Скачать
...

Слава,привет. Смотрю у тебя идей как всегда навалом.
Респект!!!

[seriousstas]

Net_checker_v2

Работает отлично ..
Попытаюсь сегодня встроить в iCarMainScript ..)

[duzzy]

seriousstas

Работает отлично ..

Шикарно !

Проверь личку.
...

[duzzy]

Евген_21

Привет !
Да идей не много но есть)))
Время мало для их реализации...))
Сделал себе управление икар\фубар на обычном джойстике без всяких ардиюн, потестирую и если все будет нормуль выложу исходник с программкой.
Можно использовать с любым джойстиком(с осями и без), если руки растут откуда надо можно переделать или сунуть в любой корпус напаять кнопки и т.д.... или так использовать.
Видос как работает в домашних условиях уже выкладывал продублирую)))

[seriousstas]

duzzy

Проверь личку.

Спасибо , а я уже ранее подсмотрел exe-ху ,а там..)))

Но я так и сделал все нужное сложил в MyUDF.au3 ,
почистил - результат iCarMainScript со встроенным Net_checker_v2
+ прозрачные кнопки в полноэкранных режимах ..

- Заменить по пути :
Documents\iCarDS\skins\Chameleon\Scripts\iCarMainScript.exe
- первый раз запустить Икар с подключенной сетью .

У утилиты есть настройки в ини файле...
[settings]

check_timeout=5000 --- время цикла проверок

check_timeout ставлю 2000
Путь
C:\Users\MY_PC\Documents\iCarDS\skins\Chameleon\Sc ripts\net_checker_v2.ini


Качнуть или тут

[Евген_21]

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

Евген_21

Привет !
Да идей не много но есть)))
Время мало для их реализации...))
Сделал себе управление икар\фубар на обычном джойстике без всяких ардиюн, потестирую и если все будет нормуль выложу исходник с программкой.
Можно использовать с любым джойстиком(с осями и без), если руки растут откуда надо можно переделать или сунуть в любой корпус напаять кнопки и т.д.... или так использовать.
Видос как работает в домашних условиях уже выкладывал продублирую)))

Я, себе тоже сделал управление с помощью джойстика. Только связь с iCar через плагин iCarDuino. Задействовал 10 кнопок (кроме крестовины), на одной кнопке 3 режима (нажатие,удержание и двойное нажатие). Так же платку от джойстика установил в руль, благо место позволило. А штатные кнопки руля ,немного переделав подключил к нему. Использовал такой.

Исходник скрипта на ahk. С ним ребята с серого форума помогли.

#UseHook 
  
Joy1:: ;  
    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0
    KeyWait, %HK%, T0.7
    If !ErrorLevel 
        Loop  {
            KeyWait, %HK%
            KeyWait, %HK%, D T0.3
        } Until !(++i) || ErrorLevel 
    Try Gosub % A_ThisHotkey "_" i 
    Return

Joy1_0:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111111||OnD uinoKeyPress")  
    Return
    
Joy1_1:
  Send, ^{vk57 Down}  ;  Ctrl-W.
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111112||OnD uinoKeyPress")  
    Return
    
Joy1_2:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111113||OnD uinoKeyPress") 
    Return

Joy2:: ;  
    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0
    KeyWait, %HK%, T0.7
    If !ErrorLevel 
        Loop  {
            KeyWait, %HK%
            KeyWait, %HK%, D T0.3
        } Until !(++i) || ErrorLevel 
    Try Gosub % A_ThisHotkey "_" i 
    Return

Joy2_0:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111114||OnD uinoKeyPress")  
    Return
    
Joy2_1:
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111115||OnD uinoKeyPress") 
    Return
    
Joy2_2:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111116||OnD uinoKeyPress") 
    Return

Joy3:: ;  
    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0
    KeyWait, %HK%, T0.7
    If !ErrorLevel 
        Loop  {
            KeyWait, %HK%
            KeyWait, %HK%, D T0.3
        } Until !(++i) || ErrorLevel 
    Try Gosub % A_ThisHotkey "_" i 
    Return

Joy3_0:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111117||OnD uinoKeyPress")   
    Return
    
Joy3_1:
  Send, ^{vk51 Down}  ;  Ctrl-Q.
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111118||OnD uinoKeyPress") 
    Return
    
Joy3_2:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111119||OnD uinoKeyPress") 
    Return

Joy4:: ;  
    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0
    KeyWait, %HK%, T0.7
    If !ErrorLevel 
        Loop  {
            KeyWait, %HK%
            KeyWait, %HK%, D T0.3
        } Until !(++i) || ErrorLevel 
    Try Gosub % A_ThisHotkey "_" i 
    Return

Joy4_0:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111120||OnD uinoKeyPress") и  
    Return
    
Joy4_1:
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111121||OnD uinoKeyPress") 
    Return
    
Joy4_2:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111122||OnD uinoKeyPress") 
    Return

Joy5:: ;  
    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0
    KeyWait, %HK%, T0.7
    If !ErrorLevel 
        Loop  {
            KeyWait, %HK%
            KeyWait, %HK%, D T0.3
        } Until !(++i) || ErrorLevel 
    Try Gosub % A_ThisHotkey "_" i 
    Return

Joy5_0:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111123||OnD uinoKeyPress")   
    Return
    
Joy5_1:
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111124||OnD uinoKeyPress")и
    Return
    
Joy5_2:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111125||OnD uinoKeyPress")
    Return

Joy6:: ;  
    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0
    KeyWait, %HK%, T0.7
    If !ErrorLevel 
        Loop  {
            KeyWait, %HK%
            KeyWait, %HK%, D T0.3
        } Until !(++i) || ErrorLevel 
    Try Gosub % A_ThisHotkey "_" i 
    Return

Joy6_0:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111126||OnD uinoKeyPress") 
    Return
    
Joy6_1:
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111127||OnD uinoKeyPress")
    Return
    
Joy6_2:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111128||OnD uinoKeyPress")
    Return

Joy7:: ;  
    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0
    KeyWait, %HK%, T0.7
    If !ErrorLevel 
        Loop  {
            KeyWait, %HK%
            KeyWait, %HK%, D T0.3
        } Until !(++i) || ErrorLevel 
    Try Gosub % A_ThisHotkey "_" i 
    Return

Joy7_0:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111129||OnD uinoKeyPress")  
    Return
    
Joy7_1:
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111130||OnD uinoKeyPress")
    Return
    
Joy7_2:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111131||OnD uinoKeyPress")
    Return

Joy8:: ;  
    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0
    KeyWait, %HK%, T0.7
    If !ErrorLevel 
        Loop  {
            KeyWait, %HK%
            KeyWait, %HK%, D T0.3
        } Until !(++i) || ErrorLevel 
    Try Gosub % A_ThisHotkey "_" i 
    Return

Joy8_0:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111132||OnD uinoKeyPress") 
    Return
    
Joy8_1:
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111133||OnD uinoKeyPress")
    Return
    
Joy8_2:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111134||OnD uinoKeyPress")а
    Return

Joy9:: ;  
    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0
    KeyWait, %HK%, T0.7
    If !ErrorLevel 
        Loop  {
            KeyWait, %HK%
            KeyWait, %HK%, D T0.3
        } Until !(++i) || ErrorLevel 
    Try Gosub % A_ThisHotkey "_" i 
    Return

Joy9_0:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111135||OnD uinoKeyPress")  
    Return
    
Joy9_1:
 Send, ^{vk43 Down}  ;  Ctrl-C.
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111136||OnD uinoKeyPress")
    Return
    
Joy9_2:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111137||OnD uinoKeyPress")
    Return

Joy10:: ;  
    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0
    KeyWait, %HK%, T0.7
    If !ErrorLevel 
        Loop  {
            KeyWait, %HK%
            KeyWait, %HK%, D T0.3
        } Until !(++i) || ErrorLevel 
    Try Gosub % A_ThisHotkey "_" i 
    Return

Joy10_0:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111138||OnD uinoKeyPress")  
    Return
    
Joy10_1:
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111139||OnD uinoKeyPress")
    Return
    
Joy10_2:  
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111140||OnD uinoKeyPress")
    Return

[seriousstas]

Использовал такой.

))
Евген_21
Отличная идея - главное экономно! таким можно и всем HYUNDAI-ем рулить )
...........
Обновил iCarMainScript
Был один хвост лишний вызывавший падение..
а так работает ,как часы - duzzy - респект - наконец поставили точку . ))

[duzzy]

seriousstas

Пожалуйста
Рад что работает нормально.

подсмотрел exe-ху ,а там..)))

Хитрец))) а я тебе исхи посылаю)))

наконец поставили точку . ))

Да и не говори, меня тоже очень напрягала вафля))... иногда полезно сделать паузу чтоб потом посмотреть на проблему под другим углом))

---------------------------------------------------------------------------------------------------
Евген_21

Я, себе тоже сделал управление с помощью джойстика. Только связь с iCar через плагин iCarDuino.

Ахаха у меня джойстик такой же...
зацени...

А у меня задействованы все кнопки. Долго думал как их раскидать)))
Сейчас обдумываю расположение на корпусе. Примерные наброски уже есть))

По скрипту, я сделал проще...
Автоит, прямая связь с Икаром через объект...
$rr = ObjCreate("RideRunner.sdk")
и программку joy2key.
Скрипт автоит выступает в роли перехватчика Хоткеев от программки joy2key и перенаправляет действия в необходимую программу. В моем случае это икар, фубар и пот-плеер.
Т.е. работают две программы, скрипт Автоит и программка joy2key.

В твоем случае я не думаю что нужно все время создавать объект...
icar := ComObjCreate("RideRunner.SDK")
при каждом нажатии, достаточно его однажды инициализировать.

Т.е. например:

в начале скрипта прописываешь...
icar := ComObjCreate("RideRunner.SDK")

затем пошло тело скрипта...
Joy1_0:
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111111||OnD uinoKeyPress")
Return

Joy1_1:
Send, ^{vk57 Down} ; Ctrl-W.
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111112||OnD uinoKeyPress")
Return

Joy1_2:
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111113||OnD uinoKeyPress")
Return

выделенное красным можно удалить, как то так...
Но я не в курсе как работает Автохоткей, но думаю что разницы нет.

А если по чесноку мне просто не нравится Автохоткей)))
Синтаксис у него ужасный, код читать просто нереально. Самый удобоваримый код в стиле JavaScript типа как в Автоит.
В Автоит все удобно читать легко разобрать код, да и писать удобнее))... Но это только мое личное мнение, так как на вкус и цвет все фломастеры разные))

--------------------------------------------------------

Попозжей обновлю icar_wallpaper_changer...
- Добавил одновременную смену обоев на рабочем столе вместе с Икаром(получается прикольно, сворачиваешь икар а у тебя те же обои на рабочем столе).
- Добавил возможность отключения записи в ини при смене обоев в икаре(т.е. обои в икаре будут меняться но прописываться в ини икара не будут, по сути будет работать как временная смена обоев).

[Евген_21]

duzzy
Когда, твой вариант управления можно будет тестануть?