VB Trainer - Druckversion +- Home of Gamehacking - Archiv (http://archiv-homeofgamehacking.de) +-- Forum: Coding (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=15) +--- Forum: Visual Basic 6, VB.NET (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=19) +--- Thema: VB Trainer (/showthread.php?tid=969) |
RE: VB Trainer - DNA - 11.04.2012 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. RE: VB Trainer - Struppi - 11.04.2012 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. RE: VB Trainer - DNA - 11.04.2012 Ist denn die Position des Stromkastens die einzige, die du im Trainer hinterlegen möchtest? RE: VB Trainer - Struppi - 11.04.2012 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. RE: VB Trainer - DNA - 11.04.2012 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. RE: VB Trainer - Struppi - 11.04.2012 Danke, Aber das geht nicht. Da kommt wieder der Fehler, wie oben beschrieben. RE: VB Trainer - DNA - 11.04.2012 Hey, hast du Teamviewer und skype? Wäre einfacher, wenn ich mit mal das Gesamtpaket angucken kann. RE: VB Trainer - Struppi - 11.04.2012 Ja die Projektmappe kann ich dir schicken... Teamspeak könnte ich drauf machen. RE: VB Trainer - DNA - 12.04.2012 Das mit der Projektmappe können wir testen... kannst du das irgendwo hochladen? RE: VB Trainer - Struppi - 12.04.2012 Ja, Ich habe dir eine PN geschickt. Ansonsten würde es noch per TS3 gehen. |