Advertisement
Guest User

Untitled

a guest
Sep 16th, 2019
94
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.16 KB | None | 0 0
  1. #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
  2. ; #Warn ; Enable warnings to assist with detecting common errors.
  3. SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
  4. SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
  5.  
  6. !u::Return ; umlaut
  7. !s::SendInput % "ß"
  8.  
  9. *u::umlaut("u","ü","Ü")
  10. *a::umlaut("a","ä","Ä")
  11. *o::umlaut("o","ö","Ö")
  12.  
  13. umlaut(regular,umlautOption,umlautShiftOption) {
  14. if (A_PriorHotKey = "!u" && A_TimeSincePriorHotkey < 2000) {
  15. if (GetKeyState("Shift")) {
  16. SendInput % umlautShiftOption
  17. } else {
  18. SendInput % umlautOption
  19. }
  20. } else {
  21. if (GetKeyState("Shift") or GetKeyState("Capslock","T")) {
  22. SendInput % "+" regular
  23. } else {
  24. SendInput % regular
  25. }
  26. }
  27. }
  28.  
  29. ^u::Send ^u
  30. ^!u::Send ^!u
  31. ^#u::Send ^#u
  32. ^+u::Send ^+u
  33.  
  34. !#u::Send !#u
  35. !+u::Send !+u
  36.  
  37. #u::Send #u
  38. #+u::Send #+u
  39.  
  40.  
  41. ^a::Send ^a
  42. ^!a::Send ^!a
  43. ^#a::Send ^#a
  44. ^+a::Send ^+a
  45.  
  46. !a::Send !a
  47. !#a::Send !#a
  48. !+a::Send !+a
  49.  
  50. #a::Send #a
  51. #+a::Send #+a
  52.  
  53.  
  54. ^o::Send ^o
  55. ^!o::Send ^!o
  56. ^#o::Send ^#o
  57. ^+o::Send ^+o
  58.  
  59. !o::Send !o
  60. !#o::Send !#o
  61. !+o::Send !+o
  62.  
  63. #o::Send #o
  64. #+o::Send #+o
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement