- 53 Views
- 07/10/2025
Code phần mềm test bàn phím máy tính Avaco Keyboard Diagnostic
Mã nguồn mở cho các bạn tham khảo phần mềm kiểm tra bàn phím máy tính.
Option Explicit
'--> Avaco Keyboard Diagnostic
'--> version 1.00
'--> Version Language : English
'--> By Agus Ramadhani
'--> avaco software
'--> http://avaco-software.tripod.com
'--> avaco@9cy.Com
'--> 2002-2003
'--> Don't forget to Vote :)
Private Sub Form_Load()
ChckOnTop.Value = 1
MeOnTop Me
Timer1.Enabled = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
With txtEventLog
Select Case Shift
Case 1
End Select
Select Case KeyCode
Case 27 'Esc
esc.FillColor = &HFF&
.Text = txtEventLog.Text & "Esc Key Pressed" & " - KeyCode : " & KeyCode & Shift & vbCrLf
Case 112 'F1
f1.FillColor = &HFF&
.Text = txtEventLog.Text & "F1 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 113 'F2
f2.FillColor = &HFF&
.Text = txtEventLog.Text & "F2 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 114 'F3
f3.FillColor = &HFF&
.Text = txtEventLog.Text & "F3 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 115 'F4
f4.FillColor = &HFF&
.Text = txtEventLog.Text & "F4 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 116 'F5
f5.FillColor = &HFF&
.Text = txtEventLog.Text & "F5 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 117 'F5
f6.FillColor = &HFF&
.Text = txtEventLog.Text & "F6 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 118 'F7
f7.FillColor = &HFF&
.Text = txtEventLog.Text & "F7 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 119 'F8
f8.FillColor = &HFF&
.Text = txtEventLog.Text & "F8 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 120 'F9
f9.FillColor = &HFF&
.Text = txtEventLog.Text & "F9 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 121 'F10
f10.FillColor = &HFF&
.Text = txtEventLog.Text & "F10 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 122 'F11
f11.FillColor = &HFF&
.Text = txtEventLog.Text & "F11 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 123 'F12
f12.FillColor = &HFF&
.Text = txtEventLog.Text & "F12 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 192 '`
nekaj.FillColor = &HFF&
.Text = txtEventLog.Text & "` Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 49 '1
Number1.FillColor = &HFF&
.Text = txtEventLog.Text & "1 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 50 '2
Number2.FillColor = &HFF&
.Text = txtEventLog.Text & "2 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 51 '3
Number3.FillColor = &HFF&
.Text = txtEventLog.Text & "3 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 52 '4
Number4.FillColor = &HFF&
.Text = txtEventLog.Text & "4 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 53 '5
Number5.FillColor = &HFF&
.Text = txtEventLog.Text & "5 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 54 '6
Number6.FillColor = &HFF&
.Text = txtEventLog.Text & "6 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 55 '7
Number7.FillColor = &HFF&
.Text = txtEventLog.Text & "7 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 56 '8
Number8.FillColor = &HFF&
.Text = txtEventLog.Text & "8 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 57 '9
Number9.FillColor = &HFF&
.Text = txtEventLog.Text & "9 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 48 '0
Number0.FillColor = &HFF&
.Text = txtEventLog.Text & "0 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 65 'A
a.FillColor = &HFF&
.Text = txtEventLog.Text & "A Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 66 'B
b.FillColor = &HFF&
.Text = txtEventLog.Text & "B Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 67 'C
c.FillColor = &HFF&
.Text = txtEventLog.Text & "C Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 68 'D
d.FillColor = &HFF&
.Text = txtEventLog.Text & "D Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 69 'E
e.FillColor = &HFF&
.Text = txtEventLog.Text & "E Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 70 'F
f.FillColor = &HFF&
.Text = txtEventLog.Text & "F Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 71 'G
g.FillColor = &HFF&
.Text = txtEventLog.Text & "G Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 72 'H
h.FillColor = &HFF&
.Text = txtEventLog.Text & "H Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 73 'I
i.FillColor = &HFF&
.Text = txtEventLog.Text & "I Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 74 'J
j.FillColor = &HFF&
.Text = txtEventLog.Text & "J Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 75 'K
k.FillColor = &HFF&
.Text = txtEventLog.Text & "K Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 76 'L
l.FillColor = &HFF&
.Text = txtEventLog.Text & "L Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 77 'M
m.FillColor = &HFF&
.Text = txtEventLog.Text & "M Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 78 'N
n.FillColor = &HFF&
.Text = txtEventLog.Text & "N Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 79 'O
o.FillColor = &HFF&
.Text = txtEventLog.Text & "O Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 80 'P
p.FillColor = &HFF&
.Text = txtEventLog.Text & "P Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 81 'Q
q.FillColor = &HFF&
.Text = txtEventLog.Text & "Q Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 82 'R
r.FillColor = &HFF&
.Text = txtEventLog.Text & "R Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 83 'S
s.FillColor = &HFF&
.Text = txtEventLog.Text & "S Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 84 'T
t.FillColor = &HFF&
.Text = txtEventLog.Text & "T Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 85 'U
u.FillColor = &HFF&
.Text = txtEventLog.Text & "U Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 86 'V
v.FillColor = &HFF&
.Text = txtEventLog.Text & "V Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 87 'W
w.FillColor = &HFF&
.Text = txtEventLog.Text & "W Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 88 'X
x.FillColor = &HFF&
.Text = txtEventLog.Text & "X Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 89 'Y
y.FillColor = &HFF&
.Text = txtEventLog.Text & "Y Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 90 'Z
z.FillColor = &HFF&
.Text = txtEventLog.Text & "Z Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 145 'Scroll Lock
ScrollLock.FillColor = &HFF&
.Text = txtEventLog.Text & "Scroll Lock Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
ShpScrollLight.FillColor = vbYellow
Case 19 'Pause
PBreak.FillColor = &HFF&
.Text = txtEventLog.Text & "Pause Break Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 9 'Tab
Tabtb.FillColor = &HFF&
.Text = txtEventLog.Text & "Tab Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 20 'Caps Lock
capslock.FillColor = &HFF&
ShpCapsLight.FillColor = vbYellow
.Text = txtEventLog.Text & "Caps Lock Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 16 'Shift
shift_L.FillColor = &HFF&
shift_R.FillColor = &HFF&
.Text = txtEventLog.Text & "Shift Left Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
.Text = txtEventLog.Text & "Shift Right Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 18 'Alt
alt_l.FillColor = &HFF&
Alt_r.FillColor = &HFF&
.Text = txtEventLog.Text & "Alt Left Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
.Text = txtEventLog.Text & "Alt Right Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 17 'Control
ctrl_l.FillColor = &HFF&
ctrl_r.FillColor = &HFF&
.Text = txtEventLog.Text & "Ctrl Left Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
.Text = txtEventLog.Text & "Ctrl Right Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 32 'Space
space.FillColor = &HFF&
.Text = txtEventLog.Text & "Space Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 13 'Enter
enter.FillColor = &HFF&
enter_num.FillColor = &HFF&
Enter2.FillColor = &HFF&
LblEnter.BackColor = &HFF&
.Text = txtEventLog.Text & "Enter Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
.Text = txtEventLog.Text & "Num Enter Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 8 'Back Space
back.FillColor = &HFF&
.Text = txtEventLog.Text & "Back Space Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 45 'Insert
Insert.FillColor = &HFF&
.Text = txtEventLog.Text & "Insert Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 36 'Home
Home.FillColor = &HFF&
.Text = txtEventLog.Text & "Home Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 33 'PgUp
PgUp.FillColor = &HFF&
.Text = txtEventLog.Text & "PgUp Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 46 'Delete
Delete.FillColor = &HFF&
.Text = txtEventLog.Text & "Delete Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 35 'End
End1.FillColor = &HFF&
.Text = txtEventLog.Text & "End Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 34 'PgDn
PgDwn.FillColor = &HFF&
.Text = txtEventLog.Text & "PgDn Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 38 'Up
Up.FillColor = &HFF&
.Text = txtEventLog.Text & "Up Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 37 'Left
Left1.FillColor = &HFF&
.Text = txtEventLog.Text & "Left Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 39 'Right
Right.FillColor = &HFF&
.Text = txtEventLog.Text & "Right Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 40 'Down
Down.FillColor = &HFF&
.Text = txtEventLog.Text & "Down Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 91 'Start
start_l.FillColor = &HFF00&
Start_r.FillColor = &HFF00&
.Text = txtEventLog.Text & "Start Left Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
.Text = txtEventLog.Text & "Start Right Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 189 '(-)
min.FillColor = &HFF&
.Text = txtEventLog.Text & "- Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 187 '(+)
plus.FillColor = &HFF&
.Text = txtEventLog.Text & "+ Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 220 '(\)
gmkr.FillColor = &HFF&
.Text = txtEventLog.Text & "\ Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 191 '(/)
GmKn.FillColor = &HFF&
.Text = txtEventLog.Text & "/ Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 188 '(,)
Comma.FillColor = &HFF&
.Text = txtEventLog.Text & ", Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 190 '(.)
Titik.FillColor = &HFF&
.Text = txtEventLog.Text & ". Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 93 '(popup)
popup.FillColor = &HFF&
.Text = txtEventLog.Text & "PopUp Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 219 '([)
krng_kr.FillColor = &HFF&
.Text = txtEventLog.Text & "[ Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 221 '(])
Krng_kn.FillColor = &HFF&
.Text = txtEventLog.Text & "] Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 186 '(;)
ttcm.FillColor = &HFF&
.Text = txtEventLog.Text & "; Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 222 '(')
cmats.FillColor = &HFF&
.Text = txtEventLog.Text & "' Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 44 'PrintScrn
PrintScrn.FillColor = &HFF&
.Text = txtEventLog.Text & "Print Screen Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 144 '(NumLock)
Me.numlock.FillColor = &HFF&
ShpNumLight.FillColor = vbYellow
.Text = txtEventLog.Text & "Num Lock Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 111 '(/)
Me.slash.FillColor = &HFF&
.Text = txtEventLog.Text & "Num / Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 106 '(*)
Star.FillColor = &HFF&
.Text = txtEventLog.Text & "Num * Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 109 '(-)
minus.FillColor = &HFF&
.Text = txtEventLog.Text & "Num - Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 107 '(+)
plus2.FillColor = &HFF&
.Text = txtEventLog.Text & "Num + Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 110 'Num Del
del.FillColor = &HFF&
.Text = txtEventLog.Text & "Num Del Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 96 'num 0
num0.FillColor = &HFF&
.Text = txtEventLog.Text & "Num 0 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 97 'num 1
num1.FillColor = &HFF&
.Text = txtEventLog.Text & "Num 1 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 98 'num 2
num2.FillColor = &HFF&
.Text = txtEventLog.Text & "Num 2 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 99 'num 3
num3.FillColor = &HFF&
.Text = txtEventLog.Text & "Num 3 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 100 'num 4
num4.FillColor = &HFF&
.Text = txtEventLog.Text & "Num 4 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 101 'num 5
num5.FillColor = &HFF&
.Text = txtEventLog.Text & "Num 5 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 102 'num 6
num6.FillColor = &HFF&
.Text = txtEventLog.Text & "Num 6 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 103 'num 7
num7.FillColor = &HFF&
.Text = txtEventLog.Text & "Num 7 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 104 'num 8
num8.FillColor = &HFF&
.Text = txtEventLog.Text & "Num 8 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 105 'num 9
num9.FillColor = &HFF&
.Text = txtEventLog.Text & "Num 9 Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
End Select
.SelStart = Len(.Text)
End With
End Sub
Private Sub Form_keyUp(KeyCode As Integer, Shift As Integer)
With txtEventLog
Select Case KeyCode
Case 27 'Esc
esc.FillColor = &HFF00&
Case 112 'F1
f1.FillColor = &HFF00&
Case 113 'F2
f2.FillColor = &HFF00&
Case 114 'F3
f3.FillColor = &HFF00&
Case 115 'F4
f4.FillColor = &HFF00&
Case 116 'F5
f5.FillColor = &HFF00&
Case 117 'F5
f6.FillColor = &HFF00&
Case 118 'F7
f7.FillColor = &HFF00&
Case 119 'F8
f8.FillColor = &HFF00&
Case 120 'F9
f9.FillColor = &HFF00&
Case 121 'F10
f10.FillColor = &HFF00&
Case 122 'F11
f11.FillColor = &HFF00&
Case 123 'F12
f12.FillColor = &HFF00&
Case 192 '(`)
nekaj.FillColor = &HFF00&
Case 49 '1
Number1.FillColor = &HFF00&
Case 50 '2
Number2.FillColor = &HFF00&
Case 51 '3
Number3.FillColor = &HFF00&
Case 52 '4
Number4.FillColor = &HFF00&
Case 53 '5
Number5.FillColor = &HFF00&
Case 54 '6
Number6.FillColor = &HFF00&
Case 55 '7
Number7.FillColor = &HFF00&
Case 56 '8
Number8.FillColor = &HFF00&
Case 57 '9
Number9.FillColor = &HFF00&
Case 48 '0
Number0.FillColor = &HFF00&
Case 65 'A
a.FillColor = &HFF00&
Case 66 'B
b.FillColor = &HFF00&
Case 67 'C
c.FillColor = &HFF00&
Case 68, d
d.FillColor = &HFF00&
Case 69 'E
e.FillColor = &HFF00&
Case 70 'F
f.FillColor = &HFF00&
Case 71 'G
g.FillColor = &HFF00&
Case 72 'H
h.FillColor = &HFF00&
Case 73 'I
i.FillColor = &HFF00&
Case 74 'J
j.FillColor = &HFF00&
Case 75 'K
k.FillColor = &HFF00&
Case 76 'L
l.FillColor = &HFF00&
Case 77 'M
m.FillColor = &HFF00&
Case 78 'N
n.FillColor = &HFF00&
Case 79 'O
o.FillColor = &HFF00&
Case 80 'P
p.FillColor = &HFF00&
Case 81 'Q
q.FillColor = &HFF00&
Case 82 'R
r.FillColor = &HFF00&
Case 83 'S
s.FillColor = &HFF00&
Case 84 'T
t.FillColor = &HFF00&
Case 85 'U
u.FillColor = &HFF00&
Case 86 'V
v.FillColor = &HFF00&
Case 87 'W
w.FillColor = &HFF00&
Case 88 'X
x.FillColor = &HFF00&
Case 89 'Y
y.FillColor = &HFF00&
Case 90 'X
z.FillColor = &HFF00&
Case 145 'Scroll Lock
ScrollLock.FillColor = &HFF00&
ShpScrollLight.FillColor = &H8080&
Case 19 'Pause
PBreak.FillColor = &HFF00&
Case 9 'Tab
Tabtb.FillColor = &HFF00&
Case 20 'Caps Lock
capslock.FillColor = &HFF00&
ShpCapsLight.FillColor = &H8080&
Case 16 'Shift
Me.shift_L.FillColor = &HFF00&
Me.shift_R.FillColor = &HFF00&
Case 18 'Alt
alt_l.FillColor = &HFF00&
Alt_r.FillColor = &HFF00&
Case 17 'Control
ctrl_l.FillColor = &HFF00&
ctrl_r.FillColor = &HFF00&
Case 32 'Space
space.FillColor = &HFF00&
Case 13 'Enter
enter.FillColor = &HFF00&
enter_num.FillColor = &HFF00&
Enter2.FillColor = &HFF00&
LblEnter.BackColor = &HFF00&
Case 8 'Back Space
Me.back.FillColor = &HFF00&
Case 45 'Insert
Insert.FillColor = &HFF00&
Case 36 'Home
Home.FillColor = &HFF00&
Case 33 'PgUp
PgUp.FillColor = &HFF00&
Case 46 'Delete
Delete.FillColor = &HFF00&
Case 35 'End
End1.FillColor = &HFF00&
Case 34 'PgDn
PgDwn.FillColor = &HFF00&
Case 38 'Up
Up.FillColor = &HFF00&
Case 37 'Left
Left1.FillColor = &HFF00&
Case 39 'Right
Right.FillColor = &HFF00&
Case 40 'Down
Down.FillColor = &HFF00&
Case 91 'Start
start_l.FillColor = &HFF00&
Start_r.FillColor = &HFF00&
Case 189 '(-)
min.FillColor = &HFF00&
Case 187 '(+)
plus.FillColor = &HFF00&
Case 220 '(\)
gmkr.FillColor = &HFF00&
Case 191 '(/)
GmKn.FillColor = &HFF00&
Case 188 '(,)
Comma.FillColor = &HFF00&
Case 190 '(.)
Titik.FillColor = &HFF00&
Case 93 '(popup)
popup.FillColor = &HFF00&
Case 219 '([)
krng_kr.FillColor = &HFF00&
Case 221 '(])
Krng_kn.FillColor = &HFF00&
Case 186 '(])
ttcm.FillColor = &HFF00&
Case 222 '(])
cmats.FillColor = &HFF00&
Case 44 ' PrintScrn
PrintScrn.FillColor = &HFF00&
.Text = txtEventLog.Text & "Print Screen Key Pressed" & " - KeyCode : " & KeyCode & vbCrLf
Case 144 '(NumLock)
numlock.FillColor = &HFF00&
ShpNumLight.FillColor = &H8080&
Case 111 '(/)
slash.FillColor = &HFF00&
Case 106 '(*)
Star.FillColor = &HFF00&
Case 109 '(-)
minus.FillColor = &HFF00&
Case 107 '(+)
plus2.FillColor = &HFF00&
Case 110 'Num Del
del.FillColor = &HFF00&
Case 96 'num 0
num0.FillColor = &HFF00&
Case 97 'num 1
num1.FillColor = &HFF00&
Case 98 'num 2
num2.FillColor = &HFF00&
Case 99 'num 3
num3.FillColor = &HFF00&
Case 100 'num 4
num4.FillColor = &HFF00&
Case 101 'num 5
num5.FillColor = &HFF00&
Case 102 'num 6
num6.FillColor = &HFF00&
Case 103 'num 7
num7.FillColor = &HFF00&
Case 104 'num 8
num8.FillColor = &HFF00&
Case 105 'num 9
num9.FillColor = &HFF00&
End Select
.SelStart = Len(.Text)
End With
End Sub
Private Sub ChckOnTop_Click()
If ChckOnTop.Value = 1 Then
MeOnTop Me
Else
MeDown Me
End If
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
FormDrag Me
End Sub
Private Sub Label120_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
FormDrag Me
End Sub
Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
FormDrag Me
End Sub
Private Sub LblAbout_Click()
FrmMain.Hide
FrmAbout.Show
End Sub
Private Sub LblExit_Click()
Unload Me
End Sub
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
FormDrag Me
End Sub
Private Sub Picture3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
FormDrag Me
End Sub
Private Sub Timer1_Timer()
With txtEventLog
.Text = txtEventLog.Text & ".... " & Get_KeyboardType & vbCrLf
.Text = txtEventLog.Text & ".... " & GetKeyboardType(1) & vbCrLf
.Text = txtEventLog.Text & ".... " & Get_KeyboardFuncKeys & vbCrLf
.Text = txtEventLog.Text & ".... " & Get_KeyboardLayout & vbCrLf
.Text = txtEventLog.Text & ".... " & LangIdent(Get_KeyboardLayout) & vbCrLf
.Text = txtEventLog.Text & "Press Keys To Keyboard Testing " & vbCrLf
.SelStart = Len(.Text)
End With
txtFunctionKeys.Text = Get_KeyboardFuncKeys
txtLayoutName.Text = LangIdent(Get_KeyboardLayout)
txtLayoutID.Text = Get_KeyboardLayout
txtSubType.Text = GetKeyboardType(1)
txtType.Text = Get_KeyboardType
Timer1.Enabled = False
End Sub
Private Sub LblRefKeys_Click()
'Esc
esc.FillColor = &HE0E0E0
'F1
f1.FillColor = &HE0E0E0
'F2
f2.FillColor = &HE0E0E0
'F3
f3.FillColor = &HE0E0E0
'F4
f4.FillColor = &HE0E0E0
'F5
f5.FillColor = &HE0E0E0
'F5
f6.FillColor = &HE0E0E0
'F7
f7.FillColor = &HE0E0E0
'F8
f8.FillColor = &HE0E0E0
'F9
f9.FillColor = &HE0E0E0
'F10
f10.FillColor = &HE0E0E0
'F11
f11.FillColor = &HE0E0E0
'F12
f12.FillColor = &HE0E0E0
'(`)
nekaj.FillColor = &HE0E0E0
'1
Number1.FillColor = &HE0E0E0
'2
Number2.FillColor = &HE0E0E0
'3
Number3.FillColor = &HE0E0E0
'4
Number4.FillColor = &HE0E0E0
'5
Number5.FillColor = &HE0E0E0
'6
Number6.FillColor = &HE0E0E0
'7
Number7.FillColor = &HE0E0E0
'8
Number8.FillColor = &HE0E0E0
'9
Number9.FillColor = &HE0E0E0
'0
Number0.FillColor = &HE0E0E0
'A
a.FillColor = &HE0E0E0
'B
b.FillColor = &HE0E0E0
'C
c.FillColor = &HE0E0E0
' d
d.FillColor = &HE0E0E0
'E
e.FillColor = &HE0E0E0
'F
f.FillColor = &HE0E0E0
'G
g.FillColor = &HE0E0E0
'H
h.FillColor = &HE0E0E0
'I
i.FillColor = &HE0E0E0
'J
j.FillColor = &HE0E0E0
'K
k.FillColor = &HE0E0E0
'L
l.FillColor = &HE0E0E0
'M
m.FillColor = &HE0E0E0
'N
n.FillColor = &HE0E0E0
'O
o.FillColor = &HE0E0E0
'P
p.FillColor = &HE0E0E0
'Q
q.FillColor = &HE0E0E0
'R
r.FillColor = &HE0E0E0
'S
s.FillColor = &HE0E0E0
'T
t.FillColor = &HE0E0E0
'U
u.FillColor = &HE0E0E0
'V
v.FillColor = &HE0E0E0
'W
w.FillColor = &HE0E0E0
'X
x.FillColor = &HE0E0E0
'Y
y.FillColor = &HE0E0E0
'X
z.FillColor = &HE0E0E0
'Scroll Lock
ScrollLock.FillColor = &HE0E0E0
ShpScrollLight.FillColor = &H8080&
'Pause
PBreak.FillColor = &HE0E0E0
'Tab
Tabtb.FillColor = &HE0E0E0
'Caps Lock
capslock.FillColor = &HE0E0E0
ShpCapsLight.FillColor = &H8080&
'Shift
Me.shift_L.FillColor = &HE0E0E0
Me.shift_R.FillColor = &HE0E0E0
'Alt
alt_l.FillColor = &HE0E0E0
Alt_r.FillColor = &HE0E0E0
'Control
ctrl_l.FillColor = &HE0E0E0
ctrl_r.FillColor = &HE0E0E0
'Space
space.FillColor = &HE0E0E0
'Enter
enter.FillColor = &HE0E0E0
enter_num.FillColor = &HE0E0E0
Enter2.FillColor = &HE0E0E0
LblEnter.BackColor = &HE0E0E0
'Back Space
Me.back.FillColor = &HE0E0E0
'Insert
Insert.FillColor = &HE0E0E0
'Home
Home.FillColor = &HE0E0E0
'PgUp
PgUp.FillColor = &HE0E0E0
'Delete
Delete.FillColor = &HE0E0E0
'End
End1.FillColor = &HE0E0E0
'PgDn
PgDwn.FillColor = &HE0E0E0
'Up
Up.FillColor = &HE0E0E0
'Left
Left1.FillColor = &HE0E0E0
'Right
Right.FillColor = &HE0E0E0
'Down
Down.FillColor = &HE0E0E0
'Start
start_l.FillColor = &HE0E0E0
Start_r.FillColor = &HE0E0E0
'(-)
min.FillColor = &HE0E0E0
'(+)
plus.FillColor = &HE0E0E0
'(\)
gmkr.FillColor = &HE0E0E0
'(/)
GmKn.FillColor = &HE0E0E0
'(,)
Comma.FillColor = &HE0E0E0
'(.)
Titik.FillColor = &HE0E0E0
'(popup)
popup.FillColor = &HE0E0E0
'([)
krng_kr.FillColor = &HE0E0E0
'(])
Krng_kn.FillColor = &HE0E0E0
'(])
ttcm.FillColor = &HE0E0E0
'(])
cmats.FillColor = &HE0E0E0
' PrintScrn
PrintScrn.FillColor = &HE0E0E0
'(NumLock)
numlock.FillColor = &HE0E0E0
ShpNumLight.FillColor = &H8080&
'(/)
slash.FillColor = &HE0E0E0
'(*)
Star.FillColor = &HE0E0E0
'(-)
minus.FillColor = &HE0E0E0
'(+)
plus2.FillColor = &HE0E0E0
'Num Del
del.FillColor = &HE0E0E0
'num 0
num0.FillColor = &HE0E0E0
'num 1
num1.FillColor = &HE0E0E0
'num 2
num2.FillColor = &HE0E0E0
'num 3
num3.FillColor = &HE0E0E0
'num 4
num4.FillColor = &HE0E0E0
'num 5
num5.FillColor = &HE0E0E0
'num 6
num6.FillColor = &HE0E0E0
'num 7
num7.FillColor = &HE0E0E0
'num 8
num8.FillColor = &HE0E0E0
'num 9
num9.FillColor = &HE0E0E0
End Sub
Private Sub LblCheckAgain_Click()
'Esc
esc.FillColor = &HE0E0E0
'F1
f1.FillColor = &HE0E0E0
'F2
f2.FillColor = &HE0E0E0
'F3
f3.FillColor = &HE0E0E0
'F4
f4.FillColor = &HE0E0E0
'F5
f5.FillColor = &HE0E0E0
'F5
f6.FillColor = &HE0E0E0
'F7
f7.FillColor = &HE0E0E0
'F8
f8.FillColor = &HE0E0E0
'F9
f9.FillColor = &HE0E0E0
'F10
f10.FillColor = &HE0E0E0
'F11
f11.FillColor = &HE0E0E0
'F12
f12.FillColor = &HE0E0E0
'(`)
nekaj.FillColor = &HE0E0E0
'1
Number1.FillColor = &HE0E0E0
'2
Number2.FillColor = &HE0E0E0
'3
Number3.FillColor = &HE0E0E0
'4
Number4.FillColor = &HE0E0E0
'5
Number5.FillColor = &HE0E0E0
'6
Number6.FillColor = &HE0E0E0
'7
Number7.FillColor = &HE0E0E0
'8
Number8.FillColor = &HE0E0E0
'9
Number9.FillColor = &HE0E0E0
'0
Number0.FillColor = &HE0E0E0
'A
a.FillColor = &HE0E0E0
'B
b.FillColor = &HE0E0E0
'C
c.FillColor = &HE0E0E0
' d
d.FillColor = &HE0E0E0
'E
e.FillColor = &HE0E0E0
'F
f.FillColor = &HE0E0E0
'G
g.FillColor = &HE0E0E0
'H
h.FillColor = &HE0E0E0
'I
i.FillColor = &HE0E0E0
'J
j.FillColor = &HE0E0E0
'K
k.FillColor = &HE0E0E0
'L
l.FillColor = &HE0E0E0
'M
m.FillColor = &HE0E0E0
'N
n.FillColor = &HE0E0E0
'O
o.FillColor = &HE0E0E0
'P
p.FillColor = &HE0E0E0
'Q
q.FillColor = &HE0E0E0
'R
r.FillColor = &HE0E0E0
'S
s.FillColor = &HE0E0E0
'T
t.FillColor = &HE0E0E0
'U
u.FillColor = &HE0E0E0
'V
v.FillColor = &HE0E0E0
'W
w.FillColor = &HE0E0E0
'X
x.FillColor = &HE0E0E0
'Y
y.FillColor = &HE0E0E0
'X
z.FillColor = &HE0E0E0
'Scroll Lock
ScrollLock.FillColor = &HE0E0E0
ShpScrollLight.FillColor = &H8080&
'Pause
PBreak.FillColor = &HE0E0E0
'Tab
Tabtb.FillColor = &HE0E0E0
'Caps Lock
capslock.FillColor = &HE0E0E0
ShpCapsLight.FillColor = &H8080&
'Shift
Me.shift_L.FillColor = &HE0E0E0
Me.shift_R.FillColor = &HE0E0E0
'Alt
alt_l.FillColor = &HE0E0E0
Alt_r.FillColor = &HE0E0E0
'Control
ctrl_l.FillColor = &HE0E0E0
ctrl_r.FillColor = &HE0E0E0
'Space
space.FillColor = &HE0E0E0
'Enter
enter.FillColor = &HE0E0E0
enter_num.FillColor = &HE0E0E0
Enter2.FillColor = &HE0E0E0
LblEnter.BackColor = &HE0E0E0
'Back Space
Me.back.FillColor = &HE0E0E0
'Insert
Insert.FillColor = &HE0E0E0
'Home
Home.FillColor = &HE0E0E0
'PgUp
PgUp.FillColor = &HE0E0E0
'Delete
Delete.FillColor = &HE0E0E0
'End
End1.FillColor = &HE0E0E0
'PgDn
PgDwn.FillColor = &HE0E0E0
'Up
Up.FillColor = &HE0E0E0
'Left
Left1.FillColor = &HE0E0E0
'Right
Right.FillColor = &HE0E0E0
'Down
Down.FillColor = &HE0E0E0
'Start
start_l.FillColor = &HE0E0E0
Start_r.FillColor = &HE0E0E0
'(-)
min.FillColor = &HE0E0E0
'(+)
plus.FillColor = &HE0E0E0
'(\)
gmkr.FillColor = &HE0E0E0
'(/)
GmKn.FillColor = &HE0E0E0
'(,)
Comma.FillColor = &HE0E0E0
'(.)
Titik.FillColor = &HE0E0E0
'(popup)
popup.FillColor = &HE0E0E0
'([)
krng_kr.FillColor = &HE0E0E0
'(])
Krng_kn.FillColor = &HE0E0E0
'(])
ttcm.FillColor = &HE0E0E0
'(])
cmats.FillColor = &HE0E0E0
' PrintScrn
PrintScrn.FillColor = &HE0E0E0
'(NumLock)
numlock.FillColor = &HE0E0E0
ShpNumLight.FillColor = &H8080&
'(/)
slash.FillColor = &HE0E0E0
'(*)
Star.FillColor = &HE0E0E0
'(-)
minus.FillColor = &HE0E0E0
'(+)
plus2.FillColor = &HE0E0E0
'Num Del
del.FillColor = &HE0E0E0
'num 0
num0.FillColor = &HE0E0E0
'num 1
num1.FillColor = &HE0E0E0
'num 2
num2.FillColor = &HE0E0E0
'num 3
num3.FillColor = &HE0E0E0
'num 4
num4.FillColor = &HE0E0E0
'num 5
num5.FillColor = &HE0E0E0
'num 6
num6.FillColor = &HE0E0E0
'num 7
num7.FillColor = &HE0E0E0
'num 8
num8.FillColor = &HE0E0E0
'num 9
num9.FillColor = &HE0E0E0
txtFunctionKeys.Text = ""
txtLayoutName.Text = ""
txtLayoutID.Text = ""
txtSubType.Text = ""
txtType.Text = ""
txtEventLog.Text = ""
txtEventLog.Text = "Checking Keyboard Information Please wait ........"
Timer1.Enabled = True
End Sub
...
Download link toàn bộ Code về giải nén ra nhé các bạn: https://drive.google.com/file/d/1gpYA2Urlpe3Y_QaLKUuUDQw3aNGmANAD
Các bạn xem hướng dẫn trên file để lấy pass nhé