(01.09.2010, 22:45)DNA schrieb: Ich war mal so frei deinen Quellcode ein wenig zu bearbeiten
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?
02.09.2010, 00:18 (Dieser Beitrag wurde zuletzt bearbeitet: 02.09.2010, 01:58 von chesar.)
Ja ich weiß
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
also ... beim drücken einer Taste soll Checkbox1.Checked = True sein,
funktioniert bei mir ohne Probleme
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
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
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.
(02.09.2010, 13:05)chesar schrieb: Wenn ich dich nicht hätte :heart:
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
Puh, ich weiß gar nicht mehr genau, wann ich mit VB angefangen habe, is
aber schon ne weile her
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.
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
Du kannst aber auch die Schriftart als Ressource beipacken und
die im Trainer aufrufen und z.B. dem Label zuweisen