Willkommen zu meinem Tutorial wie man einen kleinen Trainer mit folgenden funktionen in vb6 macht:
-Stamina
-Superjump (mit hotkey)
-no spread
Legende:
Grundlagen: &H <--- steht vor jeder adresse in vb.
0x <--- steht vor jeder adresse in c++.
--------------------------------------------
Jeder Trainer braucht ein Modul, das er funktioniert! (dazu später mehr)
--------------------------------------------------------------
Caption = titel
--------------------------------------------
SEHR SEHR WICHTIG, is auchnoch zu erwähnen das ich immer von timer 1,2,3,4,5... rede. es kommt natürlich immer drauf an wie der timer von euch heisst. (wird in der rechten spalte alles angezeigt..)
Als erstes startet ihr natürlich Vb6, und wählt "Standard Exe" aus.
STAMINA: Als erstes erstellt ihr ein Button.
In den Button schreiben wir das Timer1 angehen soll.
- Code: Alles auswählen
Timer1.Interval = 1
Ein Timer schreibt immer und immer wieder Werte in ein Programm.
Also der timer füllt sozusagen euer Stamina immer und immer wieder randvoll.
so, jetzt erstellt ihr ein Timer.
darein muss folgender code.
- Code: Alles auswählen
Dim stamina As Long
Dim stamina1 As Long
Call ReadALong("Warrock", &H1363380, stamina)
stamina1 = stamina + &H288
Call WriteAFloat("Warrock", stamina1, 100)
1363380 = ADRESSE (bei stamina ist es immer der playerpointer)
288 = offset
100 = Value
Die Adressen sind nach jedem update anders.
(müssen natürlich dann auch immer in eurem trainer geändert werden)
OK, das wars zu Stamina.
Superjump:Das is schon etwas schwerer.
Wir benötigen folgende Elemente:
- 2 Timer
- 1 Textbox
- 1 Checkbox
die "caption" von der Checkbox würde ich zu sowas wie Superjump ändern.
Textbox ist die Höhe des sprungs!
TIMER: - Code: Alles auswählen
erster Timer:
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("WarRock", &H1363380, SJ)
SJ1 = SJ + &H178
SJ2 = Text1.Text
Call WriteAFloat("WarRock", SJ1, SJ2)
End If
Das heisst, das wenn Strg+Leertaste gedrückt wird -> springt ihr einmal hoch .
Der Sprung is so hoch wie in text1.text eingegeben wurde.
Also schreiben wir bei text1.text eine Zahl zwischen 500-1500 rein.
zweiter Timer: - Code: Alles auswählen
If Check1.Value = 1 Then Timer3.Interval = 1
Das bedeutet soviel wie= wenn ein Häckchen in Check1 ist, dann starte timer 3 (unser Superjump Timer)
Die Value von diesem Timer muss 1 sein (siehe Screen)
NO SPREAD: Wir benötigen: - 1 Timer
- 1 Button
Button: - Code: Alles auswählen
Timer4.Interval = 1
Timer: - Code: Alles auswählen
Call WriteAlong ("WarRock", &HB08AB8, 0)
----------------
MODUL
Jetzt sind wir gleich fertig. Aber es fehlt noch das Modul ...
Da wir ja einen ud Hack haben wollen, brauchen wir auch ein ud Modul.
Deshalb benutzen wir ZeaS undetected Modul maker.
(download am seitenende)
-------------------------------
Startet zeas Modul maker, und klickt auf "fast module"
Dann kopiert alles was im rechten Fenster steht, und geht wieder zurück in vb. Da klickt ihr nun auf Project -> ADD MODUL. Da fügt ihr nun das kopierte Modul rein.
Schön wenn das alles wäre, oder?
Ist es leider aber nicht.
Wie ihr auf dem Screenshot erkennen könnt, hat sich jetzt writealong in was ganz anderes geändert. z.b. "askjdl"
Deshalb müsst ihr in euren buttons+timer alle writealong´s | writeafloat.... in das neue ändern.
Das ihr es nicht immer einzelnt machen müsst, gibt es in vb so eine nette Funktion.
Als erstes klickt ihr auf das Fernglas (siehe Screen)
Dann klickt ihr auf Replace.
Oben gebt ihr dann z.b. "WriteAlong" ein, und unten den neuen begriff. z.b. "askdjl"
dannach klickt ihr auf "Replace All" .
So, das wars.
Jetzt könnt ihr auf file -> make project1 klicken, und ihr habt euren fertigen + frischen + ud Trainer!
Ich hoffe man konnte es halbwegs verstehen, und ihr habt viel spaß damit!
