让鼠标键盘失效的VB小程序

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

这两条是调用DLL（动态连接库），调用后可以当函数一样使用。

如第一个EnableWindow是函数名"user32"是DLL文件的颂昌地址，user32是表示在用户程序集中，kernel32是表示在内核中，同样也可以用绝对地址如“C:\XXXX.DLL”，ByVal hwnd As Long，ByVal 是变要传输的形式有ByVal和ByRef两种他们的区别是ByRef在调用函数后可以返回数值而ByVal不可以，Hwnd ,是变量名，Long是数据类型，声明后就可以当做函数EnableWindow（ByVal hwnd As Long, ByVal fEnable As Long）一样调用。不同的DLL有不同的动能具体要看说明。

Private Sub Command1_Click()

Call EnableWindow(Me.hwnd, 0)

'调用EnableWindow,Me.hwnd是窗口的句柄，0是相应的参数,表示对当前窗口执行对应于穗则0的命令

'Me在本窗口使用时相当于本窗口名称，如load Me,Unload Me

Me.Caption = "现在拒绝KeyPress, MouseClick"

'窗口的标题改为"现在拒绝KeyPress, MouseClick"

Dim i As Long '定义I

For i = 1 To 100 ‘For 和Next之间循环100次

Call Sleep(100) '调用Sleep DLL

DoEvents '空动作

Next i

Me.Caption = "现在解除了"

'窗口野族扒的标题改为"现在解除了"

Call EnableWindow(Me.hwnd, 1)

'调用EnableWindow,Me.hwnd是窗口的句柄，0是相应的参数,表示对当前窗口执行对应于1的命令

End Sub

是某个程序者氏在运行，多数是某个程序自动更首世散新时或安装某个软件时捆绑的某个小程序，在任务栏管理页面看看有没有这个程序，没有的话在任务管理器查看，在控制面板的程序管理里面看看是什么程序，是没用的程序就直接卸载掉就好。返历

---