I have that piece in my AHK script:
Code: Select all
<^>^+n::
send nnn
return
<^>^+e::
send eee
return
Code: Select all
<^>^+n::
send nnn
return
<^>^+e::
send eee
return
<^>^+s::
send sss
return
Code: Select all
<^>^+n::
send nnn
return
<^>^+e::
send eee
return
Code: Select all
<^>^+n::
send nnn
return
<^>^+e::
send eee
return
<^>^+s::
send sss
return
Code: Select all
#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.
<^>^n::
Send N
return
<^>^i::
Send I
return
<^>^u::
Send U
return
<^>^e::
Send E
return
<^n::
Send ln
return
<^i::
Send li
return
<^u::
Send lu
return
<^e::
Send le
return
>^n::
Send rn
return
>^i::
Send ri
return
>^u::
Send ru
return
>^e::
Send re
return
Code: Select all
74 03F u 0.08 F5
A3 11D d 3.98 RControl
A2 01D d 0.06 LControl
49 017 h d 0.17 i
A2 01D i u 0.00 LControl
A3 11D i u 0.00 RControl
A0 02A i d 0.00 LShift
49 017 i d 0.00 i
49 017 i u 0.00 i
A0 02A i u 0.00 LShift
A2 01D i d 0.00 LControl
A3 11D i d 0.00 RControl
49 017 s u 0.14 i
A3 11D u 0.03 RControl
A2 01D u 0.01 LControl
74 03F d 0.58 F5
Code: Select all
74 03F u 0.11 F5
A3 11D d 2.21 RControl
A2 01D d 0.09 LControl
4E 031 h d 0.05 n
A2 01D i u 0.00 LControl
A3 11D i u 0.00 RControl
52 013 i d 0.00 r
52 013 i u 0.00 r
4E 031 i d 0.00 n
4E 031 i u 0.00 n
A2 01D i d 0.00 LControl
A3 11D i d 0.00 RControl
4E 031 s u 0.11 n
A2 01D u 0.05 LControl
A3 11D u 0.01 RControl
74 03F d 0.59 F5
Code: Select all
#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.
<^n::
Send ln
return
<^i::
Send li
return
<^u::
Send lu
return
<^e::
Send le
return
>^n::
Send rn
return
>^i::
Send ri
return
>^u::
Send ru
return
>^e::
Send re
return
<^>^n::
Send N
return
<^>^i::
Send I
return
<^>^u::
Send U
return
<^>^e::
Send E
return
Code: Select all
Loop, 26
{
Hotkey, % "<^>^" Chr(96+A_Index), MyLabel
Hotkey, % "<^" Chr(96+A_Index), MyLabel
Hotkey, % ">^" Chr(96+A_Index), MyLabel
}
return
MyLabel:
vHotkey := A_ThisHotkey
vHotkey := StrReplace(vHotkey, "<^>^", "_") ;both LCtrl and RCtrl
vHotkey := StrReplace(vHotkey, "<^", "L") ;LCtrl
vHotkey := StrReplace(vHotkey, ">^", "R") ;RCrtl
SendInput, % vHotkey
;SoundBeep
return
;all 3 types of hotkey on
;output ;problem keys in uppercase
;_q_w_eRr_t_yRuRi_oRp ;qweRtyUIoP
;_a_sRd_fRg_h_jRk_l ;asDfGhjKl
;RbRn ;ZXCVBNM ;some keys weren't even received
;only the 'both' type of hotkey on
;output ;problem keys in uppercase
;_q_w_e_r_t_y_u_i_o_p ;qwertyuiop
;_a_s_d_f_g_h_j_k_l ;asdfghjkl
;_b_n ;ZXCVbnM ;some keys weren't received
Code: Select all
*<^n::
*<^i::
*<^u::
*<^e::
if GetKeyState("RCtrl", "P")
SendInput, % "_" SubStr(A_ThisHotkey, StrLen(A_ThisHotkey))
else
SendInput, % "L" SubStr(A_ThisHotkey, StrLen(A_ThisHotkey))
return
*>^n::
*>^i::
*>^u::
*>^e::
if GetKeyState("LCtrl", "P")
SendInput, % "_" SubStr(A_ThisHotkey, StrLen(A_ThisHotkey))
else
SendInput, % "R" SubStr(A_ThisHotkey, StrLen(A_ThisHotkey))
return
Code: Select all
#If GetKeyState("LCtrl", "P") && GetKeyState("RCtrl", "P")
*n::
*i::
*u::
*e::
SendInput, % "_" SubStr(A_ThisHotkey, StrLen(A_ThisHotkey))
return
#If
<^n::
<^i::
<^u::
<^e::
if GetKeyState("RCtrl", "P")
SendInput, % "_" SubStr(A_ThisHotkey, StrLen(A_ThisHotkey))
else
SendInput, % "L" SubStr(A_ThisHotkey, StrLen(A_ThisHotkey))
return
>^n::
>^i::
>^u::
>^e::
if GetKeyState("LCtrl", "P")
SendInput, % "_" SubStr(A_ThisHotkey, StrLen(A_ThisHotkey))
else
SendInput, % "R" SubStr(A_ThisHotkey, StrLen(A_ThisHotkey))
return
Users browsing this forum: Google [Bot], RandomBoy, scriptor2016 and 355 guests