Skip to content
MPGHThe Dark Arts
/
RegisterLog in
Forum
Community
What's NewLatest posts across the boardTrendingHottest threads right nowSubscribedThreads you follow
Discussion
GeneralIntroductionsEntertainmentDebate FortFlaming & Rage
Board
News & AnnouncementsMPGH TimesSuggestions & HelpGiveaways
More Sections
Art & Graphic DesignProgrammingHackingCryptocurrency
Hacks & Cheats
Games
ValorantCS2 / CS:GOCall of Duty / WarzoneFortniteApex LegendsEscape From Tarkov
+14 moreLeague of LegendsGTA VMinecraftRustROTMGBattlefieldTroveBattleOnCombat ArmsCrossFireBlackshotRuneScapeDayZDead by Daylight
Resources
Game Hacking TutorialsReverse EngineeringGeneral Game HackingAnti-CheatConsole Game Hacking
Tools
Game Hacking ToolsTrainers & CheatsHack/Release NewsNew
Submit a release →Share your cheat, tool, or config with the community.
AINEW
AI Tools
General & DiscussionPrompt EngineeringLLM JailbreaksHotAI Agents & AutomationLocal / Open Models
AI × Gaming
AI Aimbots & VisionML Anti-CheatGame Bots & Automation
Create
AI Coding / Vibe CodingAI Art & MediaAI Voice & TTS
The AI frontier →Where game hacking meets modern machine learning. Jump in.
Marketplace
Buy & Sell
SellingBuyingTradingUser Services
Trust & Safety
Middleman LoungeMarketplace TalkVouch Copy Profiles
Money
Cryptocurrency TalkCurrency ExchangeWork & Job Offers
Start selling →List accounts, services, and goods. Use the middleman to trade safe.
MPGH The Dark Arts

A community for offensive security research, reverse engineering, and AI.

Community

ForumMarketplaceSearch

Account

RegisterLog in

Legal

Privacy PolicyForum RulesHelp & FAQ
© 2026 MPGH · All rights reserved.Built by the community, for the community. For educational purposes onlyContent is shared for security research and education — we don't condone illegal use. You're responsible for complying with applicable laws. Use at your own risk.
Home › Forum › Programming › Visual Basic Programming › Tutorial - How to use Visual Basics 6 (vb6) for WarRock hacks

QuestionTutorial - How to use Visual Basics 6 (vb6) for WarRock hacks

Posts 1–15 of 18 · Page 1 of 2
Oneirish
Oneirish
Tutorial - How to use Visual Basics 6 (vb6) for WarRock hacks
ive seen sooooo many people saying how to use vb6 or how to make hacks or whatever. and causes alot of spam. so i hope this guide will just make that quite down...

PLEASE REP IF I HELPED AND RATE POST!

and so we start...
WARNING!!!!REMEMBER THAT THE ADDRESSES MAY BE DETECTED... CHANGE THEM

These are addresses can be found anywhere and remember that the module can be too... but the addresses will be found when you add a cheat to the timer in the first hack. it will be the &Hsomething, something but leave the &H

to start:

YOUR GOING TO NEED:
-Visual Basics 6 (vb6)
-A little knowledge on programing


FIRST...
You are going to need to open Visual Basics 6. Your going to press Project > Add Module... click MODULE and press OPEN

Add this Module

Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long
'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (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" 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 WriteAByte(gamewindowtext As String, address As Long, value As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
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
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 1, 0&
CloseHandle hProcess
End Function
Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function
Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
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
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function
Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
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
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function
Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
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
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function
Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
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
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function
Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
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
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function

Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
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
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

Once You have added this just close it cause it will automatically save

STEP 2
In visual basic In the general tab at the left side of visual basic. Press Command Button

A new command button should show up in your application area..

After you made the button you will want to make it say something else than Command1. (make it say the hack your going to put in EXAMPLE: Unl. Stamina On)

Click on the button once so it is highlighted. In the Properties box
Change the Caption of the button. Which is Located on the bottom right. to the right of the word Caption you will see Command1 change that.

So now you made a button which does nothing yet. So were ganna start off with Unl. Stamina.

Before you add the codes on the right menu that shows a clock symbal your going to click on that and draw it on the map in the middle.

your going to need to double click the clock and add this code:

Call WriteALong("WarRock", &H7DB120, 1120403456)
WARNING!!!! you are going to need to change "7DB120" leave &H and change "1120403456" to the current address
you can find these addresses all over but get the current one or else it is detected and you will be banned from WarRock!!!

3rd-ish
your going to make Another button Named Unl. Stamina Off
-Remember have one on and one off

so far your going to have:
two buttons and a timer

Double click your first button (Unl. Stamina On)

Type in this code:

Timer1.Interval = 1
4th-ish
Double click your second button (Unl. Stamina Off)

type in this code:

Timer1.Interval = 0
how to do these with other hacks is:
(timer name).interval = (1/0)
1 = ON
0 = OFF

________________
Thats all you had to do for Unl. Stamina hack...
REMEMBER KEEP YOUR BUTTONS ORGANIZED
but of course your going to need more...

Another Popular one is having the shotgunchester...

Make a NEW button and name it (Winchester or whatever...)

Add this code

Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
Somehow 34 means shotgun and theres a list from 72 but somehow all the guns dont do any damage except the winchester...
________________________________
Another Good Hack is No Spreed hack

you dont have to do this one if your fine with the above hacks... but everybody wants more.

REMEMBER THIS HACK IS KIND OF A HASSLE

FIRST!!!!
Your going to Make 8 new timers!!!

OPEN FIRST ONE AND TYPE:

Call WriteALong("WarRock", &H90DC6F, 0)
OPEN SECOND TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC70, 0)
OPEN THIRD TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC71, 0)
OPEN FOURTH TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC72, 0)
OPEN FIFTH TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC73, 0)
OPEN SIXTH TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC77, 0)
OPEN SEVENTH TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC78, 0)
OPEN EIGHTH TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC79, 0)
2nd......
Add a new button and name it (for example no spreed on)

double click it and add this code:

Timer2.Interval = 1
Timer3.Interval = 1
Timer4.Interval = 1
Timer5.Interval = 1
Timer6.Interval = 1
Timer7.Interval = 1
Timer8.Interval = 1
Timer9.Interval = 1
MAKE A NEW BUTTON AND NAME IT (of course no spreed off)

double click that and add this code:

Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
Timer5.Interval = 0
Timer6.Interval = 0
Timer7.Interval = 0
Timer8.Interval = 0
Timer9.Interval = 0
THATS ALL THERE IS.... your probably thinking finally.....
________________________
ANOTHER ONE THAT EVERYONE WANTS IS
--SUPERJUMP--

Make a new button and name it (for example Superjump)

there is not going to be a timer for this hack

double click that and add this code:

Dim jump As Long
Dim jump1 As Long
Dim jump3 As Single
Call ReadALong("WarRock", &H896E28, jump)
jump1 = jump + &H180
jump3 = 1500
Call WriteAFloat("WarRock", jump1, jump3)
_____________________________

REMEMBER go to File > Save Project cause if you lose it your messed. plus if does get detected you can easily edit this one!!!!

Then go to File > Make Project1.exe

save it and open it when your in WarRock!!!!!!!!!!!!

REMEBER CHANGE THE CODES BECAUSE THEY CAN BE DETECTED!!! JUST FIND ADDRESSES... IF I HAVE SOME ILL POST AND UPDATE THIS IF THIS BECOMES STICKY
#1 · edited 18y ago · 18y ago
Oneirish
Oneirish
March 21, 2008 Addresses
March 21, 2008 addresses
I WILL UPDATE JUST NEED TO FIND NEWER

Player Pointer - 136A0E0


StaminaOffset - 288
No Recoil 1 offset - 02D8
No Recoil 2 offset - 02DC
No Recoil 3 offset - 02E0
NFD offset - 260
Superjump offset - 178

Spawn Address 1 - 10C3A94
Spawn Address 2 - D8C1F0
Spawn Address 3 - 10C3A9C

Unlock Slots - D8C958

No Bounds 1 - D8C270
No Bounds 2 - D8C278

Fast Heal - B0F7B4
Fast Repair - B0F7B8
Fast Flag - B0F7BC
Fast Ammo - B0F7C0

Scope - B0F7AA

Vechicle GPS - B0F7D1
Player Boxes - B0F7D2

Triggerbot - 8FB458

AntiKick - 505495

Esp_Addie 0x522F9D

Headshot - 4a3604
Neckshot - 4A3625
Spineshot - 4A367D

SilentWalk - 4A3651

Unl Ammo 1 - 51E376
Unl Ammo 2 - 51E387
Unl Ammo 3 - 51E38D

Invisible - 524678

Water - 8FBF58

OPK - 516503

Fast As Famas - 523D03
#2 · 18y ago
adamleslie0
adamleslie0
thanx for the tut man +REP there but i can already make hacks lol but i like people who dont just worry bout themselves
#3 · 18y ago
Oneirish
Oneirish
lol ya the tutorial was easy to write just boring to write that much...
#4 · 18y ago
NA
nabzta
wa bout hotkeys
i dont get it
afta u make a hak like superjump and shotgun how the hell do u use it
so u need a hotkey so plz tell me how to make hotkey
#5 · 18y ago
LU
lusi92
Thanks Really! I will try XD! But i have a question:
How can i +Rep a man ?
Don't ban me if its stupid question XS but anxwer please
#6 · 18y ago
Oneirish
Oneirish
o to +rep you press the little R+ green square under my name youll see it.

but about the hotkeys thing, its alittle harder... Just once you make the hack just start the game your in press the windows key to make the start menu pop up. then press the hack program you made turn on the stuff that you want and go back to then game. then it should be turned on!
#7 · 18y ago
jeremiahg2
jeremiahg2
lol, onirish wana help me? my hack is always detected!!
#8 · 18y ago
EF
effective
i dont get it,
u said:
Call WriteALong("WarRock", &H7DB120, 1120403456)
WARNING!!!! you are going to need to change "7DB120" leave &H and change "1120403456" to the current address
you can find these addresses all over but get the current one or else it is detected and you will be banned from WarRock!!!

where to copy that ?

StaminaOffset - 288 (your 2nd post)
#9 · 18y ago
Oneirish
Oneirish
BTW FOR PEOPLE WHO KEEP GETTING DETECTED ITS CAUSE YOUR MODULE IS DETECTED. YOUR GOING TO NEED TO CHANGE THAT WITH A MODULE GENERATOR FOUND HERE Undetected Module Generator by ZeaS. download and type in any word. i type long ones and input the module into your cheat. when you finish that just change what you changed WriteAfloat in the generator to the code. for example

you change WriteAFloat to asdfasdf

then in your code change all of the WriteAFloat's into asdfasdf.

same with the others. or else you will get an error.


call writealong ("warrock", &hxxxxxx, xxxxxx)

i dont know the current codes off the top of my head but the first set of xxxxxx's are the code, second set of xxxxxx's are the offset. if nothings changed with the code just change the second xxxxxx's the current offset.
#10 · edited 18y ago · 18y ago
radnomguywfq3
radnomguywfq3
OKAY

We get it, you don't have to have massive font size.
#11 · 18y ago
sopola1980
sopola1980
nice byt i am new in hacks i am stupid sorry ...
#12 · 18y ago
sopola1980
sopola1980
nice byt i am new in hacks i am stupid sorry ... wer i cant lear haw too hack my english its not good byt i read..ok
#13 · 18y ago
BL
bloqueado93
mm
i dont understand nothing of that tutorial
#14 · 18y ago
boyd45
boyd45
i got a question
how can i add hotkeys in my Sj hack...
and how i generate a undetected module
i got zeas module maker
so iff i fill in the text box
writeafloat = undetected
i need to change in my butten
not writeafloat but undetected?
#15 · 18y ago
Posts 1–15 of 18 · Page 1 of 2

Post a Reply

Similar Threads

  • [Tutorial] How To Use Dragon Nest Mods [Video][Instructions]By xBoredom in Dragon Nest Mods & Modding
    49Last post 9y ago
  • Tutorial - How to use Visual Basics 6 (vb6) for WarRock "easy"By Oneirish in Programming Tutorials
    2Last post 18y ago
  • How to make checkboxes for vb6 for WarrockBy Desymondo in Visual Basic Programming
    1Last post 18y ago
  • how to make checkboxes for vb6 for warrockBy Desymondo in WarRock - International Hacks
    3Last post 18y ago
  • (Tutorial) How to download anything you want for Free.By icuigorz in General
    13Last post 18y ago

Tags for this Thread

#basics#hacks#tutorial#vb6#visual#warrock