English:
In this tutorial I will show you how ..
Design and customize your own hacks
A few examples of how to add things such as swimming endurance or Unlimited
---------- ----------- Getting started
Before we start here, you will need the following steps:
Microsoft Visual Basic 6.0 (2005 Edition will not work)
Baisc Programming ideas
Ability to read.
Step one.
Open Visual Basic, and press New standard application.
- Once it is open. Design your application and prepare you to make him hack.
2nd At the top of the VB, press Project> Module
- Click the module and press Open.
Add the following code to it (It's a long time to make Shure u get it all)
Quote:
Const = & PROCESS_ALL_ACCESS H1F0FFF
Dim As Integer f1holder
As Long Dim timer_pos
"API's Statement
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long As Long lpdwProcessId) As Long
Public Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long As Long lpNumberOfBytesWritten) As Long
Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal ClassName As String, ByVal Window As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal Key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32.dll" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long As Long lpNumberOfBytesWritten) As Long
Public Function WriteAByte (game window text As String, address As Long, value As Byte)
Dim hWnd As Long
Dim pid As Long
As Long Dim phandle
hWnd = FindWindow vbNullString (game window, text)
If (hWnd = 0) Then
MsgBox "The game is not working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
Phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
Can not MsgBox "ProcessId" get vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 1, 0 &
CloseHandle hProcess
End Function
Public Function WriteAnInt (game window text As String, address As Long, value As Integer)
Dim hWnd As Long
Dim pid As Long
As Long Dim phandle
hWnd = FindWindow vbNullString (game window, text)
If (hWnd = 0) Then
MsgBox "The game does not work", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hWnd, pid
Phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
Can not MsgBox "ProcessId" get vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0 &
CloseHandle hProcess
End Function
Public Function WriteALong (game window text As String, address As Long, value As Long)
Dim hWnd As Long
Dim pid As Long
As Long Dim phandle
hWnd = FindWindow vbNullString (game window, text)
If (hWnd = 0) Then
MsgBox "The game does not work", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
Phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
Can not MsgBox "ProcessId" get vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0 &
CloseHandle hProcess
End Function
Public Function ReadAByte (game window text As String, address As Long, valbuffer As Byte)
Dim hWnd As Long
Dim pid As Long
As Long Dim phandle
hWnd = FindWindow vbNullString (game window, text)
If (hWnd = 0) Then
MsgBox "The game does not work", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
Phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
Can not MsgBox "ProcessId" get vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0 &
CloseHandle hProcess
End Function
Public Function ReadAnInt (game window text As String, address As Long, valbuffer As Integer)
Dim hWnd As Long
Dim pid As Long
As Long Dim phandle
hWnd = FindWindow vbNullString (game window, text)
If (hWnd = 0) Then
MsgBox "The game does not work", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
Phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
Can not MsgBox "ProcessId" get vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0 &
CloseHandle hProcess
End Function
Public Function ReadALong (game window text As String, address As Long, valbuffer As Long)
Dim hWnd As Long
Dim pid As Long
As Long Dim phandle
hWnd = FindWindow vbNullString (game window, text)
If (hWnd = 0) Then
MsgBox "The game does not work", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
Phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
Can not MsgBox "ProcessId" get vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0 &
CloseHandle hProcess
End Function
Public Function ReadAFloat (game window text As String, address As Long, valbuffer As Single)
Dim hWnd As Long
Dim pid As Long
As Long Dim phandle
hWnd = FindWindow vbNullString (game window, text)
If (hWnd = 0) Then
MsgBox "The game does not work", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
Phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
Can not MsgBox "ProcessId" get vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0 &
CloseHandle hProcess
End Function
Public Function WriteAFloat (game window text As String, address As Long, value As Single)
Dim hWnd As Long
Dim pid As Long
As Long Dim phandle
hWnd = FindWindow vbNullString (game window, text)
If (hWnd = 0) Then
MsgBox "The game does not work", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
Phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
Can not MsgBox "ProcessId" get vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0 &
CloseHandle hProcess
End Function
(Set I recommend that code in a text file for later use)
What makes it so long ass code lets ur hack edit warrock settings (memory)
Once that code is there for long .. Simply plug in the module box (it is saved automatically)
STEP THREE ..
In Visual Basic in the General tab on the left side of Visual Basic. Press Command Button to make (double click on one)
A new command button should show up in your application ..
After the button you can probbaly want something else to say, Command1 to be correct? Well ok.
Click the button once, so it is selected. In the Properties box (right)
Do not change the (name) BUTTON
Change the caption of the button. As shown here.
OK congratultions you made the button, but it does nothing ..
So it can be to do something. Allows us Unlimited stamina.
But before we start doing that, you need to make a new timer.
This is also in the General tab
Take a (not names or anything, because it does not show up in the final hack so dont worry about it too easy to ignore)
So, after the timer, double-click on it done. Type the following code:
(This is for unlimited endurance)
Quote:
Call WriteALong ("WarRock", & H7DB120, 1120403456)
So your wondering what that means.
Now WriteALong funds to a value inside or warrock write.
Well & H7DB120 is the address for endurance and 1120403456 is the maximum amount of stamina.
This code does is Freeze the stamina at 1120403456 which means it is
never perish.
Once you've done that .. Make a Nother button. Name it OFF or something that is no longer one or the financial resources (DUH)
Therefore, you should now:
two buttons
and a timer
Double-click the first button you made.
Type the following code:
Quote:
Timer1.Interval = 1
What the code is the timer that we did and it sets in motion
The syntax is like this.
(Timer name). Interval = (1 / 0)
1 = ON
0 = OFF
So it is a kind of self explanatory, what we do for the off button?
For the de Dees know as what to do for the power button .. dont
and place the code in it ..
Quote:
Timer1.Interval = 0
This makes the timer and makes the stamina to go back to normal condition.
CONGRATULATIONS you just made unlimited stamina hack ..
But u are probbaly saying: "Yes thats cool, but I want more!"
Now read the instructions for the proper ..
Ok.
Place your buttons nicely and evenly if you want it to be cool
As I said, do not worry about the timer, because it will not show up.
---- ---- Winchester Hack
1st a new button
Name ur button and place the code in it.
Quote:
As Long Dim shotgun
As Long Dim shotgun1
Call ReadALong ("Warrock", & H896E28, shotgun)
shotgun1 = Shotgun + & H4C
Call WriteALong ("Warrock", shotgun1, 34)
If you see 34 at the end, that's the weapon ID
You can get every weapon in the game when you have the proper weapon ID
but the only problem with this is that all weapons of Winchester becides no damage, the reason for this is that damage is calculated by the WarRock Server to do. Why has the Winchester cause damage? I have no idea
You can use the timer concept here, but that is easier and causes less confusion =)
So you now have a hack that has unlimited stamina, and a Winchester Hack.
. WHAT? They are still not satisfied? well, that what I wrote for this ..
MAKING A --------- no spread / RECOIL HACK --------
Note that if you from what you just did .. happy to do this not because this is long and caused much confusion.
Ok. First off you make 8 new timers, no need in the not high, yes EIGHT
Make them in order, so you get easy access
Open the first and place the code in
Quote:
Call WriteALong ("WarRock", & H90DC6F, 0)
Open the second timer and put it in
Quote:
Call WriteALong ("WarRock", & H90DC70, 0)
Open the third and put
Quote:
Call WriteALong ("WarRock", & H90DC71, 0)
Open the fourth set and
Quote:
Call WriteALong ("WarRock", & H90DC72, 0)
Open the fifth set and
Quote:
Call WriteALong ("WarRock", & H90DC73, 0)
Open the sixth and set
Quote:
Call WriteALong ("WarRock", & H90DC77, 0)
Open the seventh and set
Quote:
Call WriteALong ("WarRock", & H90DC78, 0)
Open the eighth and set
Quote:
Call WriteALong ("WarRock", & H90DC79, 0)
Well, do what you want is a new button and name it as
No Spead on
Dobule click on it and put in this long code.
Now that we have a Timer1 alerady (made for the unlimited stamina) We are not in this Timer1. We will start with Timer2, because that is what we started when we made the 8 timers.
So it will be.
Quote:
Timer2.Interval = 1
Timer3.Interval = 1
Timer4.Interval = 1
Timer5.Interval = 1
Timer6.Interval = 1
Timer7.Interval = 1
Timer8.Interval = 1
Timer9.Interval = 1
This makes us not spread and no recoil for our guns
Now you want to make a new button and name it like no spread off
double-click it and set (if you have already paid attention you would know what to put)
Quote:
Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
Timer5.Interval = 0
Timer6.Interval = 0
Timer7.Interval = 0
Timer8.Interval = 0
Timer9.Interval = 0
--------- ----------- SUPERJUMP
Plese note .. Since Visual Basic was the 1998 there is no in game hot keys. I'm working on something that could change soon ..
Anyway. To superjump, you want to put them inside a button ..
(No Timer)
Dim As Long Jump
As Long Dim jump1
As Single Dim jump3
Call ReadALong ("WarRock", & H896E28, jump)
jump1 jump + = & H180
jump3 = 1500
Call WriteAFloat ("WarRock", jump1, jump3)
----------------------------------------
Do you want to know something? You just made a working warrock hack ..
The benefits of your own is that you had never proved, then, or someone reports you will post on a forum or something if you think it's just about your self you can never be detected.
Go to File Save> Project and save the project only Incase you screwed up and need repair.
Then got o File> Make Project1.exe
Save it somewhere and open and hack!
If you are using Windows Vista you have to hack the administrator under.
(Press the right mouse button and select "Run as Administrator) if you do this hack can not do the hack!
Enjoy all hope that it helped you!
german:
In diesem Tutorial werde ich Ihnen zeigen, wie ..
Entwerfen und Anpassen Ihrer eigenen Hacks
Ein paar Beispiele, wie man Schwimmen Dinge hinzufügen wie zB Ausdauer oder Unlimited
---------- ----------- Anreise gestartet
Bevor wir hier beginnen, benötigen Sie die folgenden Schritte aus:
Microsoft Visual Basic 6.0 (Ausgabe 2005 wird nicht funktionieren)
Baisc Programming Ideen
Fähigkeit zu lesen.
Schritt eins.
Öffnen Sie Visual Basic, und drücken Sie Neue Standard-Anwendung.
- Sobald es geöffnet ist. Gestalten Sie Ihre Anwendung und bereiten Sie ihn zum Hack machen.
2. An der Spitze des VB, drücken Project> Modul
- Klicken Sie auf Modul, und drücken Sie Öffnen.
Fügen Sie den folgenden Code, um ihn (Es ist lange her, machen Shure u get it all)
Zitat:
Public Const PROCESS_ALL_ACCESS = & H1F0FFF
Dim As Integer f1holder
Dim As Long timer_pos
"API-Erklärung
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long As Long lpdwProcessId) As Long
Public Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, ByVal As Any lpBaseAddress, lpBuffer As Any, ByVal nSize As Long As Long lpNumberOfBytesWritten) As Long
Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal Key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32.dll" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal As Any lpBaseAddress, ByRef lpBuffer As Any, ByVal nSize As Long As Long lpNumberOfBytesWritten) As Long
Public Function WriteAByte (gamewindowtext As String, Adresse As Long, value As Byte)
Dim hWnd As Long
Pid Dim As Long
Dim As Long phandle
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Das Spiel funktioniert nicht", vbCritical, "Fehler"
Ende
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
Wenn (phandle = 0) Then
MsgBox "Kann nicht ProcessId", erhalten vbCritical, "Fehler"
Exit Function
End If
WriteProcessMemory phandle, Adresse, Wert, 1, 0 &
CloseHandle hProcess
End Function
Public Function WriteAnInt (gamewindowtext As String, Adresse As Long, value As Integer)
Dim hWnd As Long
Pid Dim As Long
Dim As Long phandle
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Das Spiel funktioniert nicht", vbCritical, "Fehler"
Ende
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
Wenn (phandle = 0) Then
MsgBox "Kann nicht ProcessId", erhalten vbCritical, "Fehler"
Exit Function
End If
WriteProcessMemory phandle, Adresse, Wert, 2, 0 &
CloseHandle hProcess
End Function
Public Function WriteALong (gamewindowtext As String, Adresse As Long, value As Long)
Dim hWnd As Long
Pid Dim As Long
Dim As Long phandle
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Das Spiel funktioniert nicht", vbCritical, "Fehler"
Ende
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
Wenn (phandle = 0) Then
MsgBox "Kann nicht ProcessId", erhalten vbCritical, "Fehler"
Exit Function
End If
WriteProcessMemory phandle, Adresse, Wert, 4, 0 &
CloseHandle hProcess
End Function
Public Function ReadAByte (gamewindowtext As String, Adresse As Long, valbuffer As Byte)
Dim hWnd As Long
Pid Dim As Long
Dim As Long phandle
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Das Spiel funktioniert nicht", vbCritical, "Fehler"
Ende
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
Wenn (phandle = 0) Then
MsgBox "Kann nicht ProcessId", erhalten vbCritical, "Fehler"
Exit Function
End If
ReadProcessMem phandle, Adresse, valbuffer, 1, 0 &
CloseHandle hProcess
End Function
Public Function ReadAnInt (gamewindowtext As String, Adresse As Long, valbuffer As Integer)
Dim hWnd As Long
Pid Dim As Long
Dim As Long phandle
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Das Spiel funktioniert nicht", vbCritical, "Fehler"
Ende
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
Wenn (phandle = 0) Then
MsgBox "Kann nicht ProcessId", erhalten vbCritical, "Fehler"
Exit Function
End If
ReadProcessMem phandle, Adresse, valbuffer, 2, 0 &
CloseHandle hProcess
End Function
Public Function ReadALong (gamewindowtext As String, Adresse As Long, valbuffer As Long)
Dim hWnd As Long
Pid Dim As Long
Dim As Long phandle
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Das Spiel funktioniert nicht", vbCritical, "Fehler"
Ende
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
Wenn (phandle = 0) Then
MsgBox "Kann nicht ProcessId", erhalten vbCritical, "Fehler"
Exit Function
End If
ReadProcessMem phandle, Adresse, valbuffer, 4, 0 &
CloseHandle hProcess
End Function
Public Function ReadAFloat (gamewindowtext As String, Adresse As Long, valbuffer As Single)
Dim hWnd As Long
Pid Dim As Long
Dim As Long phandle
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Das Spiel funktioniert nicht", vbCritical, "Fehler"
Ende
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
Wenn (phandle = 0) Then
MsgBox "Kann nicht ProcessId", erhalten vbCritical, "Fehler"
Exit Function
End If
ReadProcessMem phandle, Adresse, valbuffer, 4, 0 &
CloseHandle hProcess
End Function
Public Function WriteAFloat (gamewindowtext As String, Adresse As Long, value As Single)
Dim hWnd As Long
Pid Dim As Long
Dim As Long phandle
hWnd = FindWindow (vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Das Spiel funktioniert nicht", vbCritical, "Fehler"
Ende
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess (PROCESS_ALL_ACCESS, False, pid)
Wenn (phandle = 0) Then
MsgBox "Kann nicht ProcessId", erhalten vbCritical, "Fehler"
Exit Function
End If
WriteProcessMemory phandle, Adresse, Wert, 4, 0 &
CloseHandle hProcess
End Function
(Ich empfehle setzen, dass Code in einer Textdatei zur späteren Verwendung)
Was so lange ass Code macht läßt ur Hack warrock Bearbeiten Einstellungen (Speicher)
Sobald dieser Code ist lange dort .. Schließen Sie einfach aus dem Modul-Box (es wird automatisch gespeichert)
SCHRITT DREI ..
In Visual Basic in der Registerkarte Allgemein auf der linken Seite des Visual Basic. Drücken Sie Command Button (Doppelklick auf eine zu machen)
Eine neue Befehlsschaltfläche sollte zeigen sich in Ihrem Anwendungsbereich ..
Nachdem Sie den Button können Sie probbaly wollen es noch etwas anderes sagen, als Command1 richtig? Na ok.
Klicken Sie auf die Taste einmal, so dass es ausgewählt ist. In der Eigenschaften-Box (rechts)
Ändern Sie nicht die (Name) des BUTTON
Ändern Sie die Beschriftung der Schaltfläche. Wie hier gezeigt.
OK congratultions Sie machte den Knopf, aber es tut nichts ..
So lässt es etwas zu tun. Ermöglicht es uns Unlimited Ausdauer.
Aber bevor wir das tun zu starten, müssen Sie einen neuen Timer zu machen.
Das ist auch in der Registerkarte Allgemein
Machen Sie einen (nicht Namen oder es nichts, weil es nicht zeigen sich in der fertigen hack so dont worry about it auch einfach ignorieren)
So, nachdem Sie den Timer, doppelklicken Sie auf es geschafft. Geben Sie den folgenden Code ein:
(Dies ist für unbegrenzte Ausdauer)
Zitat:
Call WriteALong ("WarRock", & H7DB120, 1120403456)
Also deine frage mich, was das bedeutet.
Nun WriteALong Mittel auf einen Wert innerhalb oder warrock schreiben.
Well & H7DB120 ist die Adresse für Ausdauer und 1120403456 ist die maximale Menge Ausdauer.
Dieser Code macht Freeze ist die Ausdauer bei denen es bedeutet 1120403456 wird
niemals untergehen.
Nachdem du das getan hast .. Machen Sie eine Nother Taste. Nennen Sie es OFF oder etwas, dass nicht mehr ein oder aus Mitteln (DUH)
Deshalb sollten Sie jetzt:
zwei Tasten
und ein Timer
Doppelklicken Sie auf die erste Taste, die Sie gemacht.
Geben Sie den folgenden Code ein:
Zitat:
Timer1.Interval = 1
Was das Code macht ist der Timer, dass wir und machten setzt es in Gang
Die Syntax ist wie diese.
(Timer-Name). Interval = (1 / 0)
1 = ON
0 = AUS
Also es ist eine Art selbsterklärend, was wir für die Off-Taste zu tun?
Für die de Dees da die wissen, was für die Aus-Taste zu tun .. dont
und platzieren Sie den Code in ihr ..
Zitat:
Timer1.Interval = 0
Das nimmt den Timer und macht die Ausdauer zurück zum normalen Zustand gehen.
HERZLICHEN GLÜCKWUNSCH Sie gerade gemacht unbegrenzte Ausdauer hack ..
Aber u sind probbaly sagen: "Ja thats cool, aber ich will mehr!"
Nun lesen Sie die richtige Anleitung für die ..
Ok.
Platzieren Sie Ihre Tasten schön und gleichmäßig, wenn Sie wollen, dass es cool zu sein
Wie ich bereits sagte, keine Sorge über den Timer, da es nicht wird sich zeigen.
---- ---- Winchester Hack
1. eine neue Schaltfläche
Name ur-Taste und platzieren Sie den Code in ihm.
Zitat:
Dim As Long Schrotflinte
Dim As Long shotgun1
Call ReadALong ("Warrock", & H896E28, Schrotflinte)
shotgun1 = Shotgun + & H4C
Call WriteALong ("Warrock", shotgun1, 34)
Wenn Sie 34 am Ende sehen, das ist die Waffe ID
Sie können jede Waffe im Spiel erhalten, wenn Sie die richtige Waffe ID haben
aber das einzige Problem mit diesem ist, dass alle Waffen becides der Winchester kein Schaden, der Grund dafür ist, dass Schäden, die durch die WarRock Server berechnet wird, zu tun. Warum hat die Winchester Schaden anrichten? Ich habe keine Ahnung
Sie können den Timer-Konzept hier, aber das ist einfacher und verursacht weniger Verwirrung =)
So haben Sie jetzt einen Hack, der hat unbegrenzte Ausdauer, und eine Winchester Hack.
. WAS? Sie sind noch nicht zufrieden? gut, dass das, was ich schrieb für dieses ..
--------- MAKING A nicht weiter ausbreitet / RECOIL HACK --------
Beachten Sie, wenn Sie aus, was du gerade getan hast .. glücklich dies nicht tun, denn dies ist lang und verursacht viel Verwirrung.
Ok. First off Ihnen 8 neue Timer zu machen, braucht keine im nicht hoch, ja ACHT
Machen sie in Ordnung, so dass Sie leichten Zugang erhalten
Öffnen Sie das erste und platzieren Sie den Code in
Zitat:
Call WriteALong ("WarRock", & H90DC6F, 0)
Öffnen Sie das zweite Timer und stellen in
Zitat:
Call WriteALong ("WarRock", & H90DC70, 0)
Öffnen Sie die dritte und legte
Zitat:
Call WriteALong ("WarRock", & H90DC71, 0)
Öffnen Sie die vierte und setzen
Zitat:
Call WriteALong ("WarRock", & H90DC72, 0)
Öffnen Sie die fünfte und setzen
Zitat:
Call WriteALong ("WarRock", & H90DC73, 0)
Öffnen Sie das sechste und setzen
Zitat:
Call WriteALong ("WarRock", & H90DC77, 0)
Öffnen Sie den siebten und setzen
Zitat:
Call WriteALong ("WarRock", & H90DC78, 0)
Öffnen Sie das achte und setzen
Zitat:
Call WriteALong ("WarRock", & H90DC79, 0)
Nun, was Sie tun wollen, ist eine neue Schaltfläche und nennen Sie es wie
Nr. Spead auf
Dobule klicken Sie darauf und legte in dieser langen Code.
Nun da wir einen Timer1 alerady (für die unbegrenzte Ausdauer gemacht) Wir werden nicht in diesem Timer1. Wir werden mit Timer2 gestartet werden, weil das ist, was wir angefangen haben, wenn wir die 8 Timer gemacht.
So wird es sein.
Zitat:
Timer2.Interval = 1
Timer3.Interval = 1
Timer4.Interval = 1
Timer5.Interval = 1
Timer6.Interval = 1
Timer7.Interval = 1
Timer8.Interval = 1
Timer9.Interval = 1
Das macht uns keine Ausbreitung und keinen Rückstoß für unsere Gewehre
Sie möchten nun eine neue Schaltfläche machen und nennen Sie es wie kein Spread off
doppelklicken Sie darauf und setzen (Wenn Sie schon bezahlt haben, Aufmerksamkeit, die Sie wüssten, was zu setzen)
Zitat:
Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
Timer5.Interval = 0
Timer6.Interval = 0
Timer7.Interval = 0
Timer8.Interval = 0
Timer9.Interval = 0
--------- ----------- SUPERJUMP
Plese beachten .. Da Visual Basic wurde von 1998 gibt es keine im Spiel Hot Keys. Ich bin auf etwas, das das ändern könnte bald arbeiten ..
Anyway. Um superjump, möchten Sie diese innerhalb einer Taste legen ..
(Nr. Timer)
Dim As Long Jump
Dim As Long jump1
Dim jump3 As Single
Call ReadALong ("WarRock", & H896E28, Sprung)
jump1 = springen + & H180
jump3 = 1500
Call WriteAFloat ("WarRock", jump1, jump3)
----------------------------------------
Wollen Sie etwas wissen? Du hast bereits eine Arbeitsgruppe warrock hack ..
Die Vorteile Ihre eigenen ist, dass Sie nie nachgewiesen sei denn, jemand meldet oder Ihnen per Post auf einem Forum oder etwas, wenn Sie halten es nur um Ihr Selbst wirst du auch niemals erkannt werden kann.
Gehen Sie zu Datei> Projekt speichern und speichern Sie das Projekt nur Incase Sie vermasselt und Sie reparieren müssen.
Danach verlor o File> Make Project1.exe
Speichern Sie es irgendwo und offen und hack!
Wenn Sie mit Windows Vista müssen Sie das Administrator-Hack unter.
(Rechte Maustaste drücken und "Als Administrator ausführen), wenn Sie diesen hack dont do the Hack kann nicht!
Genießen Sie alle hoffen, dass es Ihnen geholfen!
BITTE THX WENN DAS GEHOLFEN HAT!