How To Make VB.net Hack

1. Step! Download VB

Ok after downloading Visual Basic 2008 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)



and create to buttons and one timer!(Look Picture)



Now it must look like this here (Look Picture)



3. Step! The Coding!

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

Quote :

Timer1.Enabled = True

Then press doubleclick on the button2 and write in the coding part

Quote :

Timer1.Enabled = False

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 :

Quote :

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:

Quote :

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:
Code:

Quote :

WriteFloatPointer(&HPlayerpointer, Offset, Value)

And replace the parts Playerpointer / Offset and Value ...

Stamina code is the same only as value 100 look :
Code:

Quote :

WriteFloatPointer(&HPlayerpointer , &HOffset , 100)

5. Step! Add the module

Ok now the only thing we need is a module!

Quote :

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 warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)

CloseHandle(processHandle)

End Function

Public Function ReadFloat(ByVal Address As Single)

Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(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 warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

WriteFloatMemory(processHandle, Address, Value, 4, Nothing)

CloseHandle(processHandle)

End Function

Public Function ReadLong(ByVal Address As Integer)

Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(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 warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(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 warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(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 warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(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 warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(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 warrockLookUp As Process() = Process.GetProcessesByName("WarRock")

If warrockLookUp.Length = 0 Then

End

End If

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)

WriteProcessMemory(processHandle, Address, value, 1, Nothing)

CloseHandle(processHandle)

End Function

End Module

VB2008 hacks are really new so it is near undetected!
You only need to change :

Quote :

Writememory
ReadFloat
WriteFloat
ReadLong
ReadFloatPointer
ReadLongPointer
WriteFloatPointer
WriteLongPointer
NOP