Home of Gamehacking - Archiv
VB 2010 - Dead Island Riptide 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 2010 - Dead Island Riptide Trainer (/showthread.php?tid=1505)

Seiten: 1 2

RE: VB 2010 - Dead Island Riptide Trainer - Struppi - 15.06.2013

So ich habe nochmals sorgfältig nach den ganzen Pointern gesucht und mehr mals getestet, aber es funktioniert dennoch nicht -.-
In VB sieht der Code nun so aus:

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
'Teleporter
        'Aktuelle Position speichern.
        If GetAsyncKeyState(VK_NUMPAD9) Then
            GetProcessId(ProcName)

            Dim pointer1 As Int32
            Dim pointer2 As Int32
            Dim pointer3 As Int32

            pointer1 = Read_Long(GetModuleBase(ProcName, "gamedll_x86_rwdi.dll") + &HC6E13C)
            pointer2 = Read_Long(pointer1 + &H7E4)
            pointer3 = Read_Long(pointer2 + &H2FC)

            Dim pointer4 As Int32
            Dim pointer5 As Int32
            Dim pointer6 As Int32

            pointer4 = Read_Long(GetModuleBase(ProcName, "gamedll_x86_rwdi.dll") + &HC3E880)
            pointer5 = Read_Long(pointer4 + &H80)
            pointer6 = Read_Long(pointer5 + &H348)

            Dim pointer7 As Int32
            Dim pointer8 As Int32
            Dim pointer9 As Int32

            pointer7 = Read_Long(GetModuleBase(ProcName, "gamedll_x86_rwdi.dll") + &HC6E2E8)
            pointer8 = Read_Long(pointer7 + &H148)
            pointer9 = Read_Long(pointer8 + &H10C)

            Telepointer = Read_Long(&H40003D)
            XKoord = Read_Long(Telepointer + pointer3 + &H0)
            YKoord = Read_Long(Telepointer + pointer6 + &HA0)
            ZKoord = Read_Long(Telepointer + pointer9 + &H9C)
            System.Threading.Thread.Sleep(500)

            'Gespeicherte Position laden.
            If GetAsyncKeyState(VK_NUMPAD8) Then
                GetProcessId(ProcName)

                If XKoord <> 0 Then
                    Write_Long(Telepointer + pointer3 + &H0, XKoord)
                    Write_Long(Telepointer + pointer6 + &HA0, YKoord)
                    Write_Long(Telepointer + pointer9 + &H9C, ZKoord)
                    System.Threading.Thread.Sleep(500)
                End If
            End If
        End If


Wie gesagt da tut sich nichts, Timer und so ist auch an.

VB 2010 - Dead Island Riptide Trainer - DNA - 15.06.2013

Was passiert denn, wenn du die koords in CE
einfrierst?


Sent from my iPhone using Tapatalk 2

RE: VB 2010 - Dead Island Riptide Trainer - Struppi - 15.06.2013

Wenn die die Adressen einfriere kann sich der Spieler nicht weg bewegen.
Habe alle zusammen und einzeln und da beilbt der wo der soll, meiner meinung nach sind die adressen richtig. aber in CE seh ich auch das der die positionen nicht in der codecave adresse schreibt. wie gesagt der liest und schreibt das nicht.

VB 2010 - Dead Island Riptide Trainer - DNA - 15.06.2013

Was steht denn bei &H4003D?


Sent from my iPhone using Tapatalk 2

RE: VB 2010 - Dead Island Riptide Trainer - Struppi - 16.06.2013

Das ist die CodeCave Adresse, wo die Aktuelle Position zwischen gespeichert werden soll.

VB 2010 - Dead Island Riptide Trainer - DNA - 16.06.2013

Schwer nachzuvollziehen, da ich nur sehe, dass du die addi ein mal ausliest.
Müsste ich mir mal genauer anschauen....


Sent from my iPhone using Tapatalk 2