求助：用VB编写的监控小工具代码

来源：百度知道 编辑：UC知道 时间：2024/05/20 18:50:54
希望大家能帮忙提供一个监控其它程序的小工具：
运行工具后，打开一个名为X的程序，希望当在X中单击左健后，鼠标自动移到某特定点，一段时间后，自动单击左健。然后退出。
如果有代码发点代码哈，类似相关就可以。

说我的那个 不明白就回家学习去！

这个就是代码 也不知道你要做什么
我模拟鼠标用的mouse_event
如果你要用在游戏上 游戏本身可能会屏蔽
所以可能会没反应
启动程序用shell "c:\1.exe" 就行
在窗体调用enablehook

以下代码要放在模块中！

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
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As Stri