VB Trainer

[DNA]

So,

nimm mal den Code hier:
[code=VB]Dim Tele as New Teleporter
Dim Stromkasten as New Teleporter
Stromkasten.XKoord = -1006153898
Stromkasten.YKoord = 1151608972
Stromkasten.ZKoord = -1048707072


Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

If GetAsyncKeyState(VK_Numpad3) Then
GetProcessId(ProcName)
Tele = Read_Koord(Telepointer, &H1C08B64, 0)

ElseIf GetAsyncKeyState(VK_Numpad4) Then
GetProcessId(ProcName)

If Not Tele.XKoord = 0 Then
Write_Koord(Telepointer, H1C08B64, 0, Tele)
System.Threading.Thread.Sleep(500)
End If

ElseIf GetAsyncKeyState(VK_Numpad5) Then
GetProcessId(ProcName)

Write_Koord(Telepointer, H1C08B64, 0, Stromkasten)
System.Threading.Thread.Sleep(500)

End If[/code]