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