Ken53406's Visual Basics Hacking Tutorial (Trainers)

[ken53406]

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:https://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:

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

change all

Process.GetProcessesByName("WarRock")

to

Process.GetProcessesByName("engine")

the name of the process in this tut engine is for CA
save module1

add other modul
and paste

'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

save module2

now:

Double click on your timer:
you will get:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

End Sub

Add:

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)

warning: dont write writelongpointer go on your module1 and write the
function below 'writelongpointer
exemple:

'WriteLongPointer
Public Function ********** (ByVal ********** As Integer, ByVal ********** As Short, ByVal ********** As Long, ByVal ********** As Integer)
)

And now replace to

Call **********(string2, &H2C, 1, 2)

now the timer will be like that:

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

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:

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)

you have Name tag timer complete
but you need button to active it
double click on button1
you will get:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub

Add:

timer1.enabled =true
timer2.enabled = false

itll be like this:

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

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:

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

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

[XGelite]

-_^ ...

[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

[XGelite]

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

yw

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!

[LegendaryAbbo]

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...

[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

[Pixie]

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

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

[ken53406]

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

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

[Pixie]

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 meant I have seen this on MPGH before
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

[iWAFFLE]

Epic C&P

2short

[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

[Pixie]

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

If you meant name tags, then yeah, I was thinking of chams, or wallhacks

[ken53406]

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

[CoderNever]

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...

[Pixie]

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...

Fine I guess you can
And yes, it was posted multiple times