Home › Forum › Programming › Visual Basic Programming › Ken53406's Visual Basics Hacking Tutorial (Trainers)
Ken53406's Visual Basics Hacking Tutorial (Trainers)
first you need:
Vb.Net : Downloads
Please note that these hacks have been patched, you need the new addies of the nametags to replace to old addies in order for these to work, i did this so not all noobs would be making a bunch of bs that would get patched in 1 day flat srryz
You can find the new addies with an undetected cheat engine.
Now you can begin this tut:
Open vb > File > New project > windows application forms
toolbox
add button
toolbox > ab button > click on form
for this tut add 2 button
add timer
toolbox > timer
for this tut add 2 timer
Now you need modul
Project > add module... > click ok
For undetected modul:http://www.********e.com/?4s3t9veb8o2
open phenix undetected modul maker
generate fast module > copy all text > open your module in vb > past the text
Exemple in your module:
change all
to
the name of the process in this tut engine is for CA
save module1
add other modul
and paste
save module2
now:
Double click on your timer:
you will get:
Add:
warning: dont write writelongpointer go on your module1 and write the
function below 'writelongpointer
exemple:
And now replace to
now the timer will be like that:
cshell.dll = Module address
&H451014 = address
&H2C = &H + your Offset
1 = value you want
2 = type of byte
now add new timer with the same code of timer1 but change value to 2:
you have Name tag timer complete
but you need button to active it
double click on button1
you will get:
Add:
itll be like this:
do the same for button 2 but inverse the false and true
now you have complete Name tag as you see button1 is for Alpha and button2 for bravo
How add simple hack (not a pointer)
do the same but dont add writelongpointer but writememory it will look like:
In timer:
this is for Server Hack Jackson
To Make the Hack more clear
single click on button1
go > properties > text
enter see Alpha or something
you can change lot of things:
the more important to change:
form1 > formborderstyle = fixed single
form1 > maximisebox = false
forecolor = textcolore
font = text style
location = x,y (modify it manualy for more accuracy)
and the other...
BackColor = font of the button
BackGroundimage = Put image on button
Cursor = change the cursor when you see the button
... test it by yourself I think you can
you can also change the style with button or timer
exemple add label1 > properties > text = Current
in the button1:
label1.text = label1.text + " Alpha on"
in the button 2:
label1.text = label1.text + " Bravo on"
or dont go in propertie and
in button1:
label1.text = "Current: Alpha on"
you can change lot only try and you will see
you can enter on you computer by:
my.computer
Add settings in your form
right click on your project > properties
>settings
now add string and the value at end:
to use settings in your form:
My.settings.****1
I use setting to auto ubdate my hack with the following code
Button:
my.settings.****1 = textbox1.text
My.settings.save
and i use like that:
dim address1 = ****1
and i replace &H451014 by address1
Dont forget to thanks me plz it take time to make this
and post if anything its not clear
Vb.Net : Downloads
Please note that these hacks have been patched, you need the new addies of the nametags to replace to old addies in order for these to work, i did this so not all noobs would be making a bunch of bs that would get patched in 1 day flat srryz
You can find the new addies with an undetected cheat engine.
Now you can begin this tut:
Open vb > File > New project > windows application forms
toolbox
add button
toolbox > ab button > click on form
for this tut add 2 button
add timer
toolbox > timer
for this tut add 2 timer
Now you need modul
Project > add module... > click ok
For undetected modul:http://www.********e.com/?4s3t9veb8o2
open phenix undetected modul maker
generate fast module > copy all text > open your module in vb > past the text
Exemple in your module:
Code:
Private Declare Function ********** Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function ********** Lib "kernel32" Alias "WriteProcessMemory" (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 ********** 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 ********** 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 ********** 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 ********** Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
Public Declare Function ********** Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Public ********** As Long
Public ********** As Single
Public ********** As Integer
'WriteMemory
Public Function ********** (ByVal ********** As Integer, ByVal ********** As Long, ByVal ********** As Integer)
Dim ********** As Process() = Process.GetProcessesByName("WarRock")
If **********.Length = 0 Then
End
End If
Dim ********** As IntPtr = **********(&H1F0FFF, 0, **********(0).Id)
**********(**********, **********, **********, **********, Nothing)
**********(**********)
End Function
'ReadFloat
Public Function ********** (ByVal ********** As Single)
Dim ********** As Process() = Process.GetProcessesByName("WarRock")
If **********.Length = 0 Then
End
End If
Dim ********** As IntPtr = **********(&H1F0FFF, 0, **********(0).Id)
**********(**********, **********, **********, 4, Nothing)
**********(**********)
Return **********
End Function
'WriteFloat
Public Function ********** (ByVal ********** As Integer, ByVal ********** As Single)
Dim ********** As Process() = Process.GetProcessesByName("WarRock")
If **********.Length = 0 Then
End
End If
Dim ********** As IntPtr = **********(&H1F0FFF, 0, **********(0).Id)
**********(**********, **********, **********, 4, Nothing)
**********(**********)
End Function
'ReadLong
Public Function ********** (ByVal ********** As Integer)
Dim ********** As Process() = Process.GetProcessesByName("WarRock")
If **********.Length = 0 Then
End
End If
Dim ********** As IntPtr = **********(&H1F0FFF, 0, **********(0).Id)
**********(**********, **********, **********, 4, Nothing)
**********(**********)
Return **********
End Function
'ReadFloatPointer
Public Function ********** (ByVal ********** As Integer, ByVal ********** As Short)
Dim ********** As Long
Dim ********** As Process() = Process.GetProcessesByName("WarRock")
If **********.Length = 0 Then
End
End If
Dim ********** As IntPtr = **********(&H1F0FFF, 0, **********(0).Id)
**********(**********, **********, **********, 4, Nothing)
********** = ********** + **********
**********(**********, **********, **********, 4, Nothing)
Return **********
**********(**********)
End Function
'ReadLongPointer
Public Function ********** (ByVal ********** As Integer, ByVal ********** As Short, ByVal ********** As Integer)
Dim ********** As Long
Dim ********** As Process() = Process.GetProcessesByName("WarRock")
If **********.Length = 0 Then
End
End If
Dim ********** As IntPtr = **********(&H1F0FFF, 0, **********(0).Id)
**********(**********, **********, **********, 4, Nothing)
********** = ********** + **********
**********(**********, **********, **********, **********, Nothing)
Return **********
**********(**********)
End Function
'WriteFloatPointer
Public Function ********** (ByVal ********** As Integer, ByVal ********** As Short, ByVal ********** As Single)
Dim ********** As Long
Dim ********** As Process() = Process.GetProcessesByName("WarRock")
If **********.Length = 0 Then
End
End If
Dim ********** As IntPtr = **********(&H1F0FFF, 0, **********(0).Id)
**********(**********, **********, **********, 4, Nothing)
********** = ********** + **********
**********(**********, **********, **********, 4, Nothing)
**********(**********)
End Function
'WriteLongPointer
Public Function ********** (ByVal ********** As Integer, ByVal ********** As Short, ByVal ********** As Long, ByVal ********** As Integer)
dim ********** as long
Dim ********** As Process() = Process.GetProcessesByName("WarRock")
If **********.Length = 0 Then
End
End If
Dim ********** As IntPtr = **********(&H1F0FFF, 0, **********(0).Id)
**********(**********, **********, **********, 4, Nothing)
********** = ********** + **********
**********(**********, **********, **********, **********, Nothing)
**********(**********)
End Function
'NOP
Public Function ********** (ByVal ********** As Integer, ByVal ********** As Integer)
Dim ********** As Process() = Process.GetProcessesByName("WarRock")
If **********.Length = 0 Then
End
End If
Dim ********** As IntPtr = **********(&H1F0FFF, 0, **********(0).Id)
**********(**********, **********, **********, 1, Nothing)
**********(**********)
End Function
Code:
Process.GetProcessesByName("WarRock")
Code:
Process.GetProcessesByName("engine")
save module1
add other modul
and paste
Code:
'readdll
Public Function readdll(ByVal modulename As String)
Dim procmodule As ProcessModule
Dim constant1 As Integer
Dim constant2 As Long
Dim constant3 As Process() = Process.GetProcessesByName("engine")
If constant3.Length = 0 Then
Return 0
End If
For Each procmodule In constant3(0).Modules
If modulename = procmodule.ModuleName Then
constant1 = procmodule.BaseAddress
End If
Next
constant2 = constant1
Return constant2
End Function
now:
Double click on your timer:
you will get:
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick End Sub
Code:
dim *****1 as long
dim *****2 as integer
*****1 = readdll("cshell.dll") 'module of your address
*****2 = "&H" + Hex(*****1 + &H451014)
Call writelongpointer(*****2, &H2C, 1, 2)
function below 'writelongpointer
exemple:
Code:
'WriteLongPointer Public Function ********** (ByVal ********** As Integer, ByVal ********** As Short, ByVal ********** As Long, ByVal ********** As Integer) )
And now replace to
Code:
Call **********(string2, &H2C, 1, 2)
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
dim ****1 as long
dim ****2 as integer
****1 = readdll("cshell.dll")
****2 = "&H" + Hex(****1 + &H451014)
Call VFAQASUYHE(****2, &H2C,1,2)
end sub
&H451014 = address
&H2C = &H + your Offset
1 = value you want
2 = type of byte
now add new timer with the same code of timer1 but change value to 2:
Code:
dim ****1 as long
dim ****2 as integer
****1 = readdll("cshell.dll") 'module of your address
****2 = "&H" + Hex(****1 + &H451014)
Call ********(****2, &H2C,2,2)
but you need button to active it
double click on button1
you will get:
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub
Code:
timer1.enabled =true timer2.enabled = false
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click timer1.enabled = True timer2.enabled = False End Sub
now you have complete Name tag as you see button1 is for Alpha and button2 for bravo
How add simple hack (not a pointer)
do the same but dont add writelongpointer but writememory it will look like:
In timer:
Code:
dim ****1 as long
dim ****2 as integer
****1 = readdll("cshell.dll") 'module of your address
****2 = "&H" + Hex(****1 + &H48965C)
Call writememory(****2,500,2)
500 = value
2 = type of bytes
To Make the Hack more clear
single click on button1
go > properties > text
enter see Alpha or something
you can change lot of things:
the more important to change:
form1 > formborderstyle = fixed single
form1 > maximisebox = false
forecolor = textcolore
font = text style
location = x,y (modify it manualy for more accuracy)
and the other...
BackColor = font of the button
BackGroundimage = Put image on button
Cursor = change the cursor when you see the button
... test it by yourself I think you can
you can also change the style with button or timer
exemple add label1 > properties > text = Current
in the button1:
label1.text = label1.text + " Alpha on"
in the button 2:
label1.text = label1.text + " Bravo on"
or dont go in propertie and
in button1:
label1.text = "Current: Alpha on"
you can change lot only try and you will see
you can enter on you computer by:
my.computer
Add settings in your form
right click on your project > properties
>settings
now add string and the value at end:
to use settings in your form:
My.settings.****1
I use setting to auto ubdate my hack with the following code
Button:
my.settings.****1 = textbox1.text
My.settings.save
and i use like that:
dim address1 = ****1
and i replace &H451014 by address1
Dont forget to thanks me plz it take time to make this
and post if anything its not clear
-_^ ...
Thanks for the spam much? I did not post this for you to spam in, I spent alot of time posting this and sharing my knowledge with everyone here. Hopefully Someone will appreciate this post and build off from it. Thank and +rep me! lolz any way if theres any problem at all or if you need help PM me Or add me on msn for help kenmitchel@yahoo.com
Originally Posted by ken53406
Thanks for the spam much? I did not post this for you to spam in, I spent alot of time posting this and sharing my knowledge with everyone here. Hopefully Someone will appreciate this post and build off from it. Thank and +rep me! lolz any way if theres any problem at all or if you need help PM me Or add me on msn for help kenmitchel@yahoo.com
but yes, thanks, even though this isnt useful to me, at least not at the moment, Thanks.
*edit* after looking over it... you need to put space in between the words that get filtered with *****
so basically... this is CA trainer? nice.. GJ!
Looks rather similar to something iOwnage posted months ago?
BTW, your not going to get a spot on the coding team if you code vb...
BTW, your not going to get a spot on the coding team if you code vb...
Well alot of people think that visual basics is no good for game hacking... AND THERE FUCKING RETARDED if they think its useless, I can make dll's and everything else that other people make with c++, So visual basics is not useless or limited at all, So basically what im tryin to say is that this tutorial is showing that visual basics is in no form "limited" at all
If you need any help with anything or need proof that vb is not useless post here please
And iownage didnt post this shit first, i had it posted on my old site and he leeched it from me saying it was his
If you need any help with anything or need proof that vb is not useless post here please
And iownage didnt post this shit first, i had it posted on my old site and he leeched it from me saying it was his
Originally Posted by ken53406
Well alot of people think that visual basics is no good for game hacking... AND THERE FUCKING RETARDED if they think its useless, I can make dll's and everything else that other people make with c++, So visual basics is not useless or limited at all, So basically what im tryin to say is that this tutorial is showing that visual basics is in no form "limited" at all
If you need any help with anything or need proof that vb is not useless post here please
And iownage didnt post this shit first, i had it posted on my old site and he leeched it from me saying it was his
If you need any help with anything or need proof that vb is not useless post here please
And iownage didnt post this shit first, i had it posted on my old site and he leeched it from me saying it was his
Second, I believe that you can't hack games with VB, so are you calling me retarded??
Third, I have seen this before, all it is, is a repost
Originally Posted by PixieCorp
First, you aren't supposed to have an outside link
Second, I believe that you can't hack games with VB, so are you calling me retarded??
Third, I have seen this before, all it is, is a repost
I wrote it ages ago and found it again going through my sites old posts...
And pixie you can hack games with visual basics, You CAN mmake dll's with visual basics also...This tut is showing how to HACK a game with visual basics...
So yes im saying you can hack a game using vb.
I can teach you or others more in depth if theyd like me to
Originally Posted by ken53406
Do you not see where i wrote "This Is my post from my old website".........
I wrote it ages ago and found it again going through my sites old posts...
And pixie you can hack games with visual basics, You CAN mmake dll's with visual basics also...This tut is showing how to HACK a game with visual basics...
So yes im saying you can hack a game using vb.
I can teach you or others more in depth if theyd like me to
I wrote it ages ago and found it again going through my sites old posts...
And pixie you can hack games with visual basics, You CAN mmake dll's with visual basics also...This tut is showing how to HACK a game with visual basics...
So yes im saying you can hack a game using vb.
I can teach you or others more in depth if theyd like me to
And the only way you can make an actual hack in visual basics is by the .DLL, not by any program you make. The most you can make (by program, not .dll) that is close to a hack, is a Undetected Cheat Engine (Scans and freezes addresses)
EDIT: I merged your double post for you
Epic C&P
2short
2short
Yes i have posted this here ages ago lol and thx pixie for merging em 
And you can make a hack with vb ive made nametags hack and a few other things wu=ith vb without using the dll, i memory hack lolz
The reason i reposted it is because i saw it no longer was on the site im just trying to get this back out there
And you can make a hack with vb ive made nametags hack and a few other things wu=ith vb without using the dll, i memory hack lolz
The reason i reposted it is because i saw it no longer was on the site im just trying to get this back out there
Originally Posted by ken53406
Yes i have posted this here ages ago lol and thx pixie for merging em
And you can make a hack with vb ive made nametags hack and a few other things wu=ith vb without using the dll, i memory hack lolz
The reason i reposted it is because i saw it no longer was on the site im just trying to get this back out there
And you can make a hack with vb ive made nametags hack and a few other things wu=ith vb without using the dll, i memory hack lolz
The reason i reposted it is because i saw it no longer was on the site im just trying to get this back out there
Ive actually been trying to make chams/wallhack with visual basics it is possible but when i finish ill release my source code to the public for learning purposes
1. People how is it that eveything turns to a flame...if you are going to flame just shut the fuck up.
2. Sorry, but this was posted multiple times.
3. PixieCorp you can hack games in visual basic...
2. Sorry, but this was posted multiple times.
3. PixieCorp you can hack games in visual basic...
Originally Posted by Coder Never
1. People how is it that eveything turns to a flame...if you are going to flame just shut the fuck up.
2. Sorry, but this was posted multiple times.
3. PixieCorp you can hack games in visual basic...
2. Sorry, but this was posted multiple times.
3. PixieCorp you can hack games in visual basic...
And yes, it was posted multiple times
Similar Threads
- 3Last post
- 3Last post
- 6Last post
- NEED HELP PLEASE ( Visual Basic Hacks )By gotter in Combat Arms Hack Coding / Programming / Source Code10Last post
- 33Last post