你Hook一个系统性的钩子,把所有的鼠标和键盘的消息全部‘吃掉’不新行了?对了,你要这个干什么呀!
解决方案 »
- 急~~求助~~如何处理如下格式的文本文件?
- 文本文件列的判断
- 老生常谈的图片转换问题,没有什么好办法?
- 一直不是非常清楚在VB中调用EXCEL时Appliation的含义和用法,贴上以下一段代码,想实现以下功能
- 把程序中的一个窗体,加载无数次,退出无数次后,程序占用内存会一点点地增加,我查了变量,没查出什么错误,不知什么原因
- Sql语句取不出字段最大值,怪事 !!
- 怎摸使窗体变为透明?(指FORM不可视,但FORM上的控件却可看见。)
- 菜鸟一问!!!
- 我的密码被人改了。现在开始,我就不上了。
- 请问在MDIFORM中,当子窗体打开或关闭时,其MDIForm被激活的事件是什么呢?
- 使用类的高手挺进!!!
- 如何传递自定义结构数组到编写得控件里?
Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)
Const WM_MOUSELAST = &H209
Const WM_MOUSEFIRST = &H200
Public Const WM_KEYLAST = &H108
Public Const WM_KEYFIRST = &H100
Public Const WH_JOURNALRECORD = 0
Public Const WH_JOURNALPLAYBACK = 1Type EVENTMSG
message As Long
paramL As Long
paramH As Long
time As Long
hwnd As Long
End Type
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
Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public hNxtHook As Long ' handle of Hook Procedure
Public msg As EVENTMSGSub EnableHook()
hNxtHook = SetWindowsHookEx(WH_JOURNALPLAYBACK, AddressOf HookProc, App.hInstance, 0)
End Sub
Sub FreeHook()
Dim ret As Long
ret = UnhookWindowsHookEx(hNxtHook)
End Sub
Function HookProc(ByVal code As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
HookProc = CallNextHookEx(hNxtHook, code, wParam, lParam)
End Function'以下在Form中,需求:一个Command1, 一个text1
Private Sub Command1_Click()
Dim str5 As String, len5 As Long, i As LongCall EnableHook
str5 = "这是一个测试JournalPlayBackHook的程式"
len5 = Len(str5)
For i = 1 To len5
Text1.Text = Mid(str5, 1, i)
Text1.Refresh
Sleep (200)
Next
Call FreeHook
End Sub