[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 )

Let the leechers come, hehe.
Good job, thanks for sharing!

Originally Posted by Lovroman

Let the leechers come, hehe.
Good job, thanks for sharing!

Doubt the leechers know what to do with this, and the code to write behind/with it.
Nice share Btw King!

Beast share! Thank you very much!

[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 )

Let the leechers come, hehe.
Good job, thanks for sharing!

Originally Posted by Lovroman

Let the leechers come, hehe.
Good job, thanks for sharing!

Doubt the leechers know what to do with this, and the code to write behind/with it.
Nice share Btw King!

Beast share! Thank you very much!

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

Post a Reply

Similar Threads

Tags for this Thread

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

Post a Reply

Similar Threads

Tags for this Thread