frmmain.frm

该软件实现键盘锁定功能

SaveSetting "App_Name", "Registration", "code(25)", Check38.Value
SaveSetting "App_Name", "Registration", "code(26)", Printscreen.Value
SaveSetting "App_Name", "Registration", "code(27)", scrolllock.Value
SaveSetting "App_Name", "Registration", "code(28)", Check15.Value
SaveSetting "App_Name", "Registration", "code(29)", Insert.Value
SaveSetting "App_Name", "Registration", "code(30)", Home.Value
SaveSetting "App_Name", "Registration", "code(31)", PageUp.Value
SaveSetting "App_Name", "Registration", "code(32)", PageDonw.Value
SaveSetting "App_Name", "Registration", "code(33)", Delete1.Value
SaveSetting "App_Name", "Registration", "code(34)", End1.Value
SaveSetting "App_Name", "Registration", "code(35)", up1.Value
SaveSetting "App_Name", "Registration", "code(36)", down1.Value
SaveSetting "App_Name", "Registration", "code(37)", left1.Value
SaveSetting "App_Name", "Registration", "code(38)", right1.Value
SaveSetting "App_Name", "Registration", "code(39)", Check1.Value
SaveSetting "App_Name", "Registration", "code(40)", tab1.Value
SaveSetting "App_Name", "Registration", "code(41)", q.Value
SaveSetting "App_Name", "Registration", "code(42)", w.Value
SaveSetting "App_Name", "Registration", "code(43)", e.Value
SaveSetting "App_Name", "Registration", "code(44)", r.Value
SaveSetting "App_Name", "Registration", "code(45)", t.Value
SaveSetting "App_Name", "Registration", "code(46)", y.Value
SaveSetting "App_Name", "Registration", "code(47)", u.Value
SaveSetting "App_Name", "Registration", "code(48)", i1.Value
SaveSetting "App_Name", "Registration", "code(49)", o.Value
SaveSetting "App_Name", "Registration", "code(50)", p.Value
SaveSetting "App_Name", "Registration", "code(51)", a.Value
SaveSetting "App_Name", "Registration", "code(52)", s.Value
SaveSetting "App_Name", "Registration", "code(53)", d.Value
SaveSetting "App_Name", "Registration", "code(54)", f.Value
SaveSetting "App_Name", "Registration", "code(55)", g.Value
SaveSetting "App_Name", "Registration", "code(56)", h.Value
SaveSetting "App_Name", "Registration", "code(57)", j.Value
SaveSetting "App_Name", "Registration", "code(58)", k.Value
SaveSetting "App_Name", "Registration", "code(59)", l.Value
SaveSetting "App_Name", "Registration", "code(60)", z.Value
SaveSetting "App_Name", "Registration", "code(61)", x.Value
SaveSetting "App_Name", "Registration", "code(62)", c.Value
SaveSetting "App_Name", "Registration", "code(63)", v.Value
SaveSetting "App_Name", "Registration", "code(64)", b.Value
SaveSetting "App_Name", "Registration", "code(65)", n.Value
SaveSetting "App_Name", "Registration", "code(66)", m.Value
SaveSetting "App_Name", "Registration", "code(67)", Backspace.Value
SaveSetting "App_Name", "Registration", "code(68)", Check73.Value
SaveSetting "App_Name", "Registration", "code(69)", Check74.Value
SaveSetting "App_Name", "Registration", "code(70)", Check40.Value
SaveSetting "App_Name", "Registration", "code(71)", Check41.Value
SaveSetting "App_Name", "Registration", "code(72)", Capslock.Value
SaveSetting "App_Name", "Registration", "code(73)", Check84.Value
SaveSetting "App_Name", "Registration", "code(74)", lshift.Value
SaveSetting "App_Name", "Registration", "code(75)", Check2.Value
SaveSetting "App_Name", "Registration", "code(76)", rshift.Value
SaveSetting "App_Name", "Registration", "code(77)", Check83.Value
SaveSetting "App_Name", "Registration", "code(78)", Check82.Value
SaveSetting "App_Name", "Registration", "code(79)", lctrl.Value
SaveSetting "App_Name", "Registration", "code(80)", lwin.Value
SaveSetting "App_Name", "Registration", "code(81)", lalt.Value
SaveSetting "App_Name", "Registration", "code(82)", space.Value
SaveSetting "App_Name", "Registration", "code(83)", ralt.Value
SaveSetting "App_Name", "Registration", "code(84)", rwin.Value
SaveSetting "App_Name", "Registration", "code(85)", Check44.Value
SaveSetting "App_Name", "Registration", "code(86)", rctrl.Value
SaveSetting "App_Name", "Registration", "code(87)", Check86.Value
SaveSetting "App_Name", "Registration", "code(88)", Check87.Value
SaveSetting "App_Name", "Registration", "code(89)", Check88.Value
SaveSetting "App_Name", "Registration", "code(90)", Check89.Value
SaveSetting "App_Name", "Registration", "code(91)", Check90.Value
SaveSetting "App_Name", "Registration", "code(92)", Check91.Value
SaveSetting "App_Name", "Registration", "code(93)", Check92.Value
SaveSetting "App_Name", "Registration", "code(94)", Check93.Value
SaveSetting "App_Name", "Registration", "code(95)", Check94.Value
SaveSetting "App_Name", "Registration", "code(96)", Check95.Value
SaveSetting "App_Name", "Registration", "code(97)", Check85.Value
SaveSetting "App_Name", "Registration", "code(98)", Check96.Value
SaveSetting "App_Name", "Registration", "code(99)", Check97.Value
SaveSetting "App_Name", "Registration", "code(100)", Check98.Value
SaveSetting "App_Name", "Registration", "code(101)", Check99.Value
SaveSetting "App_Name", "Registration", "code(102)", Check100.Value
SaveSetting "App_Name", "Registration", "code(103)", Check101.Value
SaveSetting "App_Name", "Registration", "code(104)", lzong.Value
SaveSetting "App_Name", "Registration", "code(105)", rzong.Value
SaveSetting "App_Name", "Registration", "keyi", "yes"
ElseIf Check3.Value = 1 Then
Call WritePrivateProfileString("form", "code(1)", f1.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(2)", f2.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(3)", f3.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(4)", f4.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(5)", f5.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(6)", f6.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(7)", f7.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(8)", f8.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(9)", f9.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(10)", f10.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(11)", f11.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(12)", f12.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(13)", Check26.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(14)", Check27.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(15)", Check28.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(16)", Check29.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(17)", Check30.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(18)", Check31.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(19)", Check32.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(20)", Check33.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(21)", Check34.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(22)", Check35.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(23)", Check36.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(24)", Check37.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(25)", Check38.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(26)", Printscreen.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(27)", scrolllock.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(28)", Check15.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(29)", Insert.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(30)", Home.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(31)", PageUp.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(32)", PageDonw.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(33)", Delete1.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(34)", End1.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(35)", up1.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(36)", down1.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(37)", left1.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(38)", right1.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(39)", Check1.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(40)", tab1.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(41)", q.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(42)", w.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(43)", e.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(44)", r.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(45)", t.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(46)", y.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(47)", u.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(48)", i1.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(49)", o.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(50)", p.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(51)", a.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(52)", s.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(53)", d.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(54)", f.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(55)", g.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(56)", h.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(57)", j.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(58)", k.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(59)", l.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(60)", z.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(61)", x.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(62)", c.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(63)", v.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(64)", b.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(65)", n.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(66)", m.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(67)", Backspace.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(68)", Check73.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(69)", Check74.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(70)", Check40.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(71)", Check41.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(72)", Capslock.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(73)", Check84.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(74)", lshift.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(75)", Check2.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(76)", rshift.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(77)", Check83.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(78)", Check82.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(79)", lctrl.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(80)", lwin.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(81)", lalt.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(82)", space.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(83)", ralt.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(84)", rwin.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(85)", Check44.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(86)", rctrl.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(87)", Check86.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(88)", Check87.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(89)", Check88.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(90)", Check89.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(91)", Check90.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(92)", Check91.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(93)", Check92.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(94)", Check93.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(95)", Check94.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(96)", Check95.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(97)", Check85.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(98)", Check96.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(99)", Check97.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(100)", Check98.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(101)", Check99.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(102)", Check100.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(103)", Check101.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(104)", lzong.Value, FILE_NAME)
Call WritePrivateProfileString("form", "code(105)", rzong.Value, FILE_NAME)
End If

If Check3.Value = 0 Then
MsgBox "保存设置完成!设置已保存到注册表!", vbOKOnly + vbInformation
ElseIf Check3.Value = 1 Then
MsgBox "保存设置完成!设置已保存到文件!", vbOKOnly + vbInformation
End If

End Sub

Public Sub Command5_Click()
DelIcon
If hhkLowLevelKybd <> 0 Then UnhookWindowsHookEx hhkLowLevelKybd
SwapMouseButton False '右手
Close #305
End
End Sub

Private Sub Command6_Click()
If mm <> "" Then
mima.Text1.Visible = False
mima.Caption = "验证密码"
mima.Show
mima.Text2.SetFocus
qingchu = True
Else
MsgBox "当前没有设置密码！", vbInformation
End If
End Sub

Private Sub d_Click()
If d.Value = 1 Then
aa(54) = VK_D
Else
aa(54) = VK_LBUTTON
End If
End Sub

Private Sub Delete1_Click()
If Delete1.Value = 1 Then
aa(33) = VK_DELETE
Else
aa(33) = VK_LBUTTON
End If
End Sub

Private Sub down1_Click()
If down1.Value = 1 Then
aa(36) = VK_DOWN
Else
aa(36) = VK_LBUTTON
End If
End Sub

Private Sub e_Click()
If e.Value = 1 Then
aa(43) = VK_E
Else
aa(43) = VK_LBUTTON
End If
End Sub

Private Sub End1_Click()
If End1.Value = 1 Then
aa(34) = VK_END
Else
aa(34) = VK_LBUTTON
End If
End Sub

Private Sub exit_Click()
If mm <> "" Then
mima.Text1.Visible = False
mima.Caption = "验证密码"
mima.Show
mima.Text2.SetFocus
guan = True
Else
Command5_Click
End If
End Sub

Private Sub f_Click()
If f.Value = 1 Then
aa(55) = VK_F
Else
aa(55) = VK_LBUTTON
End If
End Sub

Private Sub f1_Click()
If f1.Value = 1 Then
aa(1) = VK_F1
Else
aa(1) = VK_LBUTTON
End If
End Sub

Private Sub f10_Click()
If f10.Value = 1 Then
aa(10) = VK_F10
Else
aa(10) = VK_LBUTTON
End If
End Sub

Private Sub f11_Click()
If f11.Value = 1 Then
aa(11) = VK_F11
Else
aa(11) = VK_LBUTTON
End If
End Sub

Private Sub f12_Click()
If f12.Value = 1 Then
aa(12) = VK_F12
Else
aa(12) = VK_LBUTTON
End If
End Sub

Private Sub f2_Click()
If f2.Value = 1 Then
aa(2) = VK_F2
Else
aa(2) = VK_LBUTTON
End If
End Sub

Private Sub f3_Click()
If f3.Value = 1 Then
aa(3) = VK_F3
Else
aa(3) = VK_LBUTTON
End If
End Sub

Private Sub f4_Click()
If f4.Value = 1 Then
aa(4) = VK_F4
Else
aa(4) = VK_LBUTTON
End If
End Sub

Private Sub f5_Click()
If f5.Value = 1 Then
aa(5) = VK_F5
Else
aa(5) = VK_LBUTTON
End If
End Sub

Private Sub f6_Click()
If f6.Value = 1 Then
aa(6) = VK_F6
Else
aa(6) = VK_LBUTTON
End If
End Sub

Private Sub f7_Click()
If f7.Value = 1 Then
aa(7) = VK_F7
Else
aa(7) = VK_LBUTTON
End If
End Sub

Private Sub f8_Click()
If f8.Value = 1 Then
aa(8) = VK_F8
Else
aa(8) = VK_LBUTTON
End If
End Sub

Private Sub f9_Click()
If f9.Value = 1 Then
aa(9) = VK_F9
Else
aa(9) = VK_LBUTTON
End If
End Sub


Private Sub Form_Load()
If App.PrevInstance Then
Call MsgBox("程序已经在运行,请结束已打开的程序再试", vbCritical)
End
End If
AddIcon
FILE_NAME = App.Path + "\setinfo.ini"
chkDisable.Value = 1
yongma.Checked = chkDisable.Value
  For i = 1 To 105
  If i <= 103 Then aa(i) = VK_LBUTTON
  code(i) = 0
  Next i
If fso.FileExists(FILE_NAME) = True Then
f1.Value = GetPrivateProfileInt("form", "code(1)", f1.Value, FILE_NAME)
f2.Value = GetPrivateProfileInt("form", "code(2)", f2.Value, FILE_NAME)
f3.Value = GetPrivateProfileInt("form", "code(3)", f3.Value, FILE_NAME)
f4.Value = GetPrivateProfileInt("form", "code(4)", f4.Value, FILE_NAME)
f5.Value = GetPrivateProfileInt("form", "code(5)", f5.Value, FILE_NAME)
f6.Value = GetPrivateProfileInt("form", "code(6)", f6.Value, FILE_NAME)
f7.Value = GetPrivateProfileInt("form", "code(7)", f7.Value, FILE_NAME)
f8.Value = GetPrivateProfileInt("form", "code(8)", f8.Value, FILE_NAME)
f9.Value = GetPrivateProfileInt("form", "code(9)", f9.Value, FILE_NAME)
f10.Value = GetPrivateProfileInt("form", "code(10)", f10.Value, FILE_NAME)
f11.Value = GetPrivateProfileInt("form", "code(11)", f11.Value, FILE_NAME)
f12.Value = GetPrivateProfileInt("form", "code(12)", f12.Value, FILE_NAME)
Check26.Value = GetPrivateProfileInt("form", "code(13)", Check26.Value, FILE_NAME)
Check27.Value = GetPrivateProfileInt("form", "code(14)", Check27.Value, FILE_NAME)
Check28.Value = GetPrivateProfileInt("form", "code(15)", Check28.Value, FILE_NAME)
Check29.Value = GetPrivateProfileInt("form", "code(16)", Check29.Value, FILE_NAME)
Check30.Value = GetPrivateProfileInt("form", "code(17)", Check30.Value, FILE_NAME)
Check31.Value = GetPrivateProfileInt("form", "code(18)", Check31.Value, FILE_NAME)
Check32.Value = GetPrivateProfileInt("form", "code(19)", Check32.Value, FILE_NAME)
Check33.Value = GetPrivateProfileInt("form", "code(20)", Check33.Value, FILE_NAME)
Check34.Value = GetPrivateProfileInt("form", "code(21)", Check34.Value, FILE_NAME)
Check35.Value = GetPrivatePr