frmmain.frm

该软件实现键盘锁定功能

aa(73) = VK_ENTER
Check41.Value = 1
Else
aa(102) = VK_LBUTTON
aa(73) = VK_LBUTTON
Check41.Value = 0
End If
End Sub

Private Sub Check15_Click()
If Check15.Value = 1 Then
aa(28) = VK_PAUSE
Else
aa(28) = VK_LBUTTON
End If
End Sub

Private Sub Check2_Click()
If chkDisable.Value = 1 Then
If Check2.Value = 1 Then
SwapMouseButton True '左手
Else
SwapMouseButton False '右手
End If
Else
SwapMouseButton False '右手
End If
End Sub

Private Sub Check26_Click()
If Check26.Value = 1 Then
aa(13) = VK_TILDE
Else
aa(13) = VK_LBUTTON
End If
End Sub

Private Sub Check27_Click()
If Check27.Value = 1 Then
aa(14) = VK_1
Else
aa(14) = VK_LBUTTON
End If
End Sub

Private Sub Check28_Click()
If Check28.Value = 1 Then
aa(15) = VK_2
Else
aa(15) = VK_LBUTTON
End If
End Sub

Private Sub Check29_Click()
If Check29.Value = 1 Then
aa(16) = VK_3
Else
aa(16) = VK_LBUTTON
End If
End Sub

Private Sub Check30_Click()
If Check30.Value = 1 Then
aa(17) = VK_4
Else
aa(17) = VK_LBUTTON
End If
End Sub

Private Sub Check31_Click()
If Check31.Value = 1 Then
aa(18) = VK_5
Else
aa(18) = VK_LBUTTON
End If
End Sub

Private Sub Check32_Click()
If Check32.Value = 1 Then
aa(19) = VK_6
Else
aa(19) = VK_LBUTTON
End If
End Sub

Private Sub Check33_Click()
If Check33.Value = 1 Then
aa(20) = VK_7
Else
aa(20) = VK_LBUTTON
End If
End Sub

Private Sub Check34_Click()
If Check34.Value = 1 Then
aa(21) = VK_8
Else
aa(21) = VK_LBUTTON
End If
End Sub

Private Sub Check35_Click()
If Check35.Value = 1 Then
aa(22) = VK_9
Else
aa(22) = VK_LBUTTON
End If
End Sub

Private Sub Check36_Click()
If Check36.Value = 1 Then
aa(23) = VK_0
Else
aa(23) = VK_LBUTTON
End If
End Sub

Private Sub Check37_Click()
If Check37.Value = 1 Then
aa(24) = VK_MINUS
Else
aa(24) = VK_LBUTTON
End If
End Sub

Private Sub Check38_Click()
If Check38.Value = 1 Then
aa(25) = VK_EQUAL
Else
aa(25) = VK_LBUTTON
End If
End Sub

Private Sub Check4_Click()
If chkDisable.Value = 1 Then
If Check4.Value = 1 Then
Dim sTmp As String * 50
Dim abc, bcd As String
Length = GetSystemDirectory(sTmp, 50)          '获取系统目录
abc = left(sTmp, Length)
bcd = abc & "\taskmgr.exe"                     '打开而不执行一个程序(任务管理器)
Open bcd For Input Lock Read Write As #305     '以达到锁定的目的
Else
Close #305
End If
Else
Close #305
End If
End Sub

Private Sub Check40_Click()
If Check40.Value = 1 Then
aa(63) = VK_BACKSLASH
Else
aa(63) = VK_LBUTTON
End If
End Sub

Private Sub Check41_Click()
If Check41.Value = 1 Then
aa(73) = VK_ENTER
aa(102) = VK_ENTER
Check101.Value = 1
Else
aa(73) = VK_LBUTTON
aa(102) = VK_LBUTTON
Check101.Value = 0
End If
End Sub

Private Sub Check44_Click()
If Check44.Value = 1 Then
aa(84) = VK_APPSPOPUP
Else
aa(84) = VK_LBUTTON
End If
End Sub

Private Sub Check73_Click()
If Check73.Value = 1 Then
aa(61) = VK_POINTVIRGULE
Else
aa(61) = VK_LBUTTON
End If
End Sub

Private Sub Check74_Click()
If Check74.Value = 1 Then
aa(62) = VK_QUOTE
Else
aa(62) = VK_LBUTTON
End If
End Sub

Private Sub Check82_Click()
If Check82.Value = 1 Then
aa(76) = VK_VIRGULE
Else
aa(76) = VK_LBUTTON
End If
End Sub

Private Sub Check83_Click()
If Check83.Value = 1 Then
aa(75) = VK_POINT
Else
aa(75) = VK_LBUTTON
End If
End Sub

Private Sub Check84_Click()
If Check84.Value = 1 Then
aa(72) = VK_SLASH
Else
aa(72) = VK_LBUTTON
End If
End Sub

 Sub Check85_Click()
If Check85.Value = 1 Then
aa(96) = VK_NUMPAD_POINT
Else
aa(96) = VK_LBUTTON
End If
End Sub

 Sub Check86_Click()
If Check86.Value = 1 Then
aa(86) = VK_NUMPAD_0
Else
aa(86) = VK_LBUTTON
End If
End Sub

 Sub Check87_Click()
If Check87.Value = 1 Then
aa(87) = VK_NUMPAD_1
Else
aa(87) = VK_LBUTTON
End If
End Sub

 Sub Check88_Click()
If Check88.Value = 1 Then
aa(88) = VK_NUMPAD_2
Else
aa(88) = VK_LBUTTON
End If
End Sub

 Sub Check89_Click()
If Check89.Value = 1 Then
aa(89) = VK_NUMPAD_3
Else
aa(89) = VK_LBUTTON
End If
End Sub

 Sub Check90_Click()
If Check90.Value = 1 Then
aa(90) = VK_NUMPAD_4
Else
aa(90) = VK_LBUTTON
End If
End Sub

 Sub Check91_Click()
If Check91.Value = 1 Then
aa(91) = VK_NUMPAD_5
Else
aa(91) = VK_LBUTTON
End If
End Sub

 Sub Check92_Click()
If Check92.Value = 1 Then
aa(92) = VK_NUMPAD_6
Else
aa(92) = VK_LBUTTON
End If
End Sub

 Sub Check93_Click()
If Check93.Value = 1 Then
aa(93) = VK_NUMPAD_7
Else
aa(93) = VK_LBUTTON
End If
End Sub

 Sub Check94_Click()
If Check94.Value = 1 Then
aa(94) = VK_NUMPAD_8
Else
aa(94) = VK_LBUTTON
End If
End Sub

 Sub Check95_Click()
If Check95.Value = 1 Then
aa(95) = VK_NUMPAD_9
Else
aa(95) = VK_LBUTTON
End If
End Sub

 Sub Check96_Click()
If Check96.Value = 1 Then
aa(97) = VK_NUMPAD_ADD
Else
aa(97) = VK_LBUTTON
End If
End Sub

 Sub Check97_Click()
If Check97.Value = 1 Then
aa(98) = VK_NUMPAD_SUBTRACT
Else
aa(98) = VK_LBUTTON
End If
End Sub

 Sub Check98_Click()
If Check98.Value = 1 Then
aa(99) = VK_NUMPAD_MULTIPLY
Else
aa(99) = VK_LBUTTON
End If
End Sub

 Sub Check99_Click()
If Check99.Value = 1 Then
aa(100) = VK_NUMPAD_DIVIDE
Else
aa(100) = VK_LBUTTON
End If
End Sub

Private Sub chkDisable_Click()
  If chkDisable = vbChecked Then
    hhkLowLevelKybd = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, App.hInstance, 0)
  Else
    UnhookWindowsHookEx hhkLowLevelKybd
    hhkLowLevelKybd = 0
    Check2.Value = 0
  End If
  yongma.Checked = chkDisable.Value
  Check4_Click
  Check2_Click
           
      
End Sub

Private Sub Command1_Click()
Dim check As Control
     For Each check In Me.Controls
      If TypeOf check Is CheckBox Then
       check.Value = 1
      End If
     Next check
     Check2.Value = 0
     Check3.Value = 0
End Sub

Public Sub Command2_Click()
Dim check As Control
     For Each check In Me.Controls
      If TypeOf check Is CheckBox Then
       check.Value = 0
      End If
     Next check
End Sub

Private Sub Command3_Click()
If mm <> "" Then
mima.Text1.Visible = False
mima.Caption = "验证密码"
mima.WindowState = 0
mima.Show vbModal
SetFormTopmost mima
Else
mima.Text1.Visible = True
mima.Caption = "设置密码"
mima.WindowState = 0
mima.Show vbModal
SetFormTopmost mima
End If
End Sub

Private Sub Command4_Click()
If Check3.Value = 0 Then
SaveSetting "App_Name", "Registration", "code(1)", f1.Value
SaveSetting "App_Name", "Registration", "code(2)", f2.Value
SaveSetting "App_Name", "Registration", "code(3)", f3.Value
SaveSetting "App_Name", "Registration", "code(4)", f4.Value
SaveSetting "App_Name", "Registration", "code(5)", f5.Value
SaveSetting "App_Name", "Registration", "code(6)", f6.Value
SaveSetting "App_Name", "Registration", "code(7)", f7.Value
SaveSetting "App_Name", "Registration", "code(8)", f8.Value
SaveSetting "App_Name", "Registration", "code(9)", f9.Value
SaveSetting "App_Name", "Registration", "code(10)", f10.Value
SaveSetting "App_Name", "Registration", "code(11)", f11.Value
SaveSetting "App_Name", "Registration", "code(12)", f12.Value
SaveSetting "App_Name", "Registration", "code(13)", Check26.Value
SaveSetting "App_Name", "Registration", "code(14)", Check27.Value
SaveSetting "App_Name", "Registration", "code(15)", Check28.Value
SaveSetting "App_Name", "Registration", "code(16)", Check29.Value
SaveSetting "App_Name", "Registration", "code(17)", Check30.Value
SaveSetting "App_Name", "Registration", "code(18)", Check31.Value
SaveSetting "App_Name", "Registration", "code(19)", Check32.Value
SaveSetting "App_Name", "Registration", "code(20)", Check33.Value
SaveSetting "App_Name", "Registration", "code(21)", Check34.Value
SaveSetting "App_Name", "Registration", "code(22)", Check35.Value
SaveSetting "App_Name", "Registration", "code(23)", Check36.Value
SaveSetting "App_Name", "Registration", "code(24)", Check37.Value