Примеры ahk-скриптов

[ashu]

Собственно, запуск по горячим клавишам экзешника, передающего команду РоадРаннеру, меня практически полностью удовлетворял бы, если б не мерзко низкая производительность компа - время на запуск экзешника тратилось многовато, в некоторых случаях до нескольких секунд...

Второй момент - для снятия скриншотов я использовал резидента, висящего в трее и снимающего скриншоты по клавиатурной комбинации, выдаваемой avc_usb.exe (интерфейсная программа адаптера avc-lan). Резидент хороший, но в условиях цейтнота ресурсов поедающий 99.99% времени в нерабочем состоянии.

Еще хотелось получить правую кнопку мышки без долгого удерживания пальца на одном месте экрана.

Ну, и еще один минус вылез при использовании iGO под RR в качестве навигашки - при переключении треков кнопками штатной консоли картинка iGO замирала, приходилось тыкать в экран для оживления.

Написал новый скриптец AHK вместо старого (из первого поста).
Теперь он сам при помощи mspaint'а снимает скриншот (mspaint загружается только для записи скриншота на диск и сразу выгружается), а также сам передаёт клавиши смены трека в RR без помощи дополнительных экзешников, а потом возвращает фокус в то окно, где он был до этого (в тот же iGO, например).

Адаптер avc-lan (точнее, avc_usb.exe) настроен так, что на первую служебную клавишу (правая кнопка мышки) выдаёт комбинацию Ctrl-Alt-Shift-a, на вторую служебную клавишу (скриншот) выдаёт комбинацию Ctrl-Alt-Shift-b, на клавишу предыдущего трека (предыдущий трек) - Ctrl-Alt-Shift-g, на клавишу следующего трека (следующий трек) - Ctrl-Alt-Shift-f, на клавишу перемотки назад (гамма) - Ctrl-Alt-Shift-i, на клавишу перемотки вперед (воспроизведение/стоп) - Ctrl-Alt-Shift-h.

В конфиге RR (KeyTBL.ini):

78,"NEXT"
66,"PREV"
80,"PLAY"
71,"GAMMA"

Сам AHK-скрипт (запускается при старте винды):

#NoTrayIcon		; не отображать значок скрипта в трее
#SingleInstance force	; перезагрузить скрипт, если он уже запущен
DetectHiddenWindows, On	; искать в скрытых окнах
#NoEnv			; запрещаем имена переменных как у переменных окружения
SendMode Input		; ускорренный ввод
;~ #WinActivateForce	; жесткая активация окна

^!+a::RButton		; имитация правой кнопки мышки

^!+b::			; screenshot
;делаем снимок экрана
Send, {PRINTSCREEN} ; снимок всего экрана (PrtSc)
;Send, !{PRINTSCREEN} ; снимок активного окна (Alt + PrtSc)
;создаём пустой файл
FileAppend,, C:\PrScr.bmp
;открываем пустой файл в скрытом окне Paint
Run, mspaint C:\PrScr.bmp,, Hide
;ждём запуска Paint
WinWait, PrScr.bmp - Paint
;команда меню "Правка" - "Вставить"
PostMessage, 0x111, 57637, 0, , PrScr.bmp - Paint
;команда меню "Файл" - "Сохранить"
PostMessage, 0x111, 57603, 0, , PrScr.bmp - Paint
;команда меню "Файл" - "Выход"
PostMessage, 0x111, 57665, 0, , PrScr.bmp - Paint
;ждём завершения работы Paint
WinWaitClose, PrScr.bmp - Paint
FileGetTime, OutputVar, C:\PrScr.bmp, C
;переносим итоговый файл в хранилище и меняем ему имя на уникальное
FileMove C:\PrScr.bmp, C:\Scrns\ss_%OutputVar%.bmp
return

^!+f::			; RR command NEXT
IfWinExist, RoadRunner
{
	WinGet, active_pid, PID, A
        WinActivate, RoadRunner
	WinWaitActive, RoadRunner, , 2
	Send n
	WinActivate, ahk_pid %active_pid%
}
return

^!+g::			; RR command PREV
IfWinExist, RoadRunner
{
	WinGet, active_pid, PID, A
	WinActivate, RoadRunner
	WinWaitActive, RoadRunner, , 2
	Send b
	WinActivate, ahk_pid %active_pid%
}
return

^!+h::			; RR command PLAY
IfWinExist, RoadRunner
{
	WinGet, active_pid, PID, A
	WinActivate, RoadRunner
	WinWaitActive, RoadRunner, , 2
	Send p
	WinActivate, ahk_pid %active_pid%
}
return

^!+i::			; RR command GAMMA
IfWinExist, RoadRunner
{
	WinGet, active_pid, PID, A
	WinActivate, RoadRunner
	WinWaitActive, RoadRunner, , 2
	Send g
	WinActivate, ahk_pid %active_pid%
}
return

Из недостатоков данного скрипта пока обнаружил один - при передаче клавиш управления в RR при запущенной внешней проге (той же навигашке), окно внешней проги вздрагивает.
Возможно, удастся эт дело как-то победить, но как - я пока не нашел.

[ashu]

Новый вариант

В конфиге RR (KeyTBL.ini) теперь пусто (файл я удалил).

AHK-скрипт (avc_control.ahk, запускается при старте винды):

#NoTrayIcon		; не отображать значок скрипта в трее
#SingleInstance force	; перезагрузить скрипт, если он уже запущен
DetectHiddenWindows, On	; искать в скрытых окнах
#NoEnv			; запрещаем имена переменных как у переменных окружения
SendMode Input		; ускорренный ввод

^!+a::RButton		; имитация правой кнопки мышки

^!+b::			; screenshot
;делаем снимок экрана
Send, {PRINTSCREEN} ; снимок всего экрана (PrtSc)
;Send, !{PRINTSCREEN} ; снимок активного окна (Alt + PrtSc)
;создаём пустой файл
FileAppend,, C:\PrScr.bmp
;открываем пустой файл в скрытом окне Paint
Run, mspaint C:\PrScr.bmp,, Hide
;ждём запуска Paint
WinWait, PrScr.bmp - Paint
;команда меню "Правка" - "Вставить"
PostMessage, 0x111, 57637, 0, , PrScr.bmp - Paint
;команда меню "Файл" - "Сохранить"
PostMessage, 0x111, 57603, 0, , PrScr.bmp - Paint
;команда меню "Файл" - "Выход"
PostMessage, 0x111, 57665, 0, , PrScr.bmp - Paint
;ждём завершения работы Paint
WinWaitClose, PrScr.bmp - Paint
FileGetTime, OutputVar, C:\PrScr.bmp, C
;переносим итоговый файл в хранилище и меняем ему имя на уникальное
FileMove C:\PrScr.bmp, C:\Scrns\ss_%OutputVar%.bmp
return

^!+f::			; NEXT теперь передаём сразу винампу
PostMessage, 0x111, 40048,,, ahk_class Winamp v1.x ; следующий трек
return

^!+g::			; PREV теперь передаём сразу винампу
PostMessage, 0x111, 40044,,, ahk_class Winamp v1.x ; предыдущий трек
return

^!+h::			; PLAY/PAUSE теперь передаём сразу винампу
SendMessage, 0x400,, 104,, ahk_class Winamp v1.x ; проверка воспроизведения
    If ErrorLevel = 0 ; если не воспроизводится, то...
        PostMessage, 0x111, 40045,,, ahk_class Winamp v1.x ; включить воспроизведение
    Else ; если воспроизводится, то...
        PostMessage, 0x111, 40046,,, ahk_class Winamp v1.x ; поставить на паузу
return

^!+i::			; RR command GAMMA
Run, "C:\Program Files\RoadRunner\Exec.exe" GAMMA
return

Вздрагивания окна внешней проги теперь нет.

[Z@GR]

Вздрагивания окна внешней проги теперь нет.

А подскажи пожалуйста какой именно строчкой ты этого добился?

[Fedorych]

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

пока нашел только это
Media_Play_Pause:: ; обработка мультимедийной клавы
Media_Stop:: ; обработка мультимедийной клавы
Media_Prev:: ; обработка мультимедийной клавы
Media_Next:: ; обработка мультимедийной клавы

чуть позже и это
Volume_Mute
Volume_Down
Volume_Up

полезная страничка

[Z@GR]

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

пока нашел только это
Media_Play_Pause:: ; обработка мультимедийной клавы
Media_Stop:: ; обработка мультимедийной клавы
Media_Prev:: ; обработка мультимедийной клавы
Media_Next:: ; обработка мультимедийной клавы

приаттачил прмер - думаю будут команды эти работать


хотя там примеры для управления именно Win Media Player

[Fedorych]

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

[ashu]

Новая версия скрипта avc_control.ahk

Выполняемые скриптом задачи:

1. Иногда при выходе из спящего режима RR не запускает автоматически WinAmp на воспроизведение. Подозреваю, что это связано с задержками, вызванными моим решением проблемы долгой инициализации звуковой usb-карты - перезапуском WinAmp'а. Скрипт avc_control.ahk отслеживает перезапуск WinAmp'а и посылает ему команду на начало воспроизведения.

2. Как показало расследование, в моём компе есть некий глюк то ли программный - в дровах, то ли аппаратный - в материнке... Но так или иначе случаются проблемы с зависанием компа после выходы из спящего режима. Эти проблемы, как мне кажется, решены (описано в ветке моего проекта). Однако, редко, но после выхода из спящего режима случается проблема вылета по ошибке какой-то службы Windows. Причём, только тогда, когда запущен и работает СитиГид... Как выяснилось, вылетает служба Windows Audio. Забавно, но WinAmp при этом продолжает нормально работать. Скрипт avc_control.ahk обрабатывает эту ситуацию - скидывает окно сообщения об ошибке и перезапускает службу Windows Audio.

3. В случае не планируемой перезагрузки компа (например, по кнопке питания или через reset) PowerStrip выкидывает окно с вопросом о восстановлении. На нём надо всего лишь нажать "Да", с чем успешно справляется утилитка от kolychev'а, но зачем запускать кучу прог, когда всё можно сделать силами того же скрипта avc_control.ahk?

4. Обработка клавиатурных комбинаций, приходящих при нажатии штатных кнопок на консоли от avc_usb.exe - управление WinAmp'ом, снятие скриншота и передача горячих клавиш в PowerStrip для управлением гаммой "день/ночь" и показом/скрытием мышки.

5. Имитация нажатия правой кнопки мышки

Чтобы RR не путал WinAmp и KMPlayer, WinAmp через настройки RR запускается с идентификатором класса RRWinamp.

#NoTrayIcon             ; не отображать значок скрипта в трее
#SingleInstance force   ; перезагрузить скрипт, если он уже запущен
DetectHiddenWindows, On ; искать в скрытых окнах
#NoEnv                  ; запрещаем имена переменных как у переменных окружения
SendMode Input          ; ускоренный ввод

WinAmpActive := 0 ; первоначально считаем, что WinAmp не запущен
day := 1 ; гамма в положении "день"

; Вечный цикл обработки ситуаций
Loop
{
        If WinAmpActive = 0
        {
                IfWinExist, ahk_class RRWinamp
                {
; WinAmp не был запущен, а сейчас найден в списке окон
                        Sleep 2000 ; подождать 2 секунды пока WinAmp запускается
                        PostMessage, 0x111, 40045,,, ahk_class RRWinamp ; включить воспроизведение
                        WinAmpActive := 1 ; считаем WinAmp запущенным
                }
        }
        Else
        {
                IfWinNotExist, ahk_class RRWinamp
                {
; Считали WinAmp запущенным, а сейчас не видим в списке окон
                        WinAmpActive := 0 ; считаем WinAmp не запущенным
                }
        }
        IfWinExist, Меры предосторожности
        {
; Найдено стартовое окно восстановления PowerStrip'а
                WinActivate
                Send, Д ; нажимаем кнопку "Да"
        }
        IfWinExist, svchost.exe - Ошибка приложения
        {
; Скидываем полученную ошибку приложения (вероятнее всего служба Windows Audio)
                WinActivate
                Send, {Esc} ; посылаем нажатие клавиши Escape - нажатие кнопки Cancel на форме
                Run, nircmd service restart AudioSrv,, Hide ; перезапускаем службу Windows Audio
        }
        Sleep 1000 ; спим 1 секунду и повторяем проверки
}

; Транслируем нажатие кнопки на консоли в горячую клавиатурную комбинацию
; для PowerStrip'а - включение/выключение режима скрытия указателя мышки
^!+c::^!5

^!+b::RButton           ; имитация правой кнопки мышки

^!+a::                  ; делаем screenshot всего экрана
RunWait, nircmd savescreenshot C:\PrScr.png,, Hide
FileGetTime, OutputVar, C:\PrScr.png, C
FileMove C:\PrScr.png, C:\Scrns\ss_%OutputVar%.png
return

^!+e::                  ; переключаемся на следующий трек
PostMessage, 0x111, 40048,,, ahk_class RRWinamp ; следующий трек
return

^!+f::                  ; переключаемся на предыдущий трек
PostMessage, 0x111, 40044,,, ahk_class RRWinamp ; предыдущий трек
return

^!+h::                  ; кнопка воспроизведение/пауза
SendMessage, 0x400,, 104,, ahk_class RRWinamp ; проверка воспроизведения
If ErrorLevel = 0 ; если не воспроизводится, то...
        PostMessage, 0x111, 40045,,, ahk_class RRWinamp ; включить воспроизведение
Else ; если воспроизводится, то...
        PostMessage, 0x111, 40046,,, ahk_class RRWinamp ; поставить на паузу
return

^!+i::                  ; переключение гаммы "день/ночь" - посылаем комбинации в PowerStrip
If(!day)
{
        Send, ^!1 ; посылаем в PowerStrip - "включить дневной профиль"
        day := 1
}
Else
{
        Send, ^!2 ; посылаем в PowerStrip - "включить ночной профиль"
        day := 0
}
return

[ashu]

Вчера вечером от него делать, видимо , увеличил количество кода в avc_control.ahk - немного расширил функционал: теперь он еще следит за логом СитиГида (History.txt) и выводит из него время последнего успешно полученного пробочного файла в RR-скин СитиГида (плюс, меняет цвет времени файла пробок с зеленого на красный, если файл пробок старее 15 минут). Заодно перевтыкает usb-адаптер bluetooth, если обнаружит ошибку связи (один раз, обычно помогает).
Еще немного поотлавливаю в нём косяки (утром уже два нашел) и, если кому интересно, выложу тут

[ashu]

Всё ж, наверное, лучшее - враг хорошего... Переделал скриптец... Теперь помимо слежения за логом СитиГида он еще общается туда-сюда с RR через SendMessage и обслуживает интернет-подключение... Осталось отловить всех жуков

[ashu]

Ну, вроде б ошибки отловил...

[Скрипт содержал ошибки, поэтому удалён. Новая версия ниже в ветке]