Home of Gamehacking - Archiv
Arraybereichs - 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: Arraybereichs (/showthread.php?tid=69)

Seiten: 1 2

RE: Arraybereichs - DNA - 01.09.2010

Ich war mal so frei deinen Quellcode ein wenig zu bearbeiten Wink

RE: Arraybereichs - chesar - 01.09.2010

(01.09.2010, 22:45)DNA schrieb: Ich war mal so frei deinen Quellcode ein wenig zu bearbeiten Wink

Erst mal Vielen Danke für deine Arbeit und Mühe
jetzt kommt das aber:sleepy:

Für ein Richtigen Trainer ist der Code 1a

Nur leider für meine Zwecke nicht ganz ok.
z.b. bei dein Code :
Ich Starte den "Hack" mach meine Einstellungen Starte das Game aber die Adresse wir leider nicht geänderte nur wenn ich num0 drücke.
Da ich aber über 20 Einstellmöglichkeiten habe kann ich sie nicht alle auf Tasten Belegen da F1-F12 Frei bleiben müssen!

Bei mein Code :
Starte den "Hack" Starte das Game Tapout zum Desktop mache meine Einstellungen die Adresse ändert sich da sie im Timer steht.

Kennst du nicht eine Möglichkeit wie ich den Fehler bei mir beheben könnte?

RE: Arraybereichs - DNA - 02.09.2010

Mit meiner Methode kannst du ohne Probleme mehr als 20 Funktionen einbauen Wink

Du hast mehrere kleinigkeit drin, die nicht so ganz passen, aber
wenn du möchtest schau ich es mir nochmal an.

RE: Arraybereichs - chesar - 02.09.2010

Ja ich weiß Smiling
aber wie gesagt F1-F12 müssen frei bleiben

ja wer schön wenn du dir es noch mal angucken könntest!
musst mal gucken Starte mal mein Projekt Starte dann die iw4mp
mach ein Hacken bei der Checkbox und Schlisse dann wieder die iw4mp.
Du wirst sehne es kommt ein Fehler :dodgy:

EDIT: Wie kann ich eigentlich bei deine Key Event Checkd True bzw. False machen?
ohne ein Wert du schreiben oder Prüfen ob der Prozess offen ist!

also bei Drücken der Taste Soll die Checkbox .checked = True sein
und beim erneuten drücken False.

so geht je ja leider nicht

Code: 
        If GetAsyncKeyState(VK_F10) Then
            nofog.Checked = True
        ElseIf nofog.Checked = True Then
            nofog.Checked = False
        End If



RE: Arraybereichs - DNA - 02.09.2010

Moin,

also ... beim drücken einer Taste soll Checkbox1.Checked = True sein,
funktioniert bei mir ohne Probleme Wink

Bei deinem Projekt, wird alle 100millisekunden der Wert 0/1 in den Speicher
geschrieben, was eigentlich unnötig ist, da es reicht, wenn man den Wert
1mal schreibt Wink

Dein Fehler ist folgender:

Code:
1
2
3
4
5
6
7
8
9
 
    Private Sub fog1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fog1.Tick
        Dim p As Process() = Process.GetProcessesByName("solitaire")
        Memory.Writememory(p(0), &H6464990, "0", "4")
    End Sub

    Private Sub fog2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fog2.Tick
        Dim p As Process() = Process.GetProcessesByName("solitaire")
        Memory.Writememory(p(0), &H6464990, "1", "4")
    End Sub

Dein Trainer versucht einfach in den Prozess zu schreiben, ohne zu wissen,
ob der Prozess läuft, oder nicht.
Wenn der Prozess nicht läuft, weiß dein Trainer nicht was er machen soll und dann
schmeißt er den Fehler.
Du musst also, bevor du den Wert schreibst, überprüfen, ob der Prozess läuft, oder nicht Wink

Versuch es mal so:

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub fog1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fog1.Tick
        Dim Open = Process.GetProcessesByName(ProcName)
        If Open.Length = 0 Then
            Exit Sub
        End If

        Dim p As Process() = Process.GetProcessesByName("solitaire")
        Memory.Writememory(p(0), &H6464990, "0", "4")
    End Sub

    Private Sub fog2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fog2.Tick
        Dim Open = Process.GetProcessesByName(ProcName)
        If Open.Length = 0 Then
            Exit Sub
        End If

        Dim p As Process() = Process.GetProcessesByName("solitaire")
        Memory.Writememory(p(0), &H6464990, "1", "4")
    End Sub

ProcName musst du natürlich gegen den Prozessnamen tauschen,
sollte aber funktionieren.

RE: Arraybereichs - chesar - 02.09.2010

Wenn ich dich nicht hätte :heart:

Ich muss mich am Wochenende mal hinsetzen und alles paar mal abtippen damit ich mir das einpräge.

Das geht bei dir im Timer?

Code: 
If GetAsyncKeyState(VK_F10) Then
            nofog.Checked = True
        Else
            nofog.Checked = False
        End If


Wie Lange befasst ihr euch eigentlich schon mit VB?

RE: Arraybereichs - DNA - 02.09.2010

(02.09.2010, 13:05)chesar schrieb: Wenn ich dich nicht hätte :heart:
Happy


Code: 
If GetAsyncKeyState(VK_F10) Then
            nofog.Checked = True
        Else
            nofog.Checked = False
        End If


So funktionierts nicht ... aber so:

Code:
1
2
3
4
5
6
7
 
If GetAsyncKeyState(VK_F10) Then
        If nofog.Checked = false then
            nofog.Checked = True
        Elseif nofog.Checked = True then
            nofog.Checked = False
        End If
End If

Wink

Puh, ich weiß gar nicht mehr genau, wann ich mit VB angefangen habe, is
aber schon ne weile her Wink

RE: Arraybereichs - chesar - 02.09.2010

Muss ziemlich lang her sein nach deinem Wissen zu Beurteilen.

Ist das die Schriftart ESP in euren Trainern?
Hatte auch mal nen andere Schrift genommen aber leider wurde diese auf dem anderen Computer nicht angezeigt da die Schriftart nicht auf diesen PC installiert war.

oder lag es einfach nur ein mein Programm?

RE: Arraybereichs - DNA - 02.09.2010

Wenn die Schiftart, die du verwendest, nicht auf dem Zielrechner
installiert ist, dann wird die Standartschiftart verwendet.
Um das zu umgehen, arbeite ich mit Bildern Wink

Du kannst aber auch die Schriftart als Ressource beipacken und
die im Trainer aufrufen und z.B. dem Label zuweisen Wink

Ich verwende die Schriftart "Gunship"