vb中屏蔽指令

来源：百度知道 编辑：UC知道 时间：2024/05/16 09:06:54
最近学校内同学间流行起VB
当然难免一些小恶作剧
在此刚入门的小白请教下VB6.0企业版中屏蔽所有按键的指令是什么
最好还有屏蔽鼠标左右键的
非常感谢
需要具体代码..

模块：

Option Explicit

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
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 UnhookWindowsHookEx Lib "user32" (ByVal hHook 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 Const GWL_WNDPROC = (-4)
Public Const WH_MOUSE = 7
Public Const WH_KEYBOARD = 2
Public Const