[VB.NET] Mod menu base by [AeroCryX]

Hi there, today, i'll show you how to create a mod menu ( base ).
Let's start !

Create a new project :

First, add GetAsyncKey function and declare i, u and Hotkey3 :

Code:

 Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16

    Dim i As Integer = 1
    Dim u As Integer = 0
    Dim hotkey3 As Boolean

Next, you'll have to add a timer, enable it and put this code in :

Code:

 Dim hotkey2 As Boolean
        hotkey2 = GetAsyncKeyState(Keys.R)
        If hotkey2 = True Then
            i += 1
        End If

        hotkey3 = GetAsyncKeyState(Keys.Space)

Add some labels, rename them to something like that ( try to create the same design, You can change functions to whatever you want, you can also delete some labels. )

Add a new timer once again and put this code in :

Code:

 If i = 1 Then
            Label1.BackColor = Color.FromArgb(180, 70, 70)
            Label9.BackColor = Color.Black
        ElseIf i = 2 Then
            Label1.BackColor = Color.Black
            Label2.BackColor = Color.FromArgb(86, 130, 3)
        ElseIf i = 3 Then
            Label2.BackColor = Color.Black
            Label3.BackColor = Color.FromArgb(0, 127, 255)
        ElseIf i = 4 Then
            Label3.BackColor = Color.Black
            Label4.BackColor = Color.FromArgb(78, 61, 40)
        ElseIf i = 5 Then
            Label4.BackColor = Color.Black
            Label5.BackColor = Color.FromArgb(209, 98, 0)
        ElseIf i = 6 Then
            Label5.BackColor = Color.Black
            Label6.BackColor = Color.FromArgb(101, 3, 112)
        ElseIf i = 7 Then
            Label6.BackColor = Color.Black
            Label7.BackColor = Color.FromArgb(200, 70, 120)
        ElseIf i = 8 Then
            Label7.BackColor = Color.Black
            Label8.BackColor = Color.FromArgb(102, 102, 0)
        ElseIf i = 9 Then
            Label8.BackColor = Color.Black
            Label9.BackColor = Color.FromArgb(200, 10, 10)
        End If

I = Number of labels, if you have for exemple 7 labels, Here is your code :

Add also this code in the second timer :

Code:

 If i = 10 Then
            i = 1
        End If

        If u = 0 Then
            Me.Opacity = 0.85


        ElseIf u = 1 Then
            Me.Opacity = 0

        End If

        If u = 2 Then
            u = 0
        End If

Change

If i = 10

to

If i = Number of labels +1

Wow, you did a new mod menu, debug it and press " R " or / and " E "
Well, it's not finished yet !

add this code in the first timer :

Code:

 If hotkey3 = True And i = 1 Then
            'Do stuff, label1 Selected
        End If

        If hotkey3 = True And i = 2 Then
        'Do Stuff, label2 selected
        End If


        If hotkey3 = True And i = 3 Then
           'Do stuff, label3 selected
        End If

        If hotkey3 = True And i = 4 Then
           'Do stuff, label4 selected
        End If

        If hotkey3 = True And i = 5 Then
            'Do stuff label5 selected
        End If

        If hotkey3 = True And i = 6 Then
            'Do stuff label6 selected
        End If

        If hotkey3 = True And i = 7  Then
        'Do stuff, label7 selected
        End If

        If hotkey3 = True And i = 8 Then
        'Do stuff, label8 selected
        End If

Finally, yay
So it's a bit hard, but you guys could understand

DON'T FORGET TO GIVE CREDITS TO ME ( AEROCRYX75 )

[VB.NET] Mod menu base by [AeroCryX]

Post a Reply

Similar Threads

Tags for this Thread