VB Trainer

[DNA]

In meinem aktuellen Trainermodul habe ich eine Funktion eingebaut und
durch diese Funktion kann man Koordinaten mit nur einer Zeile
lesen bzw. schreiben (+ evtl. CI), z.B. so

[code=VB]
Stromkasten = Read_Koord(addi, &HOFFSET, 0) 'lesen

Write_Koord(addi, &HOFFSET, Stromkasten, 0) 'schreiben
[/code]

In deinem Fall würde dass dann ungefähr so aussehen:
[code=VB]
Dim Telepointer as Int32
Dim Stromkasten as New Teleporter

If GetAsyncKeyState(VK_Numpad0) Then
GetProcessId(ProcName)
Telepointer = Read_Long(&H400348)
Stromkasten = Read_Koord(Telepointer + &H1C08B64, 0, 1)
System.Threading.Thread.Sleep(500)
ElseIf GetAsyncKeyState(VK_Numpad1) Then
GetProcessId(ProcName)

If NOT Stromkasten.XKoord = 0 Then
Telepointer = Read_Long(&H400348)
Write_Koord(Telepointer + &H1C08B64, 0, Stromkasten, 1)
System.Threading.Thread.Sleep(500)
End If
End If[/code]
Das sollte zum lesen/schreiben eigentlich reichen

Um die Koordinaten für die einzelnen Positionen zu bekommen, müsstest du
folgenden Code benutzen:

[code=VB]
Dim Telepointer as Int32
Dim Stromkasten as New Teleporter

If GetAsyncKeyState(VK_Numpad0) Then
GetProcessId(ProcName)
Telepointer = Read_Long(&H400348)
Stromkasten = Read_Koord(Telepointer + &H1C08B64, 0, 1)
msgbox ("X = " & Stromkasten.XKoord & Chr(13) & "Y = " & Stromkasten.YKoord & _
Chr(13) & "Z = " & Stromkasten.ZKoord)
System.Threading.Thread.Sleep(500)
ElseIf GetAsyncKeyState(VK_Numpad1) Then
GetProcessId(ProcName)

If NOT Stromkasten.XKoord = 0 Then
Telepointer = Read_Long(&H400348)
Write_Koord(Telepointer + &H1C08B64, 0, Stromkasten, 1)
System.Threading.Thread.Sleep(500)
End If
End If[/code]

Jetzt wird dir jedes mal, wenn du den lesen Hotkey drückst, deine aktuellen X, Y und Z Koordinaten
angezeigt.
Diese notierst du dir und machst dann weiter, so wie ich es oben schon beschrieben habe.

Wenn du noch fragen hast, frag ruhig