Güncel speed hack fonksiyonu

Timer ;

Kod:

On Error Resume Next
If Check1.Value And Form1.Check1.Value = 1 Then
If .CharId > "0000" And GetAsyncKeyState(&HA2) Then .GogoKor .MouseX, .MouseY
End With
Next
End If
End Sub

Kod:

Public Sub GogoKor(XKor As Integer, YKor As Integer)
Dim FarkX As Long, FarkY As Long
Dim ZıplaX As Integer, ZıplaY As Integer
FarkX = XKor - CharX
FarkY = YKor - CharY
ZıplaX = 5
ZıplaY = 5

If CharX = XKor And CharY = YKor Then
Exit Sub
End If
Dim i
For i = 1 To 5
If FarkX = -1 * i Or FarkX = i Then
ZıplaX = 1
ElseIf FarkY = -1 * i Or FarkY = i Then
ZıplaY = 1
End If
Next i

If FarkX <> 0 Or FarkY <> 0 Then
If FarkX < 0 Then
WriteFloat ReadLong(KO_PTR_CHR) + &HC4, CharX - ZıplaX
ElseIf FarkX > 0 Then
WriteFloat ReadLong(KO_PTR_CHR) + &HC4, CharX + ZıplaX
End If
If FarkY < 0 Then
WriteFloat ReadLong(KO_PTR_CHR) + &HCC, CharY - ZıplaY
ElseIf FarkY > 0 Then
WriteFloat ReadLong(KO_PTR_CHR) + &HCC, CharY + ZıplaY
End If
PaketYolla "06" & FormatHex(Hex(CInt(CharX) * 10), 4) & FormatHex(Hex(CInt(CharY) * 10), 4) & FormatHex(Hex(CInt(CharZ) * 10), 4) & "2D0003"
End If
End Sub

Biraz Acele Oldu eksiğim varsa siz taammlayın mazur görün
Mausex MauseY ekleyip yapabilirsiniz biraz daha geliştirebilirsiniz duraklama olmadan speed hacktir