View Full Version : [Tutorial] How to make VB2008 Hack!
Bigxxx
04-28-2008, 10:06 AM
Hey all , today i show you how to make a Visual basic 2008 hack!
All what you need is :
•Visual basic 2008
•A module , Download below!
•A brain ;)
-----------------------------------------
•1. Step! Download VB
-Ok after downloading Visual Basic 2008 (http://www.microsoft.com/express/download/) you must create a new Project! (File/New Project/Windows Forms Application)
•2. Step! Build the Form
After Creating the Form , you must open the Toolbox (Look Picture)
http://img229.imageshack.us/img229/6840/toolbox1za7.png
and create to buttons and one timer!(Look Picture)
http://bigxxxfilehost.bi.ohost.de/files/timerandbutton.jpg
Now it must look like this here (Look Picture)
http://bigxxxfilehost.bi.ohost.de/files/form111.jpg
I only renamend the buttons and a label ;)
•3. Step! The Coding!
WARNING FOR BEGINNING!
Look allways that the timer is enabled = False at beginning and that the invental is allways 1!
Ok now press doubleclick on the button1 and write in the coding part
Timer1.Enabled = True
Then press doubleclick on the button2 and write in the coding part
Timer1.Enabled = False
Is easy to understand right?
Button1 = Start the hack(5th slot)
Button2 = Stop the hack(5th slot)
-Now press doubleclick on the timer1 (Look that the invental is = 1!!!!!)
After you pressed doubleclick on the timer1 we come back to the coding part and must add the code for 5th slot , the code is :
WriteMemory(&HAddy, Value , 4)
Replace the Addy and Value part ;)
The "4" stands for byte! You mustnt replace it for other hacks , like crosshair , scope etc , because it works allways ;)
•4. Step!Coding a NFD / SJump hack / Stamina
Ok maybe you want to make a SJump / NFD Hack then you must code this:
If GetAsyncKeyState(17) Then
WriteFloatPointer(&HPlayerpointer, &HOffset, Value)
End If
GetAsyncKeyState(17) = CTRL
And replace the Playerpointer / Offset and Value part ...
If you want to code NFD you only need the part without the hotkey look:
WriteFloatPointer(&HPlayerpointer, Offset, Value)
And replace the parts Playerpointer / Offset and Value ...
Stamina code is the same only as value 100 look :
WriteFloatPointer(&HPlayerpointer , &HOffset , 100)
•5. Step! Add the module
Ok now the only think we need is a module!
You can get it here (http://bigxxxfilehost.bi.ohost.de/files/Module.txt)
VB2008 hacks are really new so it is near ud!
You only need to change :
Writememory
ReadFloat
WriteFloat
ReadLong
ReadFloatPointer
ReadLongPointer
WriteFloatPointer
WriteLongPointer
NOP
Ok after downloading you must add it :
Project/Add module/ Add button!
Then fill in the module!
AND WE ARE FINISHED!!!
I think it is much easier then all other VB's.
So just do it .
If you have question ask me per PM , but i am only a Human dont forget it !
------------------------------------------
TUT BY BIGXXX© For DXTH4X.COM!
------------------------------------------
VB2008 IS COMPLETE FREE!!!!!
SERIAL IS FREE ,TOO!
LEARN TO READ BOYZ!
18hoursperday
04-28-2008, 11:01 AM
This is a nice tut and u looked like u put alot of effort in
Stickified:)
18HOURZ:)
Bigxxx
04-28-2008, 11:06 AM
lol thank you i do my best :) fgt85
18hoursperday
04-28-2008, 01:33 PM
So guys ^^ big xx is the person to ask about VISUAL BASIC 2008.
Make sure u spam his pm box about it haha
Just joking ;)
Dont Do It Lol..
Yeah..thanks
18HOURZ:)
Yougotowned
04-28-2008, 02:23 PM
nice tut again looks pretty simple to do
Firesnipe
04-28-2008, 02:48 PM
Hey
Ummmm
I need a serial # :O
HeroWarz
04-28-2008, 02:53 PM
is vb2008 more hard to detect then vb6 ?
Bigxxx
04-28-2008, 02:55 PM
you mean , faster DT ?
No vb2008 is full ud for 2-3 weeks ;)
My hack is still ud ;)
The only think is nop , for nop you get kick , how ever , it is great to build with it :)
frostbitekid
04-28-2008, 04:58 PM
wow very nice job man. can u also teach how to nop?
P3RF3CT
04-28-2008, 05:02 PM
does the moduel gen maker work with Vb 2008 ? i can make the hack and stuff just cant make module really good lol !
- And i can find the addies =/ my dam UCE got decect =-( anyone got any good updates
frostbitekid
04-28-2008, 05:21 PM
does the moduel gen maker work with Vb 2008 ? i can make the hack and stuff just cant make module really good lol !
- And i can find the addies =/ my dam UCE got decect =-( anyone got any good updates
the module maker is only for vb6, but i found another one, but that ones for vb.net :\
Firesnipe
04-28-2008, 07:04 PM
You can change strings manally
If you want :)
Firesnipe
04-28-2008, 07:15 PM
Can somebody post the .exe of the VB08
Cuase I installed the program
And stuff
And idk where it's saved so plz just post the .exe for me
:D
Will thank whoever posts fo me
chris7492
04-29-2008, 01:17 AM
Dude, this is a very good tut, I started on Visual Basic 2008 a little before this was posted but I didn't really get anywhere but I did get stamina and 5th slot working when I seen the form of the module. So nice job, keep up the good work.
fgt42
the ownzman
04-29-2008, 04:59 PM
Srry that i say it but its not very smart that you post this tut.
If everybody make's vb8 hacks then will vb8 detected.
But if you are smart keep it secret or make is only for vip.
srry that is say everybody.
greats The Ownzman >_<
HydroQc
04-29-2008, 05:00 PM
All the hacks are detected...You just have to but extra code to make it UD!
frostbitekid
04-29-2008, 05:16 PM
u need to change the strings in the module to keep it ud
R3bel19
04-30-2008, 04:15 AM
:confused: thats not your serious.....
Vb is Vb!
Why you need a new tut for vb 2008? :skeetskeet
R3bel19
Bigxxx
04-30-2008, 05:54 AM
wrong , if you edit the parts , i wrote , it is near 2-3 weeks ud!
and most time after 2-3 weeks comes a update
mrkprv
04-30-2008, 05:49 PM
Look allways that the timer is enabled = False at beginning and that the invental is allways 1...
I do this but when i open all my hacks the lag was a serious problem....
i think that there is another interval because i can't play...
dutch
05-01-2008, 05:21 AM
i got errors in the module when i used yoursblueflagrocket
nldeamon
05-02-2008, 03:05 AM
i got errors in the module when i used yoursblueflagrocket
mee too ("warrock") is red i dunno of that is the problem
Bigxxx
05-02-2008, 04:14 PM
If you make all right you dont get errors ;)
bloqueado93
05-04-2008, 06:59 PM
hey that tutorial dotn work, i put the new addresses and dont work
look i put this in the timer
Writememory(&H13773A0, &H264, 4)
i dont need put call warrock or something?
dutch
05-04-2008, 07:06 PM
just make 1 button add that code only u need to change 4 to -2000 because u got nfd xd offset
Googleâ„¢
05-05-2008, 10:47 AM
Thats a nice tutorial :)
Bigxxx
05-16-2008, 07:36 AM
thank you i hope so :)
NFD:
in a timer :::
Writememory(&H13773A0, &H264,-9999)
mr=bling
05-17-2008, 06:57 PM
is it possible to make Chams and colorwalls with vb08 not D3D ?
Bigxxx
05-22-2008, 03:52 PM
I dont think so ;)
do rud
05-22-2008, 04:35 PM
thx man its so easy to make hacks i vb!
but i now learn c++ in vc++ 6 becouse vc++ 2008 express is without mfc :mad:
Bigxxx
05-23-2008, 05:20 AM
good luck ;)
I want to try too
but no time :(
Durrcookie
06-03-2008, 01:04 PM
Hey! TY for the TUT it really helped me :D
Buuuuutt... when I replace the writememory ETC in the module I get these 'Warnings':
Function' kjhsd897354kjdfgsdf' Doesn't return a value on all code paths. A null reference exception could occur at run time when the result is used.
Aaandd... another question, What's the make .exe in vb8?I Can't find it anywhere o.O;
Bigxxx
06-06-2008, 08:06 AM
1. Warnings arent important
2. You can find "Build" at the top ;)
Sheeps
06-06-2008, 10:54 AM
Would VB8 be detected with NOP.
if so, would ASM be better?
All i really wnat to know is, what will make my hacks undetected
Bigxxx
06-06-2008, 01:52 PM
asm isnt better for me , i got faster kick ^^
pnbob10
06-07-2008, 04:26 PM
i need help..
ok i got up to the buttons and the timer
i changed the timer interval to 1
i put the timer code thingy
in both buttons
one true one false
then i got totaly lost
please help guys
Bigxxx
06-07-2008, 05:12 PM
then put the code into a timer
WriteMemory(&HAddy, Value , 4)
pnbob10
06-07-2008, 08:21 PM
ok i did
but then you said something about replacing something in it... and at the bottom it says i have errors
"Replace the Addy and Value part
The "4" stands for byte! You mustnt replace it for other hacks , like crosshair , scope etc , because it works allways"
yea dont know waht that means
sorry..
thankss
eieima
06-10-2008, 04:09 PM
dude how to i save as an aplication
Durrcookie
06-10-2008, 04:13 PM
Save as applicatoin? Don't you mean make .exe? just Save All and then at the top do Build and xhoose the top 1 (at the build option)
sniperwar
06-11-2008, 05:10 AM
Good tutorial :D I am going to make one hack with vb8 (longer undetectable)
eieima
06-12-2008, 05:59 AM
where did u first learned ur hacks tut i meen the person who taught u must be in this site can u tell me someone that can help me with hacks with more addreses and more help with it if u no wat i meen
eieima
06-12-2008, 06:16 AM
i save all then i clicked the build one and naw wat do i do wher is the aplication so i can use it wher does it go
Durrcookie
06-12-2008, 10:14 AM
i save all then i clicked the build one and naw wat do i do wher is the aplication so i can use it wher does it go
Documents/Visual Studio 2008/Projects/Yourhacksname/yourhacksname/bin/release
It should be there.
sniperwar
06-12-2008, 10:40 AM
What value of 5 slot?
WriteMemory(&HAddy, Value , 4)
squizz56
06-15-2008, 03:05 PM
ok someone help me!!! how u find addies and values?? plzz help
calladine
06-16-2008, 08:39 AM
thanks for the tut it reali helped but you wunt be able to help me on few over hacks please thanks add calladine to x fire ;)
calladine
06-16-2008, 08:43 AM
look on the fourm room for addies and valuses and player pointers easy to find if not ad me to x fire and i wil get you some :)
calladine
06-16-2008, 11:04 AM
can you help me i do the hack but it close all the time when i click on what should i do ?:(
thejester24
06-30-2008, 06:57 PM
What exactly do you edit the code in the module to? Or can you just put in random characters.
Bigxxx
06-30-2008, 07:34 PM
here a tut how to make a module ud (http://www.dxth4x.com/forums/showthread.php?t=7782)
XiangZhu
07-02-2008, 06:26 PM
Hey all , today i show you how to make a Visual basic 2008 hack!
All what you need is :
•Visual basic 2008
•A module , Download below!
•A brain ;)
-----------------------------------------
•1. Step! Download VB
-Ok after downloading Visual Basic 2008 (http://www.microsoft.com/express/download/) you must create a new Project! (File/New Project/Windows Forms Application)
•2. Step! Build the Form
After Creating the Form , you must open the Toolbox (Look Picture)
http://img229.imageshack.us/img229/6840/toolbox1za7.png
and create to buttons and one timer!(Look Picture)
http://bigxxxfilehost.bi.ohost.de/files/timerandbutton.jpg
Now it must look like this here (Look Picture)
http://bigxxxfilehost.bi.ohost.de/files/form111.jpg
I only renamend the buttons and a label ;)
•3. Step! The Coding!
WARNING FOR BEGINNING!
Look allways that the timer is enabled = False at beginning and that the invental is allways 1!
Ok now press doubleclick on the button1 and write in the coding part
Timer1.Enabled = True
Then press doubleclick on the button2 and write in the coding part
Timer1.Enabled = False
Is easy to understand right?
Button1 = Start the hack(5th slot)
Button2 = Stop the hack(5th slot)
-Now press doubleclick on the timer1 (Look that the invental is = 1!!!!!)
After you pressed doubleclick on the timer1 we come back to the coding part and must add the code for 5th slot , the code is :
WriteMemory(&HAddy, Value , 4)
Replace the Addy and Value part ;)
The "4" stands for byte! You mustnt replace it for other hacks , like crosshair , scope etc , because it works allways ;)
•4. Step!Coding a NFD / SJump hack / Stamina
Ok maybe you want to make a SJump / NFD Hack then you must code this:
If GetAsyncKeyState(17) Then
WriteFloatPointer(&HPlayerpointer, &HOffset, Value)
End If
GetAsyncKeyState(17) = CTRL
And replace the Playerpointer / Offset and Value part ...
If you want to code NFD you only need the part without the hotkey look:
WriteFloatPointer(&HPlayerpointer, Offset, Value)
And replace the parts Playerpointer / Offset and Value ...
Stamina code is the same only as value 100 look :
WriteFloatPointer(&HPlayerpointer , &HOffset , 100)
•5. Step! Add the module
Ok now the only think we need is a module!
You can get it here (http://bigxxxfilehost.bi.ohost.de/files/Module.txt)
VB2008 hacks are really new so it is near ud!
You only need to change :
Writememory
ReadFloat
WriteFloat
ReadLong
ReadFloatPointer
ReadLongPointer
WriteFloatPointer
WriteLongPointer
NOP
Ok after downloading you must add it :
Project/Add module/ Add button!
Then fill in the module!
AND WE ARE FINISHED!!!
I think it is much easier then all other VB's.
So just do it .
If you have question ask me per PM , but i am only a Human dont forget it !
------------------------------------------
TUT BY BIGXXX© For DXTH4X.COM!
------------------------------------------
VB2008 IS COMPLETE FREE!!!!!
SERIAL IS FREE ,TOO!
LEARN TO READ BOYZ!
OMG nice tut but im confuss wheres addy and value and please only put the codes no like this CODE]If GetAsyncKeyState(17) Then
WriteFloatPointer(&HPlayerpointer, &HOffset, Value)
End If [/CODE] little confuss because i dont know if i also put the word end and END if..
sry im just confuss but nice tut ty for the link for vb08
djonidjo
07-03-2008, 04:54 AM
Yo whats the value from 5th slot? The addy and stuff i know but the value??:****fag
XiangZhu
07-03-2008, 11:51 AM
where should i paste the module thing?
donkey60000
07-03-2008, 09:28 PM
well i tried that.... all the stuff.. i got 10 errors and 5 watevers lol uh bigxxx next time ur on xfire or somethin teamview me?
turkman321
07-07-2008, 12:31 PM
i cant find the project/add module/(add button)
i cant see this
:(add button
frostbitekid
07-07-2008, 12:39 PM
i cant find the project/add module/(add button)
i cant see this
:(add button
Um at the top? Project->Add module? You don't see it?
pimm3r
09-02-2008, 01:40 AM
i get some errors with WriteFloatPointer and WriteMemory, is this normal cus i dont have the module yet or...?
pimm3r
09-02-2008, 01:46 AM
change this in the module:
Writememory
ReadFloat
WriteFloat
ReadLong
ReadFloatPointer
ReadLongPointer
WriteFloatPointer
WriteLongPointer
NOP
where do i need to change this?? the module is big.
edit: i can find the project/add module but in the menu that comes when i press add moduel i cant find the add button.
Renji513
09-02-2008, 05:59 AM
where do i need to change this?? the module is big.
edit: i can find the project/add module but in the menu that comes when i press add moduel i cant find the add button.
dont bump old topics, VB is outdated snipersmile
pimm3r
09-02-2008, 07:44 AM
dont bump old topics, VB is outdated snipersmile
could be but i still have a question.
where do i need to post it else??
Renji513
09-02-2008, 05:08 PM
could be but i still have a question.
where do i need to post it else??
the module isnt that big if u understand it, the module is for each functions, means, if u have 1 function, then ur module will be small,
to change that, u just need to replace the Writefloatpoiner and all by whatever you want!
question is answered
Topic Can Be Closed For no more people to spam on this cuz .exe is patched, snipersmile
Gr4v1ty
09-02-2008, 07:57 PM
Exe are patched so I'll close this topic cause it's becoming a spam place since this doesn't work anymore cause it's patched.
Closed
Bigxxx
09-03-2008, 12:49 PM
No wrong it this tut is not just for warrock you can use it on any game so opened again ;)
Gr4v1ty
09-03-2008, 02:49 PM
No wrong it this tut is not just for warrock you can use it on any game so opened again ;)
Sorry for closing it. But people mostly talked about WR.
Now let's get back to discussion
mikec321
09-13-2008, 04:25 AM
lol im pretty new to this hope i can do it but what do u do with the code?> like where do u put it?
Bigxxx
09-13-2008, 06:19 AM
Learn here how to make the hacks working in warrock again (http://www.dxth4x.com/forums/showthread.php?t=10113)
viper
09-13-2008, 06:54 AM
i need help..
ok i got up to the buttons and the timer
i changed the timer interval to 1
i put the timer code thingy
in both buttons
one true one false
then i got totaly lost
please help guys
got to the same point as you dont feel to bad lol
Renji513
09-13-2008, 09:42 AM
got to the same point as you dont feel to bad lol
plz dont waste ur time on this and do what bigxxx said
pimm3r
09-14-2008, 05:46 AM
would someone mind taking a look at my vb2008 private hack?? i got some weird errors
pm me please if u want
Bigxxx
09-14-2008, 06:54 AM
Learn it on your own ;)
Or go vip
pimm3r
09-14-2008, 08:24 AM
Learn it on your own ;)
Or go vip
i am learnin but it doesnt go quick cuz there are no books etc.
foofighter
09-16-2008, 10:41 PM
ok i understand what to replace the add ith but what do u replace the value with? i put it like this
Writememory(&H504F88, Value, 4)
and i keep getting this
Error 1 Name 'Value' is not declared. C:\Documents and Settings\jr\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 12 31 WindowsApplication1
Durrcookie
09-17-2008, 07:36 AM
ok i understand what to replace the add ith but what do u replace the value with? i put it like this
Writememory(&H504F88, Value, 4)
and i keep getting this
Error 1 Name 'Value' is not declared. C:\Documents and Settings\jr\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb 12 31 WindowsApplication1
Exactly what hack are you trying to make?Because there has to be a number for the value so for now to fix the error make it 0 for example, but also tell me what hack ur trying to make so I can tell you what the exact value is
foofighter
09-17-2008, 09:12 AM
Exactly what hack are you trying to make?Because there has to be a number for the value so for now to fix the error make it 0 for example, but also tell me what hack ur trying to make so I can tell you what the exact value is
oh i was just trying to make invisable hack
Durrcookie
09-17-2008, 11:08 AM
oh i was just trying to make invisable hack
oh rofl then it's compeltely wrong. here's the code:
NOP(&Hinvisaddy,H1C)
and to turn it off turn H1C into H2C
aroman
09-24-2008, 09:14 AM
But vb2008 hacks are not working! how i can the hacks working?
Bigxxx
09-24-2008, 11:16 AM
Go here (http://www.dxth4x.com/forums/showthread.php?t=10113)
I think it is working ;)
aroman
09-25-2008, 01:42 PM
OK thanks ;)
Too thanks :D
Cars1132
10-29-2008, 09:39 PM
i didnt understand at all Cuz i lost my brain yesterday =D
LilCrazed
11-04-2008, 10:22 PM
this looks nice ima try it out
Tyreall101
11-04-2008, 11:29 PM
Thank you man!
presto6
11-09-2008, 01:16 AM
ok i need value 4 5th slot and im set
Value for 5th slot is 4 xD
6th slot is 5
7th slot is 6
8th slot is 7
have phun o.o
yungyikes
11-12-2008, 07:55 AM
i tried but quit on step 2..
Jackpot100
11-12-2008, 08:16 AM
Cool me will try to make one with this
TeNsIOn
11-26-2008, 01:49 PM
Hey
Ummmm
I need a serial # :O
You don't need a serial. Install trial, then go into regedit. Local machine--software--microsoft--VStudio (or sumthin)--Registration---Go to Params and change it to 1 killa
werewolf
11-27-2008, 02:42 PM
module hack detected
TeNsIOn
11-27-2008, 03:21 PM
module hack detected
Then change the detected strings...
Writememory
ReadFloat
WriteFloat
ReadLong
ReadFloatPointer
ReadLongPointer
WriteFloatPointer
WriteLongPointer
NOP
Here, to make it easy i attached an Undetected Module Maker killa
Credits to PheNix
dongthuc
03-01-2009, 10:07 PM
thanks share
sm0ked88
03-03-2009, 09:14 AM
Wait a fking moment...
isn't VB 2006/2008 hacks patched?
Cryptic
03-03-2009, 09:20 AM
Wait a fking moment...
isn't VB 2006/2008 hacks patched?
yes, if you took the time to accully look at the thread youd see how old this is
CodeMunkie
03-03-2009, 09:39 AM
what does this hack do and what game is it for. you didnt explain.
Edyscape
05-11-2009, 09:53 AM
ummm... why is this tread still open and not closed while the hack doesnt work?
tweaker99
10-28-2009, 08:15 AM
ummm... why is this tread still open and not closed while the hack doesnt work?
god your dumb gtfo noob and thanks OP works perfect i got the module from another site tho cause your link it broken
here it is
Module Module1
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public RBuff As Long
Public RBuff2 As Single
Public RBuff3 As Integer
Public Function Writememory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
Dim ac_clientLookUp As Process() = Process.GetProcessesByName("ac_client")
If ac_clientLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, ac_clientLookUp(0).Id)
WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
CloseHandle(processHandle)
End Function
Public Function ReadFloat(ByVal Address As Single)
Dim ac_clientLookUp As Process() = Process.GetProcessesByName("ac_client")
If ac_clientLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, ac_clientLookUp(0).Id)
ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing)
CloseHandle(processHandle)
Return RBuff
End Function
Public Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
Dim ac_clientLookUp As Process() = Process.GetProcessesByName("ac_client")
If ac_clientLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, ac_clientLookUp(0).Id)
WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
CloseHandle(processHandle)
End Function
Public Function ReadLong(ByVal Address As Integer)
Dim ac_clientLookUp As Process() = Process.GetProcessesByName("ac_client")
If ac_clientLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, ac_clientLookUp(0).Id)
ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing)
CloseHandle(processHandle)
Return RBuff
End Function
Public Function ReadFloatPointer(ByVal Base As Integer, ByVal Offset As Short)
Dim fullAddress As Long
Dim ac_clientLookUp As Process() = Process.GetProcessesByName("ac_client")
If ac_clientLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, ac_clientLookUp(0).Id)
ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)
fullAddress = RBuff + Offset
ReadFloat(processHandle, fullAddress, RBuff2, 4, Nothing)
Return RBuff2
CloseHandle(processHandle)
End Function
Public Function ReadLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Bytes As Integer)
Dim fullAddress As Long
Dim ac_clientLookUp As Process() = Process.GetProcessesByName("ac_client")
If ac_clientLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, ac_clientLookUp(0).Id)
ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)
fullAddress = RBuff + Offset
ReadProcessMemory(processHandle, fullAddress, RBuff3, Bytes, Nothing)
Return RBuff3
CloseHandle(processHandle)
End Function
Public Function WriteFloatPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Single)
Dim fullAddress As Long
Dim ac_clientLookUp As Process() = Process.GetProcessesByName("ac_client")
If ac_clientLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, ac_clientLookUp(0).Id)
ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)
fullAddress = RBuff + Offset
WriteFloatMemory(processHandle, fullAddress, Value, 4, Nothing)
CloseHandle(processHandle)
End Function
Public Function WriteLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Long, ByVal Bytes As Integer)
Dim fullAddress As Long
Dim ac_clientLookUp As Process() = Process.GetProcessesByName("ac_client")
If ac_clientLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, ac_clientLookUp(0).Id)
ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)
fullAddress = RBuff + Offset
WriteProcessMemory(processHandle, fullAddress, Value, Bytes, Nothing)
CloseHandle(processHandle)
End Function
Public Function NOP(ByVal Address As Integer, ByVal value As Integer)
Dim ac_clientLookUp As Process() = Process.GetProcessesByName("ac_client")
If ac_clientLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, ac_clientLookUp(0).Id)
WriteProcessMemory(processHandle, Address, value, 1, Nothing)
CloseHandle(processHandle)
End Function
End Module
th4natos
10-28-2009, 06:18 PM
Why did you bump this thread to flame someone?
Powered by vBulletin® Version 4.1.12 Copyright © 2012 vBulletin Solutions, Inc. All rights reserved.