VB的窗体怎么响应dll来的消息呢？

Question

用钩子函数截取消息判断是否发往VB窗体
具体函数查MSDN

Answer 1

SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WWndProc)
CallWindowProc(preWndProc, hw, Msg, wParam, lParam)
在VB里应该怎么声明呀，我怎么老是找不到dll的入口？

Answer 2

老是报错："找不到dll的入口" 

Answer 3

我是这么声明的：Declare Function SetWindowLong Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Integer, ByVal dwNewLong As Long) As Long

Answer 4

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Answer 5

谢谢！
原来是 SetWindowLongA 啊

Answer 6

To pgfun()兄　:我在模块中定义：
Public Function WWndProc(ByVal hw As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
MsgBox "hehe..."
preWndProc = CallWindowProc(preWndProc, hw, Msg, wParam, lParam)
End Function在窗体文件中定义：
Private Sub Form_Load()
preWndProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WWndProc)
End Sub可是，WWndProc根本就执行不到，这是怎么回事？

Answer 7

我可以在dll文件中直接操作VB窗体吗？句柄已经用ME.hWnd传给dll了。

Answer 8

你是否在DLL中加入了Sendmessage函数发送消息。另外在Sendmessage中设定的接受消息的窗口局柄是否正确。

Answer 9

<<你的这个钩子作的不对,再看看吧! 哪里不对？请指教。

Answer 10

<<你是否在DLL中加入了Sendmessage函数发送消息。另外在Sendmessage中设定的接受消息的口局柄是否正确。 preWndProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WWndProc)
这个函数的返回值为0，看来是SetWindowLong（）的使用有问题。/*-------------------------------------------------*/
SetWindowLong
The SetWindowLong function changes an attribute of the specified window. The function also sets a 32-bit (long) value at the specified offset into the extra window memory of a window. LONG SetWindowLong(
  HWND hWnd,       // handle of window
  int nIndex,      // offset of value to set
  LONG dwNewLong   // new value
);
Return Values
If the function succeeds, the return value is the previous value of the specified 32-bit integer.
If the function fails, the return value is zero. 
/*-------------------------------------------------*/

Answer 11

vb的窗体是不能直接接受消息的.要自己定义一个窗体过程.而且启动要是Sub Main(),使用Sub Main()处理窗体消息.具体代码...对不起!不好意思.

Answer 12

我是在Sub Main（）执行呀！怎么还不行？我在模块中定义：
Public Function WWndProc(ByVal hw As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
MsgBox "hehe..."
preWndProc = CallWindowProc(preWndProc, hw, Msg, wParam, lParam)
End Function在启动窗体中定义：
Private Sub Form_Load()
preWndProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WWndProc)
End Sub可是，WWndProc根本就执行不到。

Answer 13

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Const myflag = &H400&

Answer 14

好像加上with event就行了。

Answer 15

你的声明好像有点问题，试试下面这个：）
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
我的系统为Windows2000 Server
祝你好运*^_^* 

Answer 16

Public Function WWndProc(ByVal hw As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
MsgBox "hehe..."
WWndProc = CallWindowProc(preWndProc, hw, Msg, wParam, lParam)
End Function