VB Trainer

[DNA]

Hey,

dann müsstest du den Code jetzt erstmal so lassen und dir die Koordinaten
für jede einzelne Position notieren, zu der du dich nachher teleportieren möchtest.
Wenn du soweit bist, kannst du dich nochmal melden, dann mach ich dir den
restlichen Code fertig.

[Struppi]

Hi, laut msgbox kommen diese koordinaten bei raus.
Das sind die Koordinaten zum Stromkasten^^

XKoord= -1006153898
YKoord= 1151608972
ZKoord= -1048707072

Den Code habe ich umgebastelt, weil ich ein Fehler im Trainermodul angezeigt bekomme. Wenn ich den oben gennanten Code nutze:

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

da wo der Pfeil ist soll ein Fehler sein, unten im VB wird mir folgendes angezeigt:

Fehler 2 Der Wert vom Typ "Integer" kann nicht in "CoDBlackOpsZombieHack.TrainerModul.Teleporter" konvertiert werden.

Fehler 1 Der Wert vom Typ "CoDBlackOpsZombieHack.TrainerModul.Teleporter" kann nicht in "Boolean" konvertiert werden.

[DNA]

Ist denn die Position des Stromkastens die einzige, die du im Trainer
hinterlegen möchtest?

[Struppi]

Ja das solte so sein.
Was ist mit die beiden Fehler ? Muss ich die beachten ?

Fehler 2 Der Wert vom Typ "Integer" kann nicht in "CoDBlackOpsZombieHack.TrainerModul.Teleporter" konvertiert werden.

Fehler 1 Der Wert vom Typ "CoDBlackOpsZombieHack.TrainerModul.Teleporter" kann nicht in "Boolean" konvertiert werden.

[DNA]

Versuch mal das 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, Tele, 0)
System.Threading.Thread.Sleep(500)
End If

ElseIf GetAsyncKeyState(VK_Numpad5) Then
GetProcessId(ProcName)

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

End If[/code]

So kannst du mit Num 3 deine aktuelle Position ganz normal speichern,
mit Num 4 die gespeicherte Position laden und mit Num 5 kannst
du dich zum Stromkasten teleportieren.

[Struppi]

Danke, Aber das geht nicht.
Da kommt wieder der Fehler, wie oben beschrieben.

[DNA]

Hey,
hast du Teamviewer und skype? Wäre einfacher, wenn
ich mit mal das Gesamtpaket angucken kann.

[Struppi]

Ja die Projektmappe kann ich dir schicken...
Teamspeak könnte ich drauf machen.

[DNA]

Das mit der Projektmappe können wir testen... kannst du das irgendwo
hochladen?

[Struppi]

Ja, Ich habe dir eine PN geschickt.
Ansonsten würde es noch per TS3 gehen.