moddisablekeys.bas

还可以的一个程序；还可以的一个程序还可以的一个程序；还可以的一个程序

Attribute VB_Name = "modDisableKeys"
'****************************************************************************
'人人为我，我为人人
'发布日期：2006/11/04
'描    述：流星键盘锁定
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

'该模块比较乱,多数通用变量的声明放在这个模块,还有各个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