Project Dolphin Pulse Cheat

[SimDaDim]

hei.

 

Har laget et litet program som cheater det Project Dolphin pulse programmet til å tro at du trykker på MANGE fler taster en du gjør.

 

Gidder ikke poste filer, så skriver kode og objekter her:

 

2x Label v navn "Label1" og "Label2"

1x Command v navn Command1

1x Combo boks der du lager en egen liste eks "1000, 2000, 5000, 10000, 50000" eller no.

1x timer m intervall 1

 

Her er koden

Dim ganger As Currency
Private Sub Command1_Click()
ganger = Combo1.Text
ganger = ganger - 50
If Timer1 = False Then
Label1.Caption = 0
Timer1 = True
Else
Timer1 = False
End If
End Sub

Private Sub Command2_Click()
Me.Caption = Combo1.Text
End Sub

Private Sub Form_Load()
Label1.Caption = 0
Label2.Caption = 0
End Sub

Private Sub Timer1_Timer()
If Label1.Caption <= ganger Then
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
SendKeys vbKeyInsert
Label1.Caption = Label1.Caption + 50
Label2.Caption = Label2.Caption + 50
Else
Timer1 = False
End If
End Sub

Vet det er en dum måte å skrive SendKeys så mange ganger etter hverandre, men ville bare gjøre det enklest mulig

 

OBS, fare. Kan få PCen til å henge seg!!

[GeirGrusom]

Du hadde vel spart en del linjer med kode hvis du hade skrevet en for løkke;)

Dim x As Long
For X = 0 To ganger
 SendKeys vbKeyInsert
Next

[aadnk]

OBS, fare. Kan få PCen til å henge seg!!

Bruk en for-løkke, som GeirGrusom nevner, og sleng inn en DoEvents etter SendKeys:

 

Dim Tell As Long

 

For Tell = 0 To ganger

    SendKeys vbKeyInsert

    DoEvents

Next

 

For øvrig synes jeg det er nokså idiotisk å jukse - hva er vitsen da? Hva er så imponerende med flere millioner registerte tastetrykk om alle hadde jukset?

[SimDaDim]

Helt enig. Men er jo litt gøy å se om man kan strekke grensene litt da...