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:
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
change all
Code:
Process.GetProcessesByName("WarRock")
to
Code:
Process.GetProcessesByName("engine")
the name of the process in this tut engine is for CA
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
save module2
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
Add:
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)
warning: dont write writelongpointer go on your module1 and write the
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)
now the timer will be like that:
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
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:
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)
you have Name tag timer complete
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
Add:
Code:
timer1.enabled =true
timer2.enabled = false
itll be like this:
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
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:
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
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