Advertisement
lunxrm00n

Untitled

Jul 26th, 2021
2,334
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Gui, Add, Text,, ------------------------------------------Key Delay-----------------------------------------
  2. Gui, Add, Edit, w300 vKeyDelay, 100
  3. Gui, Add, Text,, ----------------------------------------Piano Music-----------------------------------------
  4. Gui, Add, Edit, R10 w300 vPianoMusic
  5. Gui, Add, Text,,                                  F4 To Play Piano Music
  6. Gui, Add, Text,,                                Press F8 To Suspend/Resume
  7. Gui, Add, Text,,                                  Edited by WalkerOnly
  8. Gui, Show
  9. F4::
  10. !F4::
  11. Gui, Submit, Nohide
  12. PianoMusic := RegExReplace(PianoMusic, "`n|`r|/") ; Remove Stuff
  13. X := 1
  14. while (X:=RegExMatch(PianoMusic, "U)(\[.*]|.)",Keys, X))
  15. {  
  16.     X+=StrLen(Keys)
  17.     Keys := Trim(Keys, "[]")
  18.     SendInput % Keys
  19.     Sleep, %KeyDelay%
  20. }
  21. return
  22.  
  23. f8::
  24.  
  25. Pause
  26.  
  27. Suspend
  28.  
  29. return
  30.  
  31. GuiClose:
  32.     ExitApp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement