[Tutorial] How To Make A Warrock Hack - VB 6.0

[Sweet Revenge]

How To Make A Warrock Hack

Ok, First You Will Need To Open Visual Basic 6.0
Once It Has Opened, Click Standard EXE Then OK.
Then Go To Project -> Add Module (At The Top).
Then Click OK. Now A Box Should Of Came Up.
In That Box, Copy And Paste This Into It:

Public Const WWWWWFFWM = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function WHTMSULFJ Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function HTMSULFJW Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function TMSULFJWH Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function MSULFJWHT Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function SULFJWHTM Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function ULFJWHTMS Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function LFJWHTMSU Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Function WHTMSLUJF(WWWWWULJF As String, HHHMSULJF As Long, TTTMSULJF As Long) 'WriteALong
Dim FJWHTMSUL As Long
Dim WHTMSULJF As Long
Dim WHTMSUFJL As Long
FJWHTMSUL = SULFJWHTM(vbNullString, WWWWWULJF)
If (FJWHTMSUL = 0) Then
End
Exit Function
End If
WHTMSULFJ FJWHTMSUL, WHTMSULJF
WHTMSUFJL = HTMSULFJW(WWWWWFFWM, False, WHTMSULJF)
If (WHTMSUFJL = 0) Then
Exit Function
End If
TMSULFJWH WHTMSUFJL, HHHMSULJF, TTTMSULJF, 4, 0&
MSULFJWHT SSSSWSUSM
End Function

Public Function WHTMUSLJF(WWWWWULJF As String, HHHMSULJF As Long, MMMMSULJF As Long) 'ReadALong
Dim FJWHTMSUL As Long
Dim WHTMSULJF As Long
Dim WHTMSUFJL As Long
FJWHTMSUL = SULFJWHTM(vbNullString, WWWWWULJF)
If (FJWHTMSUL = 0) Then
End
Exit Function
End If
WHTMSULFJ FJWHTMSUL, WHTMSULJF
WHTMSUFJL = HTMSULFJW(WWWWWFFWM, False, WHTMSULJF)
If (WHTMSUFJL = 0) Then
Exit Function
End If
LFJWHTMSU WHTMSUFJL, HHHMSULJF, MMMMSULJF, 4, 0&
MSULFJWHT SSSSWSUSM
End Function

Public Function WHMTSULJF(WWWWWULJF As String, HHHMSULJF As Long, MMMMSULJF As Single) 'ReadAFloat
Dim FJWHTMSUL As Long
Dim WHTMSULJF As Long
Dim WHTMSUFJL As Long
FJWHTMSUL = SULFJWHTM(vbNullString, WWWWWULJF)
If (FJWHTMSUL = 0) Then
End
Exit Function
End If
WHTMSULFJ FJWHTMSUL, WHTMSULJF
WHTMSUFJL = HTMSULFJW(WWWWWFFWM, False, WHTMSULJF)
If (WHTMSUFJL = 0) Then
Exit Function
End If
LFJWHTMSU WHTMSUFJL, HHHMSULJF, MMMMSULJF, 4, 0&
MSULFJWHT SSSSWSUSM
End Function

Public Function HWTMSULJF(WWWWWULJF As String, HHHMSULJF As Long, TTTMSULJF As Single) 'WriteAFloat
Dim FJWHTMSUL As Long
Dim WHTMSULJF As Long
Dim WHTMSUFJL As Long
FJWHTMSUL = SULFJWHTM(vbNullString, WWWWWULJF)
If (FJWHTMSUL = 0) Then
End
Exit Function
End If
WHTMSULFJ FJWHTMSUL, WHTMSULJF
WHTMSUFJL = HTMSULFJW(WWWWWFFWM, False, WHTMSULJF)
If (WHTMSUFJL = 0) Then
Exit Function
End If
TMSULFJWH WHTMSUFJL, HHHMSULJF, TTTMSULJF, 4, 0&
MSULFJWHT SSSSWSUSM
End Function

Public Function MHWMSULJF(WWWWWULJF As String, HHHMSULJF As Long, TTTMSULJF As Byte) 'WriteAByte
Dim FJWHTMSUL As Long
Dim WHTMSULJF As Long
Dim WHTMSUFJL As Long
FJWHTMSUL = SULFJWHTM(vbNullString, WWWWWULJF)
If (FJWHTMSUL = 0) Then
End
Exit Function
End If
WHTMSULFJ FJWHTMSUL, WHTMSULJF
WHTMSUFJL = HTMSULFJW(WWWWWFFWM, False, WHTMSULJF)
If (WHTMSUFJL = 0) Then
Exit Function
End If
TMSULFJWH WHTMSUFJL, HHHMSULJF, TTTMSULJF, 1, 0&
MSULFJWHT SSSSWSUSM
End Function

Public Function JHTMSULFW(WWWWWULJF As String, HHHMSULJF As Long, MMMMSULJF As Byte) 'ReadAByte
Dim FJWHTMSUL As Long
Dim WHTMSULJF As Long
Dim WHTMSUFJL As Long
FJWHTMSUL = SULFJWHTM(vbNullString, WWWWWULJF)
If (FJWHTMSUL = 0) Then
End
Exit Function
End If
WHTMSULFJ FJWHTMSUL, WHTMSULJF
WHTMSUFJL = HTMSULFJW(WWWWWFFWM, False, WHTMSULJF)
If (WHTMSUFJL = 0) Then
Exit Function
End If
LFJWHTMSU WHTMSUFJL, HHHMSULJF, MMMMSULJF, 1, 0&
MSULFJWHT SSSSWSUSM
End Function

Now, Thats The Module Done. Now For Coding!
On The Left Panel You Will See A Little Button Icon.
Double Click It. Now You Should Have A Button In Your Form. Now On The Same Panel, Double Click The Clock. This Is A Timer. Now When Its In Your Form, Double Click It Again, And Another Box Will Come Up. Now Once That Has Happened Put This In:

Call WriteALong("WarRock", &H2776FDE2, 1120403456)

The &H2776FDE2 Is The Code For Stamina And The 1120403456 Is The Max Amount OF Stamina You Can Have. Now, To Make It Work, Double Click On The Button You Added Earlier And Type This In:

Timer1.Interval = 1

Also, Change The "WriteALong" To "WHTMSLUJF"

And This Concludes My Tutorial On How To Make A Warrock Hack.
I Hope This Helps People Who Are On Their Way To Making Warrock Hacks

Good Luck!


~ Sweet Revenge

[ElvenLegendz]

I alrdy know how to make my own hacks so I'm just guna test your address and make sure it works..

[1zz23z]

old adresses rigth? not work for me...

[deadforme1]

Where you get VB 6.0 som1 give link ?:D

[darking1assist]

[Only registered and activated users can see links. ]

this one ?

[bendaman]

can some one help me! im new to coding hacks! But what do these numbers mean???



pls list them lk this:

green =
blue =
red =

Thanx in advance

[samiham]

I still dont get how do u make ur own hack with VB 6 mine turns out messed up dont no how to turn it into a zip or something

[chroncile]

Please explain it in more detail, I don't get why you would change "WriteALong" To "WHTMSLUJF".

[luddie]

you guys are stupid srry for that ok chroncile you change writealong to make your hack undetected and bendeman
green = &H(standard for adress in vb)+ the adress
blue = the offset
red = the value you change it into

[samiham]

but how do u change it to a progam so ppl can use csaue all i got was some notbook righting in it