Attribute VB_Name = "modDisableKeys"
'****************************************************************************
'人人為我，我為人人
'發(fā)布日期：2006/11/04
'描    述：流星鍵盤鎖定
'網(wǎng)    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網(wǎng)    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************

'該模塊比較亂,多數(shù)通用變量的聲明放在這個模塊,還有各個function的聲明
'該模塊用于鎖定鍵盤上的各個按鍵
Option Explicit
Public Declare Function GetPrivateProfileInt Lib "kernel32" _
                Alias "GetPrivateProfileIntA" _
                (ByVal lpApplicationName As String, _
                ByVal lpKeyName As String, _
                ByVal nDefault As Long, _
                ByVal lpFileName As String) _
                As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" _
                Alias "GetPrivateProfileStringA" _
                (ByVal lpApplicationName As String, _
                ByVal lpKeyName As Any, _
                ByVal lpDefault As String, _
                ByVal lpReturnedString As String, _
                ByVal nSize As Integer, _
                ByVal lpFileName As String) _
                As Integer

Public Declare Function WritePrivateProfileString Lib "kernel32" _
                Alias "WritePrivateProfileStringA" _
                (ByVal lpApplicationName As String, _
                ByVal lpKeyName As String, _
                ByVal lpString As String, _
                ByVal lpFileName As String) _
                As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Const HC_ACTION = 0
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105
Public Const WH_KEYBOARD_LL = 13
Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOZORDER = &H8
Public Const SWP_HIDEWINDOW = &H80 '隱藏視窗
Public Const SWP_SHOWWINDOW = &H40 '顯示視窗

Public Type KBDLLHOOKSTRUCT
    vkCode As Long
    scanCode As Long
    flags As Long
    time As Long
    dwExtraInfo As Long
End Type

Public Enum VirtualKey
  VK_LBUTTON = &H1
  VK_RBUTTON = &H2
  VK_CTRLBREAK = &H3
  VK_MBUTTON = &H4
  VK_BACKSPACE = &H8
  VK_TAB = &H9
  VK_ENTER = &HD
  VK_SHIFT = &H10
  VK_CONTROL = &H11
  VK_ALT = &H12
  VK_PAUSE = &H13
  VK_CAPSLOCK = &H14
  VK_ESCAPE = &H1B
  VK_SPACE = &H20
  VK_PAGEUP = &H21
  VK_PAGEDOWN = &H22
  VK_END = &H23
  VK_HOME = &H24
  VK_LEFT = &H25
  VK_UP = &H26
  VK_RIGHT = &H27
  VK_DOWN = &H28
  VK_PRINTSCREEN = &H2C
  VK_INSERT = &H2D
  VK_DELETE = &H2E
  VK_0 = &H30
  VK_1 = &H31
  VK_2 = &H32
  VK_3 = &H33
  VK_4 = &H34
  VK_5 = &H35
  VK_6 = &H36
  VK_7 = &H37
  VK_8 = &H38
  VK_9 = &H39
  VK_A = &H41
  VK_B = &H42
  VK_C = &H43
  VK_D = &H44
  VK_E = &H45
  VK_F = &H46
  VK_G = &H47
  VK_H = &H48
  VK_I = &H49
  VK_J = &H4A
  VK_K = &H4B
  VK_L = &H4C
  VK_M = &H4D
  VK_N = &H4E
  VK_O = &H4F
  VK_P = &H50
  VK_Q = &H51
  VK_R = &H52
  VK_S = &H53
  VK_T = &H54
  VK_U = &H55
  VK_V = &H56
  VK_W = &H57
  VK_X = &H58
  VK_Y = &H59
  VK_Z = &H5A
  VK_LWINDOWS = &H5B
  VK_RWINDOWS = &H5C
  VK_APPSPOPUP = &H5D
  VK_NUMPAD_0 = &H60
  VK_NUMPAD_1 = &H61
  VK_NUMPAD_2 = &H62
  VK_NUMPAD_3 = &H63
  VK_NUMPAD_4 = &H64
  VK_NUMPAD_5 = &H65
  VK_NUMPAD_6 = &H66
  VK_NUMPAD_7 = &H67
  VK_NUMPAD_8 = &H68
  VK_NUMPAD_9 = &H69
  VK_NUMPAD_MULTIPLY = &H6A
  VK_NUMPAD_ADD = &H6B
  VK_NUMPAD_PLUS = &H6B
  VK_NUMPAD_SUBTRACT = &H6D
  VK_NUMPAD_MINUS = &H6D
  VK_NUMPAD_MOINS = &H6D
  VK_NUMPAD_DECIMAL = &H6E
  VK_NUMPAD_POINT = &H6E
  VK_NUMPAD_DIVIDE = &H6F
  VK_F1 = &H70
  VK_F2 = &H71
  VK_F3 = &H72
  VK_F4 = &H73
  VK_F5 = &H74
  VK_F6 = &H75
  VK_F7 = &H76
  VK_F8 = &H77
  VK_F9 = &H78
  VK_F10 = &H79
  VK_F11 = &H7A
  VK_F12 = &H7B
  VK_NUMLOCK = &H90
  VK_SCROLL = &H91
  VK_LSHIFT = &HA0
  VK_RSHIFT = &HA1
  VK_LCONTROL = &HA2
  VK_RCONTROL = &HA3
  VK_LALT = &HA4
  VK_RALT = &HA5
  VK_POINTVIRGULE = &HBA
  VK_ADD = &HBB
  VK_PLUS = &HBB
  VK_EQUAL = &HBB
  VK_VIRGULE = &HBC
  VK_SUBTRACT = &HBD
  VK_MINUS = &HBD
  VK_MOINS = &HBD
  VK_UNDERLINE = &HBD
  VK_POINT = &HBE
  VK_SLASH = &HBF
  VK_TILDE = &HC0
  VK_LEFTBRACKET = &HDB
  VK_BACKSLASH = &HDC
  VK_RIGHTBRACKET = &HDD
  VK_QUOTE = &HDE
  VK_APOSTROPHE = &HDE
End Enum
Public Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
Public aa(1 To 103) As String
Public FILE_NAME As String
Public hand1 As Long
Public mm As String
Public bd, guan, hh, gaga As Boolean
Public code(1 To 103)
Dim p As KBDLLHOOKSTRUCT

Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
         
  Dim fEatKeystroke, f2 As Boolean
  
  If (nCode = HC_ACTION) Then
    If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then
      CopyMemory p, ByVal lParam, Len(p)
      fEatKeystroke = _
(p.vkCode = aa(1)) Or (p.vkCode = aa(2)) Or (p.vkCode = aa(3)) Or (p.vkCode = aa(4)) Or (p.vkCode = aa(5)) Or _
(p.vkCode = aa(6)) Or (p.vkCode = aa(7)) Or (p.vkCode = aa(8)) Or (p.vkCode = aa(9)) Or (p.vkCode = aa(10)) Or _
(p.vkCode = aa(11)) Or (p.vkCode = aa(12)) Or (p.vkCode = aa(13)) Or (p.vkCode = aa(14)) Or (p.vkCode = aa(15)) Or _
(p.vkCode = aa(16)) Or (p.vkCode = aa(17)) Or (p.vkCode = aa(18)) Or (p.vkCode = aa(19)) Or (p.vkCode = aa(20)) Or _
(p.vkCode = aa(21)) Or (p.vkCode = aa(22)) Or (p.vkCode = aa(23)) Or (p.vkCode = aa(24)) Or (p.vkCode = aa(25)) Or _
(p.vkCode = aa(26)) Or (p.vkCode = aa(27)) Or (p.vkCode = aa(28)) Or (p.vkCode = aa(29)) Or (p.vkCode = aa(30)) Or _
(p.vkCode = aa(31)) Or (p.vkCode = aa(32)) Or (p.vkCode = aa(33)) Or (p.vkCode = aa(34)) Or (p.vkCode = aa(35)) Or _
(p.vkCode = aa(36)) Or (p.vkCode = aa(37)) Or (p.vkCode = aa(38)) Or (p.vkCode = aa(39)) Or (p.vkCode = aa(40)) Or _
(p.vkCode = aa(41)) Or (p.vkCode = aa(42)) Or (p.vkCode = aa(43)) Or (p.vkCode = aa(44)) Or (p.vkCode = aa(45)) Or _
(p.vkCode = aa(46)) Or (p.vkCode = aa(47)) Or (p.vkCode = aa(48)) Or (p.vkCode = aa(49)) Or (p.vkCode = aa(50)) Or _
(p.vkCode = aa(51)) Or (p.vkCode = aa(52)) Or (p.vkCode = aa(53)) Or (p.vkCode = aa(54)) Or (p.vkCode = aa(55)) Or _
(p.vkCode = aa(56)) Or (p.vkCode = aa(57)) Or (p.vkCode = aa(58)) Or (p.vkCode = aa(59)) Or (p.vkCode = aa(60)) Or _
(p.vkCode = aa(61)) Or (p.vkCode = aa(62)) Or (p.vkCode = aa(63)) Or (p.vkCode = aa(64)) Or (p.vkCode = aa(65)) Or _
(p.vkCode = aa(66)) Or (p.vkCode = aa(67)) Or (p.vkCode = aa(68)) Or (p.vkCode = aa(69)) Or (p.vkCode = aa(70)) Or _
(p.vkCode = aa(71)) Or (p.vkCode = aa(72)) Or (p.vkCode = aa(73)) Or (p.vkCode = aa(74)) Or (p.vkCode = aa(75)) Or _
(p.vkCode = aa(76)) Or (p.vkCode = aa(77)) Or (p.vkCode = aa(78)) Or (p.vkCode = aa(79)) Or (p.vkCode = aa(80)) Or _
(p.vkCode = aa(81)) Or (p.vkCode = aa(82)) Or (p.vkCode = aa(83)) Or (p.vkCode = aa(84)) Or (p.vkCode = aa(85)) Or _
(p.vkCode = aa(86)) Or (p.vkCode = aa(87)) Or (p.vkCode = aa(88)) Or (p.vkCode = aa(89)) Or (p.vkCode = aa(90)) Or _
(p.vkCode = aa(91)) Or (p.vkCode = aa(92)) Or (p.vkCode = aa(93)) Or (p.vkCode = aa(94)) Or (p.vkCode = aa(95)) Or _
(p.vkCode = aa(96)) Or (p.vkCode = aa(97)) Or (p.vkCode = aa(98)) Or (p.vkCode = aa(99)) Or (p.vkCode = aa(100)) Or _
(p.vkCode = aa(101)) Or _
        ((p.vkCode = VK_TAB) And ((GetKeyState(VK_ALT) And &H8000) <> 0))
        
    End If
  
    If wParam = WM_SYSKEYDOWN Then
      f2 = _
((p.vkCode = VK_NUMPAD_5) And ((GetKeyState(VK_ALT) And &H8000) <> 0))
      End If
      End If
  If fEatKeystroke Then
    LowLevelKeyboardProc = -1
  ElseIf f2 Then
  If frmMain.WindowState = 1 Then
  If frmMain.biedong.Value = 1 Then
  frmMain.show1_Click
  Call asdf
  Call frmMain.jie
  frmMain.Timer1.Enabled = False
  frmMain.Timer3.Enabled = True
  frmMain.Timer2.Enabled = True
  CenterOnForm mima
  frmMain.Backspace.Value = 0
  frmMain.Backspace_Click
  Else
  frmMain.show1_Click
  End If
  End If
  Else
    LowLevelKeyboardProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)
  End If
  
   
End Function

Public Sub asdf()
frmMain.Check85.Value = 0
frmMain.Check86.Value = 0
frmMain.Check87.Value = 0
frmMain.Check88.Value = 0
frmMain.Check89.Value = 0
frmMain.Check90.Value = 0
frmMain.Check92.Value = 0
frmMain.Check93.Value = 0
frmMain.Check94.Value = 0
frmMain.Check95.Value = 0
frmMain.Check96.Value = 0
frmMain.Check97.Value = 0
frmMain.Check98.Value = 0
frmMain.Check99.Value = 0
frmMain.Check101.Value = 0

frmMain.Check85_Click
frmMain.Check86_Click
frmMain.Check87_Click
frmMain.Check88_Click
frmMain.Check89_Click
frmMain.Check90_Click
frmMain.Check92_Click
frmMain.Check93_Click
frmMain.Check94_Click
frmMain.Check95_Click
frmMain.Check96_Click
frmMain.Check97_Click
frmMain.Check98_Click
frmMain.Check99_Click
frmMain.Check101_Click
End Sub
Public Sub asdf1()
frmMain.Check85.Value = 1
frmMain.Check86.Value = 1
frmMain.Check87.Value = 1
frmMain.Check88.Value = 1
frmMain.Check89.Value = 1
frmMain.Check90.Value = 1
frmMain.Check92.Value = 1
frmMain.Check93.Value = 1
frmMain.Check94.Value = 1
frmMain.Check95.Value = 1
frmMain.Check96.Value = 1
frmMain.Check97.Value = 1
frmMain.Check98.Value = 1
frmMain.Check99.Value = 1
frmMain.Check101.Value = 1

frmMain.Check85_Click
frmMain.Check86_Click
frmMain.Check87_Click
frmMain.Check88_Click
frmMain.Check89_Click
frmMain.Check90_Click
frmMain.Check92_Click
frmMain.Check93_Click
frmMain.Check94_Click
frmMain.Check95_Click
frmMain.Check96_Click
frmMain.Check97_Click
frmMain.Check98_Click
frmMain.Check99_Click
frmMain.Check101_Click
End Sub