VB Trainer

[Struppi]

Das untere will mir grad nicht so in den Kopf^^
Der Teleporter zum speichern und laden sieht bei mir so aus

[code=VB]
Dim Telepointer As Int32
Dim XKoord As Single
Dim YKoord As Single
Dim ZKoord As Single





Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(VK_Numpad0) Then
GetProcessId(ProcName)

Dim caveaddr = &H764C91
Dim origaddr = &H764C91
RemoveProtection(ProcName, caveaddr, 1)
Dim cavebytes() As Byte = {&H90}
Dim origbytes() As Byte = {&H24, &HF3}
autopatcher(caveaddr, cavebytes)
autopatcher(origaddr, origbytes)

Telepointer = Read_Long(&H400348)
XKoord = Read_Long(Telepointer + &H1C08B64)
YKoord = Read_Long(Telepointer + &H1C08B68)
ZKoord = Read_Long(Telepointer + &H1C08B6C)

System.Threading.Thread.Sleep(500)
ElseIf GetAsyncKeyState(VK_Numpad1) Then
GetProcessId(ProcName)

If XKoord <> 0 Then
Write_Long(Telepointer + &H1C08B64, XKoord)
Write_Long(Telepointer + &H1C08B68, YKoord)
Write_Long(Telepointer + &H1C08B6C, ZKoord)
System.Threading.Thread.Sleep(500)

End If
End If
End Sub[/code]