VB Trainer

[Struppi]

So nun soweit so gut^^
Ich habs hingekriegt, das die Koordinaten ausgelesen werden.
Ich habe es ein wenig umgebaut, weil es bei mir jetzt nicht anders ging!
Aber es funktioniert irgendwie, wie oben beschrieben habe ich die Daten notiert und eingefügt. Im Spiel portet er auch dahin wo er hin soll^^
Aber bei mir sieht der Code nun so aus^^


[code=VB]Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
GetProcessId(ProcName)

If GetAsyncKeyState(VK_Numpad3) Then

Stromkasten = Read_Koord(Telepointer, &H1C08B64, 0)
MsgBox("X = " & Stromkasten.XKoord & Chr(13) & "Y = " & Stromkasten.YKoord & _
Chr(13) & "Z = " & Stromkasten.ZKoord)

ElseIf GetAsyncKeyState(VK_Numpad4) Then
GetProcessId(ProcName)

If Not Stromkasten.XKoord = 0 Then
Write_Long(Telepointer + &H1C08B64, Stromkasten.XKoord)
Write_Long(Telepointer + &H1C08B68, Stromkasten.YKoord)
Write_Long(Telepointer + &H1C08B6C, Stromkasten.ZKoord)
System.Threading.Thread.Sleep(500)
End If
End If[/code]