How To Make A D3D Menu in VB.NET for CF[Doesnt Require A Hook]
Okay this menu uses GetAsSyncKeyState method so u cud use it in cf :)
IMPORTANT INFO:YOU HAVE TO EDIT THE CODES AND ADD MORE LABELS WHICH IS EQUAL FUNCTIONS AND ITS ALL ABOUT COPY AND PASTE SO U WONT LEARN A SHIT SO PLZ TRY TO LEARN IT BY HARD EVEN IF ITS COPY AND PASTE PLZ ITS MY RESPONSIBILITY TO DELIVER THIS TO U TO LEARN NOT TO PASTE IT PLZ PLZ LEARN IT THEN PASTE IT :)
Okay to start with:
1.Make A new application and name it what ever you want..
2.now make the size of ur form to: 148,83
3.make the opacity to : 80%
4.make the transparency key to: Red
5.Make the startposition to : Manual
6.Make The Back Color to: Olive
Now To The Main Thing:
1.Make 4 labels
they have to be in this order:
Label1 Label3
Label2 Label4
2.Make 2 Timers[both have interval of 1 and enabled]
3.Name Label1 to : 2DBoxes [as example]
4.name label2 to : No Reload [as example]
5.name label 3 & 4 to : [OFF]
Having Every Thing Setteld Now..Lets Decorate:
1.Make A Panel:
A.Make The Back Color to: Dark Slate Blue [which can be found in web TAB in Back Color]
B.Make The Location to : 1,0
C.Make The Margin : 3,3,3,3
D.Make The Size: 147,82
E.Make The Tab Index to : 7
F.Add A Label: And Put It In The Up Of The Form Of The Panel And Name It : CrossFire
Now Lets Code:
Double Click On Form 1 and paste this:
Code:
Try
Interaction.AppActivate("crossfire") 'example game process name without .exe
Me.TopMost = True
Catch
Me.TopMost = True
End Try
Double Click On Timer 1 and Paste This:
Code:
If GetAsyncKeyState(Keys.Down) = -32767 Then
If Label1.ForeColor = Color.White Then
Label1.ForeColor = Color.Black
Label2.ForeColor = Color.White
Exit Sub
End If
If Label2.ForeColor = Color.White Then
Label2.ForeColor = Color.Black
'Label3.ForeColor = Color.White
Exit Sub
End If
End If
'/////////////////////UP/////////////////////
If GetAsyncKeyState(Keys.Up) = -32767 Then
If Label2.ForeColor = Color.White Then
Label2.ForeColor = Color.Black
Label1.ForeColor = Color.White
Exit Sub
End If
If Label1.ForeColor = Color.White Then
Label1.ForeColor = Color.Black
End If
End If
'******************Show/Hide Menue***********************
If GetAsyncKeyState(Keys.Insert) = -32767 Then
If Label1.Visible = False Then
Label1.Visible = True
Me.Show()
Exit Sub
End If
If Label1.Visible = True Then
Label1.Visible = False
Me.Hide()
Exit Sub
End If
End If
'********************close menue process*********************
If GetAsyncKeyState(Keys.Delete) = -32767 Then
Application.Exit()
Exit Sub
End If
Double Click On Timer 2 and Paste This:
Code:
If GetAsyncKeyState(Keys.Right) = -32767 Then
If Label1.ForeColor = Color.White Then
Label3.ForeColor = Color.White
Label3.Text = "[ON]"
'hack here
' or function
Exit Sub
End If
If Label2.ForeColor = Color.White Then
Label4.ForeColor = Color.White
Label4.Text = "[ON]"
'hack here
' or function
Exit Sub
End If
End If
'///////////////////////OFF///////////////////
If GetAsyncKeyState(Keys.Left) = -32767 Then
If Label1.ForeColor = Color.White Then
Label3.ForeColor = Color.Black
Label3.Text = "[OFF]"
'normal here
' normal function
Exit Sub
End If
If Label2.ForeColor = Color.White Then
Label4.ForeColor = Color.Black
Label4.Text = "[OFF]"
'hack here
' normal function
Exit Sub
End If
End If
Now To Reality and Reading/Writing Memory Process = to a HOOK
1.Add A New Module
2.Erase All Whats In It
3.Paste This Memory Code:
Code:
Module Module1
#Region "Declarations"
Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function WriteProcessMemory 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 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" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
Private string1 As Long
Private string2 As Integer
Private RBuff1 As Long
Private RBuff2 As Single
Private RBuff3 As Integer
#End Region
#Region "Check Process/ReadDll"
Private Function readdll(ByVal modulename As String)
Dim procmodule As ProcessModule
Dim constant1 As Integer
Dim constant2 As Long
Dim constant3 As Process() = Process.GetProcessesByName("crossfire")
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
Public Function IsProcessOpen(ByVal name As String) As Boolean
For Each clsProcess As Process In Process.GetProcesses
If clsProcess.ProcessName.Contains(name) Then
Return True
End If
Next
' Do nothing
Return False
End Function
#End Region
#Region "Hacks"
'WriteMemory
Private Function WriteMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
Dim crossfireLookUp As Process() = Process.GetProcessesByName("crossfire")
If crossfireLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, crossfireLookUp(0).Id)
WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
CloseHandle(processHandle)
Return Nothing
End Function
'WriteFloat
Private Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
Dim crossfireLookUp As Process() = Process.GetProcessesByName("iw4mp")
If crossfireLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, crossfireLookUp(0).Id)
WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
CloseHandle(processHandle)
Return Nothing
End Function
'NOP
Private Function NOP(ByVal Address As Integer, ByVal value As Integer)
Dim crossfireLookUp As Process() = Process.GetProcessesByName("crossfire")
If crossfireLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, crossfireLookUp(0).Id)
WriteProcessMemory(processHandle, Address, value, 1, Nothing)
CloseHandle(processHandle)
Return Nothing
End Function
#End Region
#Region "Functions"
Public Function memoryh4x(ByVal address As String, ByVal value As Long, ByVal bytes As Byte)
If IsProcessOpen("crossfire") Then
string1 = readdll("CShell.dll")
string2 = "&H" & Hex(string1 + address)
WriteMemory(string2, value, bytes)
End If
Return Nothing
End Function
Public Function floath4x(ByVal address As String, ByVal value As Long)
If IsProcessOpen("crossfire") Then
string1 = readdll("CShell.dll")
string2 = "&H" & Hex(string1 + address)
WriteFloat(string2, value)
End If
Return Nothing
End Function
Public Function noph4x(ByVal address As String, ByVal value As Long)
If IsProcessOpen("crossfire") Then
string1 = readdll("CShell.dll")
string2 = "&H" & Hex(string1 + address)
NOP(string2, value)
End If
Return Nothing
End Function
#End Region
End Module
PLZ LEARN THEN COMPILE ITS MY DUTY TO MAKE U LEARN FROM THIS TOPIC
@Hero
@Scata
@Royku
i guess this worths a sticky plz :)[discuss it together]
Thank Me If Helped and dont forget the REP+ Button
And Give Me Credits IF UR GONNA USE IT :)
GL
its 70% miine cuz
@giniyat101 helped me with some of the source due to his release [TUTORIAL]Simple Menu
and ofcourse google helped me in the read/write memory process and ofc @Dead(H)ell << ME for the main form and the codes haha tehe
