Jump to content

Whats that noise?


gamerman2360
 Share

Recommended Posts

Try typing a term paper with this on... >:o

#NoTrayIcon
Opt("ExpandVarStrings", 1)

; "Up to 64 simultaneous hotkeys per script may be registered."
For $i = Asc("A") To Asc("Z"); 65 To 90
    HotKeySet(Chr($i), "HotKeyFunc")
Next

For $i = Asc("a") To Asc("z"); 97 To 122
    HotKeySet(Chr($i), "HotKeyFunc")
Next

For $i = Asc("0") To Asc("9"); 48 To 57
    HotKeySet(Chr($i), "HotKeyFunc")
Next

While True
    Sleep(6000)
WEnd

Func HotKeyFunc()
    Beep(Asc(@HotKeyPressed)*20)
    HotKeySet(@HotKeyPressed)
    Send(@HotKeyPressed)
    HotKeySet(@HotKeyPressed, "HotKeyFunc")
EndFunc
Edited by gamerman2360
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...