[RELEASE AND SOURCE CODE] HotKEY Checker

[Dreamer]

Hey guys its me with another tool :P Took me about 2 hours to type all the codes up so just don't start flaming. The program is a hot key checker. It checks to see if a hot key is working. I got the idea after the public hack from Blood semi worked. The hack had frame time but the menu didn't show. I thought that the Insert key was broken so I made this to check and I just made the tool with a lot of hot keys. So if you think that you have a broken key use this to check. I have the source code that u can copy and paste at the bottom enjoy and give credits :P
DONT FOREGET TO THANK

Hotkeys That Are Checkable:
Insert
Home
Page Up
Page Down
End
Tab
Up Arrow
Down Arrow
Left Arrow
Right Arrow
Plus Key
Subtract Key
Caps Lock
Scroll Lock 
Num Lock
1 Key
2 Key
3 Key
4 Key
5 Key
6 Key
7 Key
8 Key
9 Key
0 Key
NumPad 1
NumPad 2
NumPad 3
NumPad 4
NumPad 5
NumPad 6
NumPad 7
NumPad 8
NumPad 9 
NumPad 0
F1
F2
F3
F4
F5
F6
F7
F8
F9
F10
F11
F12
A Key
B Key
C Key
D Key
E Key
F Key
G Key
H Key
I Key
J Key
K Key
L Key
M Key
N Key
O Key
P Key
Q Key
R Key
S Key
T Key
U Key
V Key
W Key
X Key
Y Key
Z Key

SOurce Code

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Thanks for using hotkey checker by killer66143!")
        RadioButton2.Checked = True
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("https://mpgh.net")
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            Label3.Text = "HotKey Checker Is ON"
            Timer1.Enabled = True
        End If
        If RadioButton2.Checked = True Then
            Label3.Text = "HotKey Checked Is OFF"
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton1.Checked = True Then
            Label3.Text = "HotKey Checker Is ON"
            Timer1.Enabled = True
        End If
        If RadioButton2.Checked = True Then
            Label3.Text = "HotKey Checked Is OFF"
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If RadioButton2.Checked = True Then
            Me.Enabled = False
        End If
        If RadioButton1.Checked = True Then
            Me.Enabled = True
        End If
        Dim tab As Boolean
        tab = GetAsyncKeyState(Keys.Tab)
        If tab = True Then
            MsgBox("Your Tab Key Is Working Correctly!")
        End If
        Dim one As Boolean
        one = GetAsyncKeyState(Keys.D1)
        If one = True Then
            MsgBox("Your 1 Key Is Working Correctly!")
        End If
        Dim num1 As Boolean
        num1 = GetAsyncKeyState(Keys.NumPad1)
        If num1 = True Then
            MsgBox("Your Num1 Key Is Working Correctly!")
        End If
        Dim num2 As Boolean
        num2 = GetAsyncKeyState(Keys.NumPad2)
        If num2 = True Then
            MsgBox("Your Num2 Key Is Working Correctly!")
        End If
        Dim num3 As Boolean
        num3 = GetAsyncKeyState(Keys.NumPad3)
        If num3 = True Then
            MsgBox("Your Num3 Key Is Working Correctly!")
        End If
        Dim num4 As Boolean
        num4 = GetAsyncKeyState(Keys.NumPad4)
        If num4 = True Then
            MsgBox("Your Num4 Key Is Working Correctly!")
        End If
        Dim num5 As Boolean
        num5 = GetAsyncKeyState(Keys.NumPad5)
        If num5 = True Then
            MsgBox("Your Num5 Key Is Working Correctly!")
        End If
        Dim num6 As Boolean
        num6 = GetAsyncKeyState(Keys.NumPad6)
        If num6 = True Then
            MsgBox("Your Num6 Key Is Working Correctly!")
        End If
        Dim num7 As Boolean
        num7 = GetAsyncKeyState(Keys.NumPad7)
        If num7 = True Then
            MsgBox("Your Num7 Key Is Working Correctly!")
        End If
        Dim num8 As Boolean
        num8 = GetAsyncKeyState(Keys.NumPad8)
        If num8 = True Then
            MsgBox("Your Num8 Key Is Working Correctly!")
        End If
        Dim num9 As Boolean
        num9 = GetAsyncKeyState(Keys.NumPad9)
        If num9 = True Then
            MsgBox("Your Num9 Key Is Working Correctly!")
        End If
        Dim num0 As Boolean
        num0 = GetAsyncKeyState(Keys.NumPad0)
        If num0 = True Then
            MsgBox("Your Num0 Key Is Working Correctly!")
        End If
        Dim plus As Boolean
        plus = GetAsyncKeyState(Keys.Add)
        If plus = True Then
            MsgBox("Your Plus Key Is Working Correctly!")
        End If
        Dim subtract As Boolean
        subtract = GetAsyncKeyState(Keys.Subtract)
        If subtract = True Then
            MsgBox("Your Subtract Key Is Working Correctly!")
        End If
        Dim two As Boolean
        two = GetAsyncKeyState(Keys.D2)
        If two = True Then
            MsgBox("Your 2 Key Is Working Correctly!")
        End If
        Dim three As Boolean
        three = GetAsyncKeyState(Keys.D3)
        If three = True Then
            MsgBox("Your 3 Key Is Working Correctly!")
        End If
        Dim four As Boolean
        four = GetAsyncKeyState(Keys.D4)
        If four = True Then
            MsgBox("Your 4 Key Is Working Correctly!")
        End If
        Dim five As Boolean
        five = GetAsyncKeyState(Keys.D5)
        If five = True Then
            MsgBox("Your 5 Key Is Working Correctly!")
        End If
        Dim six As Boolean
        six = GetAsyncKeyState(Keys.D6)
        If six = True Then
            MsgBox("Your 6 Key Is Working Correctly!")
        End If
        Dim seven As Boolean
        seven = GetAsyncKeyState(Keys.D7)
        If seven = True Then
            MsgBox("Your 7 Key Is Working Correctly!")
        End If
        Dim eight As Boolean
        eight = GetAsyncKeyState(Keys.D8)
        If eight = True Then
            MsgBox("Your 8 Key Is Working Correctly!")
        End If
        Dim zero As Boolean
        zero = GetAsyncKeyState(Keys.D0)
        If zero = True Then
            MsgBox("Your 0 Key Is Working Correctly!")
        End If
        Dim nine As Boolean
        nine = GetAsyncKeyState(Keys.D1)
        If nine = True Then
            MsgBox("Your 9 Key Is Working Correctly!")
        End If
        Dim Insert As Boolean
        Insert = GetAsyncKeyState(Keys.Insert)
        If Insert = True Then
            MsgBox("Your Insert Key Is Working Correctly!")
        End If
        Dim Home As Boolean
        Home = GetAsyncKeyState(Keys.Home)
        If Home = True Then
            MsgBox("Your Home Key Is Working Correctly!")
        End If
        Dim endd As Boolean
        endd = GetAsyncKeyState(Keys.End)
        If endd = True Then
            MsgBox("Your End Key Is Working Correctly!")
        End If
        Dim num As Boolean
        num = GetAsyncKeyState(Keys.NumLock)
        If num = True Then
            MsgBox("Your Num Lock Key Is Working Correctly!")
        End If
        Dim up As Boolean
        up = GetAsyncKeyState(Keys.Up)
        If up = True Then
            MsgBox("Your Up Arrow Key Is Working Correctly!")
        End If
        Dim down As Boolean
        down = GetAsyncKeyState(Keys.Down)
        If down = True Then
            MsgBox("Your Down Arrow Key Is Working Correctly!")
        End If
        Dim caps As Boolean
        caps = GetAsyncKeyState(Keys.CapsLock)
        If caps = True Then
            MsgBox("Your Caps Lock Key Is Working Correctly!")
        End If
        Dim Scroll As Boolean
        Scroll = GetAsyncKeyState(Keys.Scroll)
        If Scroll = True Then
            MsgBox("Your Scroll Lock Key Is Working Correctly!")
        End If
        Dim right As Boolean
        right = GetAsyncKeyState(Keys.Right)
        If right = True Then
            MsgBox("Your Right Arrow Key Is Working Correctly!")
        End If
        Dim left As Boolean
        left = GetAsyncKeyState(Keys.Left)
        If left = True Then
            MsgBox("Your Left Arrow Key Is Working Correctly!")
        End If
        Dim pageu As Boolean
        pageu = GetAsyncKeyState(Keys.PageUp)
        If pageu = True Then
            MsgBox("Your Page Up Key Is Working Correctly!")
        End If
        Dim paged As Boolean
        paged = GetAsyncKeyState(Keys.PageDown)
        If paged = True Then
            MsgBox("Your Page Down Key Is Working Correctly!")
        End If
        Dim a As Boolean
        a = GetAsyncKeyState(Keys.A)
        If a = True Then
            MsgBox("Your A Key Is Working Correctly!")
        End If
        Dim b As Boolean
        b = GetAsyncKeyState(Keys.B)
        If b = True Then
            MsgBox("Your B Key Is Working Correctly!")
        End If
        Dim c As Boolean
        c = GetAsyncKeyState(Keys.C)
        If c = True Then
            MsgBox("Your C Key Is Working Correctly!")
        End If
        Dim d As Boolean
        d = GetAsyncKeyState(Keys.D)
        If d = True Then
            MsgBox("Your D Key Is Working Correctly!")
        End If
        Dim e1 As Boolean
        e1 = GetAsyncKeyState(Keys.E)
        If e1 = True Then
            MsgBox("Your E Key Is Working Correctly!")
        End If
        Dim f As Boolean
        f = GetAsyncKeyState(Keys.F)
        If f = True Then
            MsgBox("Your F Key Is Working Correctly!")
        End If
        Dim g As Boolean
        g = GetAsyncKeyState(Keys.G)
        If g = True Then
            MsgBox("Your G Key Is Working Correctly!")
        End If
        Dim h As Boolean
        h = GetAsyncKeyState(Keys.H)
        If h = True Then
            MsgBox("Your H Key Is Working Correctly!")
        End If
        Dim I As Boolean
        I = GetAsyncKeyState(Keys.I)
        If I = True Then
            MsgBox("Your I Key Is Working Correctly!")
        End If
        Dim j As Boolean
        j = GetAsyncKeyState(Keys.J)
        If j = True Then
            MsgBox("Your J Key Is Working Correctly!")
        End If
        Dim k As Boolean
        k = GetAsyncKeyState(Keys.K)
        If k = True Then
            MsgBox("Your K Key Is Working Correctly!")
        End If
        Dim l As Boolean
        l = GetAsyncKeyState(Keys.L)
        If l = True Then
            MsgBox("Your L Key Is Working Correctly!")
        End If
        Dim m As Boolean
        m = GetAsyncKeyState(Keys.M)
        If m = True Then
            MsgBox("Your M Key Is Working Correctly!")
        End If
        Dim n As Boolean
        n = GetAsyncKeyState(Keys.N)
        If n = True Then
            MsgBox("Your N Key Is Working Correctly!")
        End If
        Dim o As Boolean
        o = GetAsyncKeyState(Keys.O)
        If o = True Then
            MsgBox("Your O Key Is Working Correctly!")
        End If
        Dim p As Boolean
        p = GetAsyncKeyState(Keys.P)
        If p = True Then
            MsgBox("Your P Key Is Working Correctly!")
        End If
        Dim q As Boolean
        q = GetAsyncKeyState(Keys.Q)
        If q = True Then
            MsgBox("Your Q Key Is Working Correctly!")
        End If
        Dim R As Boolean
        R = GetAsyncKeyState(Keys.R)
        If R = True Then
            MsgBox("Your R Key Is Working Correctly!")
        End If
        Dim s As Boolean
        s = GetAsyncKeyState(Keys.S)
        If s = True Then
            MsgBox("Your S Key Is Working Correctly!")
        End If
        Dim t As Boolean
        t = GetAsyncKeyState(Keys.T)
        If t = True Then
            MsgBox("Your T Key Is Working Correctly!")
        End If
        Dim u As Boolean
        u = GetAsyncKeyState(Keys.U)
        If u = True Then
            MsgBox("Your U Key Is Working Correctly!")
        End If
        Dim v As Boolean
        v = GetAsyncKeyState(Keys.V)
        If v = True Then
            MsgBox("Your V Key Is Working Correctly!")
        End If
        Dim w As Boolean
        w = GetAsyncKeyState(Keys.W)
        If w = True Then
            MsgBox("Your W Key Is Working Correctly!")
        End If
        Dim x As Boolean
        x = GetAsyncKeyState(Keys.X)
        If x = True Then
            MsgBox("Your X Key Is Working Correctly!")
        End If
        Dim y As Boolean
        y = GetAsyncKeyState(Keys.Y)
        If y = True Then
            MsgBox("Your Y Key Is Working Correctly!")
        End If
        Dim z As Boolean
        z = GetAsyncKeyState(Keys.Z)
        If z = True Then
            MsgBox("Your Z Key Is Working Correctly!")
        End If

        Dim f1 As Boolean
        f1 = GetAsyncKeyState(Keys.F1)
        If f1 = True Then
            MsgBox("Your F1 Key Is Working Correctly!")
        End If

        Dim f2 As Boolean
        f2 = GetAsyncKeyState(Keys.F2)
        If f2 = True Then
            MsgBox("Your F2 Key Is Working Correctly!")
        End If
        Dim f3 As Boolean
        f3 = GetAsyncKeyState(Keys.F3)
        If f3 = True Then
            MsgBox("Your F3 Key Is Working Correctly!")
        End If
        Dim f4 As Boolean
        f4 = GetAsyncKeyState(Keys.F4)
        If f4 = True Then
            MsgBox("Your F4 Key Is Working Correctly!")
        End If
        Dim f5 As Boolean
        f5 = GetAsyncKeyState(Keys.F5)
        If f5 = True Then
            MsgBox("Your F5 Key Is Working Correctly!")
        End If
        Dim f6 As Boolean
        f6 = GetAsyncKeyState(Keys.F6)
        If f6 = True Then
            MsgBox("Your F6 Key Is Working Correctly!")
        End If
        Dim f7 As Boolean
        f7 = GetAsyncKeyState(Keys.F7)
        If f7 = True Then
            MsgBox("Your F7 Key Is Working Correctly!")
        End If
        Dim f8 As Boolean
        f8 = GetAsyncKeyState(Keys.F8)
        If f8 = True Then
            MsgBox("Your F8 Key Is Working Correctly!")
        End If
        Dim f9 As Boolean
        f9 = GetAsyncKeyState(Keys.F9)
        If f9 = True Then
            MsgBox("Your F9 Key Is Working Correctly!")
        End If
        Dim f10 As Boolean
        f10 = GetAsyncKeyState(Keys.F10)
        If f10 = True Then
            MsgBox("Your F10 Key Is Working Correctly!")
        End If
        Dim f11 As Boolean
        f11 = GetAsyncKeyState(Keys.F11)
        If f11 = True Then
            MsgBox("Your F11 Key Is Working Correctly!")
        End If
        Dim f12 As Boolean
        f12 = GetAsyncKeyState(Keys.F12)
        If f12 = True Then
            MsgBox("Your F12 Key Is Working Correctly!")
        End If

    End Sub


   

End Class

Images:
Program:
[IMG]https://i942.photobucke*****m/albums/ad262/dark_zombi3/hotkecheccka.jpg[/IMG]

Example:
[IMG]https://i942.photobucke*****m/albums/ad262/dark_zombi3/exp.jpg[/IMG]

Virus Scans: (Clean Of COurse)
Virustotal. MD5: 573faf1e844a4764dc924ee3bd3944a4

HotKey Checker v1.0.rar MD5:573faf1e844a4764dc924ee3bd3944a4 - VirSCAN.org Scanners did not find malware!

[Hassan]

Useless. Thanks for sharing anyways !!

[Lolland]

Uhh, approved lol.

Good practice, but it's kinda useless

[Jason]

Um yeah, why do you need this? And there are more effective ways of checking what key was pressed other than, if, if, if, if....if if if....if x1000000

['Bruno]

oh Christ... how many ifs you got there? O__O

[Jason]

oh Christ... how many ifs you got there? O__O

On a scale of: "1 to killer66143", how many ifs does your program have?

['Bruno]

79 ifs :| counted (notepad did it for me... im not crazy to count them all)

[Jason]

79 ifs :| counted (notepad did it for me... im not crazy to count them all)

I would have killed myself our of sheer boredom attempting this, for that I congratulate you.

['Bruno]

I would have killed myself our of sheer boredom attempting this, for that I congratulate you.

took me like 20 seconds... copy pasted code to notepad... used "Count" from it to "If " and got a result of 79... less then 20 secs probably

[Jason]

took me like 20 seconds... copy pasted code to notepad... used "Count" from it to "If " and got a result of 79... less then 20 secs probably

I meant the guy that wrote 79 if blocks -.- silly. I just quoted you for the stats

['Bruno]

I meant the guy that wrote 79 if blocks -.- silly. I just quoted you for the stats

dumb me.. :| about that.. i agree...

[tweaker99]

HAHA UM why would you ever use a message box how annoying xD how long have you been coding in vb ? for somthing like this use a label and your code doesn't check to see if a box is already up and it doesn't properly check to see if a key is clicked

[Blubb1337]

MessageBoxes on a timer <3333333

[Jason]

Oh my god tweaker, you watch DBZ??

Ontopic: Blubb speaks the truth, MsgBox + Timer = Problems

[tweaker99]

Oh my god tweaker, you watch DBZ??

Ontopic: Blubb speaks the truth, MsgBox + Timer = Problems

haha ya xD downloaded all 9 season been watching it 24/7 for like about 1 weeks now in epsiode 181

also post some code with a fixed version of his if that is okay