Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #SingleInstance force
- #NoEnv
- #Persistent
- Gui, Add, Hotkey, x12 y9 w100 h20 vMyHotkey,
- Gui, Add, Text, x122 y11 , Вызовет Msgbox
- Gui, Add, Button, x12 y39 w100 h30 gSave, Сохраняем
- Gui, Add, Button, x122 y39 w90 h30 gLoad, Загружаем
- Gui, Show,, Заголовок окна Hotkey
- return
- GuiClose(GuiHwnd)
- {
- ExitApp
- }
- Save()
- {
- GuiControlGet, hk,, MyHotkey
- Hotkey, IfWinNotActive, Заголовок окна Hotkey ; все хоткеи, что создадутся ниже в этом потоке будут работать везде кроме активного окна c таким заголовком. Подробнее тут - https://www.autohotkey.com/docs/commands/Hotkey.htm
- Hotkey, % "~" GetKeysVK(hk), hkFunc ; там же можно прилепить всякие модификаторы ~, * и $
- IniWrite, % "~" GetKeysVK(hk), tmp.ini, Section, Key
- }
- Load()
- {
- IniRead, hk, tmp.ini, Section, Key
- Hotkey, IfWinNotActive, Заголовок окна Hotkey ; а можно сделать "Hotkey, IfWinActive, GTA:SA:MP"
- Hotkey, % "~" GetKeysVK(hk), hkFunc
- GuiControl,, "~" MyHotkey, % GetKeysVK(hk)
- }
- GetKeysVK(Hotkey)
- {
- RegExMatch(Hotkey, "S)^([\^\+!]*)(.*?)$", K)
- If (StrLen(K2) = 1 && !Instr("1234567890-=", K2))
- Return K1 . Format("vk{:X}", GetKeyVK(K2))
- Return Hotkey
- }
- hkFunc()
- {
- MsgBox, 0, Кнопка работает, Доброго времени суток`, господа и дамы, 2
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement