View Poll Results: Will You Give Credits?

Voters
44. This poll is closed
  • Yh Sure I will Give Credits

    36 81.82%
  • IT SUCKS I WON'T

    8 18.18%
Page 1 of 5 123 ... LastLast
Results 1 to 15 of 69
  1. #1
    Dead(H)ell's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Location
    Earth
    Posts
    471
    Reputation
    37
    Thanks
    715
    My Mood
    Flirty

    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

  2. The Following 13 Users Say Thank You to Dead(H)ell For This Useful Post:

    -iFaDy..* (03-23-2012),..x_X_x.. (03-23-2012),annaim123 (05-19-2014),curaboyo (06-27-2012),desertflame (05-09-2012),hanamychy (04-08-2012),Hiruko Fumiko (08-23-2016),Joker4Hack (04-28-2012),nomanis (08-06-2012),pDevice (04-29-2012),protsunami (07-23-2017),ramo (03-23-2012),rvk467 (05-21-2012)

  3. #2
    ..x_X_x..'s Avatar
    Join Date
    Dec 2011
    Gender
    male
    Location
    On The [[[MoOoN]]]
    Posts
    1,812
    Reputation
    49
    Thanks
    620
    My Mood
    Angelic
    OoO..thanx very much...And i think i learned a few things.......Iam studying V.B So...I found it easy some way::

  4. #3
    Dead(H)ell's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Location
    Earth
    Posts
    471
    Reputation
    37
    Thanks
    715
    My Mood
    Flirty
    Quote Originally Posted by cinamarcina View Post
    OoO..thanx very much...And i think i learned a few things.......Iam studying V.B So...I found it easy some way::
    Thnx And Your Welcome xD

  5. #4

  6. #5
    lucas123456's Avatar
    Join Date
    Mar 2012
    Gender
    male
    Posts
    33
    Reputation
    10
    Thanks
    0
    adding a module

  7. #6
    Dead(H)ell's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Location
    Earth
    Posts
    471
    Reputation
    37
    Thanks
    715
    My Mood
    Flirty
    Quote Originally Posted by cfs View Post
    Will this make a working hack or no?
    YUP
    /msg2short

  8. #7
    DarkNess992's Avatar
    Join Date
    Mar 2012
    Gender
    male
    Posts
    36
    Reputation
    3
    Thanks
    3
    Gewd Job

  9. #8
    ramo's Avatar
    Join Date
    Sep 2010
    Gender
    male
    Location
    A.R.E
    Posts
    291
    Reputation
    82
    Thanks
    4,076
    My Mood
    Blah
    @Dead(H)ell Open Ur Mail[COLOR="Silver"]
    &&Thanks for the tut
    Last edited by ramo; 03-23-2012 at 03:13 AM.

  10. #9
    Dead(H)ell's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Location
    Earth
    Posts
    471
    Reputation
    37
    Thanks
    715
    My Mood
    Flirty
    Quote Originally Posted by ramo View Post
    @Dead(H)ell Open Ur Mail
    &&Thanks for the tut


    UW,Bro any time
    Last edited by Dead(H)ell; 03-23-2012 at 03:18 AM.

  11. #10
    pakeke80's Avatar
    Join Date
    Sep 2011
    Gender
    male
    Posts
    43
    Reputation
    10
    Thanks
    23
    My Mood
    Devilish
    getkeyasync state is not declared,,,,,
    to solve that error, copy paste this to the module 1:
    Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

  12. #11
    Dead(H)ell's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Location
    Earth
    Posts
    471
    Reputation
    37
    Thanks
    715
    My Mood
    Flirty
    Quote Originally Posted by pakeke80 View Post
    getkeyasync state is not declared,,,,,
    to solve that error, copy paste this to the module 1:
    Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
    i said learn and i didnt give u a full code cuz ve to learn to make it full GL & GJ that u found it theres still more

  13. #12
    pakeke80's Avatar
    Join Date
    Sep 2011
    Gender
    male
    Posts
    43
    Reputation
    10
    Thanks
    23
    My Mood
    Devilish
    how exactly it works????,,,,,,, when im in game in crossfire, when i pressed the arrow keys nothing happen

  14. #13
    jhefrey's Avatar
    Join Date
    Dec 2009
    Gender
    male
    Posts
    292
    Reputation
    11
    Thanks
    84
    My Mood
    Amused
    is there any preview of this.??
    Press Thanks If I Helped You




  15. #14
    Dead(H)ell's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Location
    Earth
    Posts
    471
    Reputation
    37
    Thanks
    715
    My Mood
    Flirty
    Quote Originally Posted by jhefrey View Post
    is there any preview of this.??
    like?
    /msg2short

  16. #15
    DarkNess992's Avatar
    Join Date
    Mar 2012
    Gender
    male
    Posts
    36
    Reputation
    3
    Thanks
    3
    Quote Originally Posted by Dead(H)ell View Post


    like?
    /msg2short
    he mean screen shot

Page 1 of 5 123 ... LastLast

Similar Threads

  1. How can i make a d3d menu?
    By [HP]Unique in forum Combat Arms Coding Help & Discussion
    Replies: 3
    Last Post: 08-06-2011, 09:45 PM
  2. help how to make a hack menu for CF
    By jhefrey in forum CrossFire Hack Coding / Programming / Source Code
    Replies: 4
    Last Post: 10-29-2010, 06:18 PM
  3. How To Make Warrock D3d Menu Hack with all hack functions
    By srinuv in forum Programming Tutorial Requests
    Replies: 5
    Last Post: 09-15-2010, 08:12 AM
  4. [REQUEST]How work that :Warrock D3D Menu Hack
    By taylan in forum Programming Tutorial Requests
    Replies: 0
    Last Post: 01-26-2010, 09:06 AM
  5. Can someone plz post how to make arrow moving menu in vb6
    By aprill27 in forum Visual Basic Programming
    Replies: 2
    Last Post: 05-04-2008, 09:20 AM