bls000

Send_CS

Jun 29th, 2020
1,709
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. ;~ {NUMPAD0} ~ {NUMPAD9}
  3. HotKeySet('{NUMPAD0}','NUMPAD0')
  4. HotKeySet('{NUMPAD1}','NUMPAD1')
  5. HotKeySet("{esc}", "Sair")
  6.  
  7.  
  8. While 1
  9.    Sleep (30)
  10. WEnd
  11.  
  12. Func coinflip()
  13.    If $flip = 1 Then
  14.    $flip = 0
  15. Else
  16.    $flip = 1
  17.    EndIf
  18. EndFunc
  19.  
  20. ;~ manda b 4 1 sem delay
  21. Func NUMPAD0()
  22.    Send('b41')
  23. EndFunc
  24.  
  25.  
  26. ;~ manda b 4 4 com delay de meio segundo
  27. Func NUMPAD1()
  28.    Send('b')
  29.    Sleep(50)
  30.    Send('4')
  31.    Sleep(50)
  32.    Send('4')
  33. EndFunc
  34.  
  35.  
  36. Func Sair()
  37.    Exit
  38. EndFunc
RAW Paste Data