HotKey - Установка горячих клавиш

madmasles · 11 Апр 2011

OffTopic:
Kaster [?]

http://forum.script-coding.com/viewtopic.php?pid=46555#p46555

+1 ;D

wobl · 12 Апр 2011

Спасибо за орфографию.

wobl · 12 Апр 2011

Спасибо всем, не получалось из-за того, autoit установил до того как нашел этот сайт, ошибка была в том что при установке не указал«Select a default option for *.au3 files.»

Medved · 5 Янв 2012

HotKey UDF у меня на одном хоткее дает странный глюк -- отпадает весь ввод с клавы, пока снова на хоткей не нажмешь. Связано с функций WinActivate, которая запускается в теле основного цикла программы по изменению флага обработчиком хоткея. На встроенной функции все хорошо.

Пример:

Код:

;Нужные инклуды
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <HotKey.au3>
#include <vkConstants.au3>

;Глобальные константы
Global Const $TICK = 1 ;время сна карусели в мс
Global Const $WINDOW = 0
Global Const $CONTROL = 1
Global Const $TIME = 2
Global Const $PAUSE_TIME = 3

;Глобальные переменные
Global $Pause = 0
Global $Quit = 0
Global $PauseData[4]


;Обработчики нажатий на клавиатуру
_HotKey_Assign($VK_PAUSE, 'TogglePause') ;Перехватчик кнопки Pause Break
;HotKeySet('{PAUSE}', 'TogglePause') ;Перехватчик кнопки Pause Break
_HotKey_Assign(BitOR($CK_CONTROL, $VK_Q), 'ToggleQuit') ;Перехватчик Ctrl+Q выхода

;Пауза
Func Pause()
	Switch $Pause
	Case 1 ;поддерживаем паузу
		If TimerDiff($PauseData[$TIME]) > 290000 Then ;прошло 4 минуты 50 секунд
			$PauseData[$PAUSE_TIME] += 5 ;время на паузе
			TrayTip('На паузе', 'уже '& $PauseData[$PAUSE_TIME] &' минут', 20, 1)
			ControlFocus($PauseData[$WINDOW], '', $PauseData[$CONTROL]) ;Возвращаем фокус
			ControlSend($PauseData[$WINDOW], '', $PauseData[$CONTROL], '{PAUSE}{PAUSE}')
			$PauseData[$TIME] = TimerInit() ;считаем время снова
		EndIf
	Case 2 ;снимаем с паузы
		WinActivate($PauseData[$WINDOW]) ;!!! НА ЭТОЙ СТРОКЕ ГЛЮЧИТ !!!
		ControlFocus($PauseData[$WINDOW], '', $PauseData[$CONTROL]) ;Возвращаем фокус
		ControlSend($PauseData[$WINDOW], '', $PauseData[$CONTROL], '{PAUSE}')
		$Pause = 3 ;в ожидании активизации
	Case 3 ;ждем активации окна
		If WinActive($PauseData[$WINDOW]) Then ;если окно активное, то
			$Pause = 0 ;готовы снова поставить на паузу
		EndIf
	EndSwitch
EndFunc

;Завершение работы
Func Terminate()
	If $Quit > 0 Then ;пора выходить?
		If TimerDiff($Quit) > 5000 Then ;прошло 5 секунд
			Exit ;выходим
		EndIf
	EndIf
EndFunc

;;;; Тушка проги ;;;;
TrayTip('Прога запущена', 'Нажми "Pause Break" для включения паузы,'& @LF &'"Ctrl+Q" для завершения работы', 30, 1)
;Основной микроцикл карусели фукнций с временем тика 1мс
While 1
	;карусель функций
	Pause()
	Terminate()
	Sleep($TICK)
WEnd
;;;;;;;;

;Обработчик нажатия на "Pause"
Func TogglePause()
	If $Quit = 0 Then ;процедура выхода не запущена?
		Switch $Pause ;в зависимости от состояния паузы
		Case 0 ;не были на паузе
			$Pause = 1 ;теперь на паузе
			TrayTip('Окно поставлено на паузу', 'Сделай себе кофейку', 20, 1)
			$PauseData[$WINDOW] = WinGetHandle('[active]') ;запоминаем окно
			$PauseData[$CONTROL] = ControlGetFocus($PauseData[$WINDOW]) ;запоминаем активный элемент
			$PauseData[$TIME] = TimerInit() ;засекаем время
			$PauseData[$PAUSE_TIME] = 0 ;а тут время на паузе
			ControlSend($PauseData[$WINDOW], '', $PauseData[$CONTROL], '{PAUSE}') 
		Case 1 ;были на паузе
			$Pause = 2 ;снимаем с паузы
			TrayTip('Пауза', 'снята', 20, 1)
		Case Else
			TrayTip('Пауза', 'снята', 20, 1)
		EndSwitch
	EndIf
EndFunc

;Обработчик нажатия на "Ctrl+Q"
Func ToggleQuit()
	If $Quit = 0 Then ;процедура выхода не запущена?
		TrayTip('Завершаем работу', 'До новых встреч!', 5 ,1)
		If $Pause = 1 Then ;Если были на паузе, то завершаем паузу
			$Pause = 2
		EndIf
		$Quit = TimerInit()
	EndIf
EndFunc

Нажимаем на любом окне паузу, немного ждем и повторяем нажатие -- клава отпадает. Нажимаем 3 раз и возвращается. С встроенной функцией такого не наблюдается. Как видим, глючит место, которое к прерываниям вообще отношения не имеет :whistle:

Yashied · 8 Янв 2012

Как не пытался, так и не смог воспроизвести указанную проблему. Какая у вас версия OC и AutoIt? И еще, может все же проблема не в WinActivate(), а в ControlSend(), которая в свою очередь генерирует низкоуровневое прирывание.

Dimmak · 8 Апр 2012

Код:

#Include <HotKey.au3>
#Include <vkConstants.au3>

HotKeySet( '+1', '_set' ) ; активирует горячую клавишу
HotKeySet( '+2', '_release' ) ; деактивирует


Func _set()
	_HotKeyAssign(BitOR($CK_WIN, $VK_1), '_func')
EndFunc

Func _release()
	_HotKeyAssign(BitOR($CK_WIN, $VK_1) )
EndFunc


Func _func()

	_release() ; теоретически должна произойти деактивация, но нет...
		ShellExecute('C:\')

EndFunc

While 1
	Sleep(10)
WEnd

Не могу разобраться... :stars: Помогите пожалуйста ;)
Почему при вызове _func() не происходит деактивация( Win+1 )?

Yashied · 8 Апр 2012

Это защита от вызова функций внутри callback'а. Отключить ее можно так:

Код:

_HotKey_Assign(BitOR($CK_WIN, $VK_1), '', $HK_FLAG_NOERROR)

Mancoffee · 20 Июн 2012

Можно ли определить какой программой занята горячая клавиша? Занята ли вообще узнал с помощью ActiveHotKey. А чем неизвестно

zarius · 5 Фев 2013

Проблема с использованием HotKey.au3: скрипт запускается, хоткеи отрабатываются нормально первые несколько раз, затем пару раз - отрабатываются через раз, затем вообще не отрабатываются? В чем может быть проблема?

Система: Win8Prof64 AutoIT: 3.3.8.1

Код:

$script_ini_file = @ScriptDir & "\file.ini"

; прочитаем из файла значения горячих клавиш и назначим их в системе
$hk1 = IniRead($sчcript_ini_file, "HotKeys", "Proc1", BitOR($CK_CONTROL, $VK_RETURN))
$hk2 = IniRead($script_ini_file, "HotKeys", "Proc2", BitOR($CK_SHIFT, $VK_F1))
$hk3 = IniRead($script_ini_file, "HotKeys", "Proc3", BitOR($CK_SHIFT, $VK_F2))

_HotKeyAssign($hk1, 'Proc1', -1)
_HotKeyAssign($hk2, 'Proc2', -1)
_HotKeyAssign($hk3, 'Proc3', -1)

;цикл ожидания
While 1
    Sleep(10)
WEnd

На стандартной функции HotKeySet все отрабатывается нормально...

ABSOLUTE · 8 Май 2014

Код:

...
GUICreate("", 451, 224, 27, 82, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $StartMenu)
GuiCtrlCreateTab(0,0,401,224,$TCS_BUTTONS + $TCS_MULTILINE + $TCS_RAGGEDRIGHT + $TCS_RIGHTJUSTIFY + $TCS_FLATBUTTONS, 0x00000020)
GUICtrlCreateTabItem("[1]")
$t0hk1 = _GUICtrlCreateHotKeyInput(0,20,30,75,15,0,0x00000020)
...
...
; При нажатии на кнопку
$hotkey1 = _GUICtrlReadHotKeyInput($t0hk1)
_HotKeyAssign($hotkey1,'t0hk1')
...
...
; начало функции
 Func t0hk1()
   Send("Проверка скрипта")
   MsgBox(0,0,"123123123")
 EndFunc

Устанавливаю гор. клавишу в Input, жму кнопку: хоткей должен, по факту, приняться и выполнять функцию t0hk1, однако происходит это странным образом. В данном случае, выводит на экран только MsgBox, ничего не пишет. Если добавить к коду ещё:

Код:

Opt("SendKeyDelay", 40)
   Opt("SendKeyDownDelay",40)

Начинает писать подобное: "а скрипта" или "рипта".
И работает клавиша не постоянно: либо с залипанием, либо через раз. С чем может быть связано?

madmasles · 8 Май 2014

ABSOLUTE,

Предупреждение За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

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

С уважением, ваш Глобальный модератор.

ikif · 4 Сен 2014

День добрый,
Я использую библиотеку HotKey.au3 и функцию _HotKey_Assign...
В Windows 7 and 8 работает нормально , а вот в Windows 8.1 не реагирует на ShortCutы и вылетает с ошибкой.
Продемострировать ошибку не могу , так как это не на моём компе 8.1.

Есть что с этим делать ? Или нет поддержки на 8.1 ?

oesoes · 4 Сен 2014

Ну попросите того, на чьей машине исполняется скрипт привести скрин ошибки, в чем проблема?

alex33 · 6 Сен 2014

Или на виртуалку поставить 8.1 и там запустить.

winix · 7 Июл 2015

Хорошо бы поправить в шапке что _HotKeyAssign не существует и надо писать _HotKey_Assign .

Теоретически если нажать f12 то должно быть нажато f11 и я увижу полноэкранный редактор, но ничего не проиходит, также как и с Send ("123") в блокноте.
Если я ставлю MsgBox то он работает.

Код:

#include <Misc.au3>
#Include <HotKey.au3>

Global Const $VK_F12 = 0x7B

_HotKey_Assign($VK_F12, 'Message', BitOR($HK_FLAG_NOBLOCKHOTKEY,$HK_FLAG_DEFAULT, $HK_FLAG_EXTENDEDCALL))

While 1
    Sleep(10)
WEnd

Func Message($iKey)
Send ("{F11}")
 ;MsgBox(0, 'Hot key Test Message', 'F12 (0x' & Hex($iKey, 4) & ') has been pressed!')

EndFunc

Что сделать чтоб тут заработал Send ?

Задача проста, я нажимаю клавишу, скрипт активирует esc для вызова меню и тыкает в нужно место экрана. HotKeySet в проге не работает.
Добавлено:
Сообщение автоматически объединено: 8 Июл 2015

Документация почти никакая, сделал в 2 скрипта.
Мало того что нужно вырубать HotKey так ещё кнопку надо писать в апострофах , хотя со встроенной HotKeySet всегда работали кавычки

Код:

#include <Misc.au3>
#include <HotKey.au3>
#include <vkConstants.au3>

Dim $size[2] = [1280,1024]
AutoItSetOption("MouseCoordMode", 2)
$sProcName3 = "pzrun.exe"
If Not ProcessExists($sProcName3) Then Run($sProcName3)
_HotKey_Assign($VK_F9, 'kill0', BitOR($HK_FLAG_NOBLOCKHOTKEY,$HK_FLAG_DEFAULT, $HK_FLAG_EXTENDEDCALL))
While 1
    Sleep(200)
 WEnd

Func kill0($iKey)
_HotKey_Disable($iKey)
;#cs
Send ('{ESC}')
;MouseClick("left",$size[0]/2,$size[1]/2-142,1,3)
MouseMove($size[0]/2,$size[1]/2-142,0)
Sleep(50)
MouseDown("left")
Sleep(20)
MouseUp("left")
;#ce
Exit
EndFunc

pzrun перезапускатор

Код:

$sProcName2 = "pzavt.exe"
Do
   If Not ProcessExists($sProcName2) Then Run($sProcName2)
   Sleep(1000)
Until 0

Yashied · 9 Июл 2015

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

winix · 28 Июл 2015

Никогда не мог понять этот кусок посреди кода, надеюсь его и не будет в рабочей проге.
While 1
Sleep()
WEnd
Вот както так получилось.

Код:

_HotKey_Assign($VK_F9, 'kill0', BitOR($HK_FLAG_NOBLOCKHOTKEY,$HK_FLAG_DEFAULT, $HK_FLAG_EXTENDEDCALL),$Client)
While 1
_HotKey_Enable()
Sleep(200)
WEnd

 Func kill0($iKey)
_HotKey_Disable($iKey)
Send ('{ESC}')
EndFunc

Невозможно сделать _HotKey_Enable() в конце функции, это нужно делать отдельно или вообще несколько раз чтоб попасть в тайминг

madmasles · 28 Июл 2015

winix,

Предупреждение За нарушение правил форума (пункт В.11):

Любые отрывки AutoIt кода необходимо заключать в тег [autoit]

(подробнее), а обычный код соответственно в тег [code]

(подробнее). Также большие выдержки текста помещайте под тег [spoiler]

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

С уважением, ваш Глобальный модератор.

Добавлено:
Сообщение автоматически объединено: 28 Июл 2015

winix [?]

Никогда не мог понять этот кусок посреди кода

Какое отношение Ваш вопрос имеет к текущей теме?

endpoints · 16 Авг 2016

Подскажите,пожалуйста, как исправить данную ошибку код скрипта из Примера 1

Код:

 >"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\d\config_windows\autoit\hotk.au3"    
"C:\d\config_windows\autoit\hotk.au3" (7) : ==> Unknown function name.:
_HotKeyAssign($VK_F12, 'Message', BitOR($HK_FLAG_DEFAULT, $HK_FLAG_EXTENDEDCALL))
^ ERROR

Garrett · 16 Авг 2016

endpoints
Нет функции _HotKeyAssign, есть функция _HotKey_Assign.

Автор темы	Похожие темы	Форум	Ответы	Дата
K	hotkeyset ограничить количество нажатий горячих клавиш (Защита от зажатой клавиши)	Общие вопросы по AutoIt	2	30 Окт 2023
	Не срабатывает HotKeySet	Общие вопросы по AutoIt	2	24 Май 2023
N	Можно ли назначать HotKeySet, определенной программе?	Общие вопросы по AutoIt	9	25 Мар 2023
E	Разрешить HotKeySet	GUI - Графический интерфейс пользователя	14	5 Дек 2022
	Не "блокируется" HotKey	Общие вопросы по AutoIt	1	6 Сен 2022

HotKey - Установка горячих клавиш

Модератор

Новичок

Новичок

Новичок

Модератор

Знающий

Модератор

Свет проталкивает тьму ...

Новичок

AutoIT User

Модератор

Новичок

xor eax,eax

Скриптер

Модератор

Модератор

Новичок

Модератор