怎么把VB的DLL注入到其它进程中，还监视线程。设置勾子

2003-06-13 03:59:41 105 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

避坑指南：锐浪报表PictureBox打印图像常见的5大问题及解决方案本文深入剖析了锐浪报表（Grid++Report）中PictureBox控件打印图像时常见的五大难题，包括图像源加载机制、拉伸失真、动态加载失败、跨平台兼容性及性能优化。文章提供了从原理理解到实战解决方案的完整指南，帮助开发者有效规避图像打印中的常见陷阱，确保报表输出的稳定与高质量。阅读详情

Option Explicit

'Model模块

Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, ByVal lParam 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

Global hHook&

Public Function HookProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
HookProc = CallNextHookEx(hHook, idHook, wParam, ByVal lParam)
End Function

'*************************************************************
Option Explicit

'FORM模块
Public Enum HookType
WH_KEYBOARD = 2
WH_MOUSE = 7
End Enum

''''''''''''''''''钩子'''''''''''''''''''''''''''''''''''''''''''''''''
Function HookOn(ByVal lpType As HookType, ByVal hThread As Long) As Long
If hHook <> 0 Then HookOff
hHook = SetWindowsHookEx(ByVal lpType, AddressOf HookProc, App.hInstance, hThread) '为另一进程的线程ID
HookOn = hHook
End Function

Sub HookOff()
UnhookWindowsHookEx hHook
hHook = 0
End Sub

'我设置的是键盘勾子，能设置成功
'但是，在另一进程的线程窗体中点击键盘时，应该进程出错了。

'VB不能跨进程设置勾子吗？

'在VB6 + WIN 2000环境中使用

'怎么把VB的DLL注入到其它进程中，还监视线程。设置勾子

...全文