Click-Game-Cheater

[Regenduft]

Kleiner dreckig zusammengeschusterter Code um bei Click-Games zu cheaten. Große-Augen-Garantie bei Kiddies: "Waaas?! Ich war doch nur kurz pinkeln!! Wie konntest Du so schnell so viele Kekse klicken?! "

EDIT: Ganz vergessen zu schreiben was das Prog eigentlich macht: Es wird ganz einfach alle 3 Millisekunden ein Mausklick gesendet. Natürlich startet das Programm pausiert! Nach dem ersten betätigen von Space geht's los.

Steuerung:

• Space = Pause/Weiter
• Escape = Beenden

Akkustische Rückmeldung via PC-Speaker:

• 500 Hz = beendet wegen SendInput-Fehler
• 1000 Hz = pausiert (Tonhöhe des TV-Testtons)
• 1500 Hz = fortgesetzt
• 2000 Hz = manuell beendet

Viel Spaß beim Kiddies veräppeln!

Code: Alles auswählen

EnableExplicit

Dim KeyInput.INPUT( 1 )

#k1 = #VK_SPACE  ; Pause-Taste
#k2 = #VK_ESCAPE ; Beenden-Taste
#d  = 3          ; Pause in ms zwischen Klicks.

KeyInput( 0 )\type       = #INPUT_MOUSE
KeyInput( 0 )\mi\dwFlags = #MOUSEEVENTF_LEFTDOWN
KeyInput( 1 )\type       = #INPUT_MOUSE
KeyInput( 1 )\mi\dwFlags = #MOUSEEVENTF_LEFTUP

Repeat
  
  Beep_( 1000 , 100 )
  
  While GetAsyncKeyState_( #k1 ) & $8000 : Wend
  Repeat
    If GetAsyncKeyState_( #k1 ) & $8000
      Break
    ElseIf GetAsyncKeyState_( #k2 ) & $8000
      Break 2
    EndIf
    Delay( 100 )
  ForEver
  While GetAsyncKeyState_( #k1 ) & $8000 : Wend
  
  Beep_( 1500 , 100 )
  
  Repeat
    
    If SendInput_( ArraySize( KeyInput() ) + 1 , @ KeyInput() , SizeOf( INPUT ) ) = 0
      Beep_( 500 , 200 )
      End
    EndIf
  
    If GetAsyncKeyState_( #k1 ) & $8000
      Break
    ElseIf GetAsyncKeyState_( #k2 ) & $8000
      Break 2
    EndIf
    
    Delay( 3 )
    
  ForEver

ForEver 

Beep_( 2000 , 100 )