PeekMessage取得消息时,为什么会失败?SPY++却可以正常显示消息.解决方案

PeekMessage取得消息时,为什么会失败?SPY++却可以正常显示消息.
代码片段:

Private Const WM_USER = &H400
Private Const TRAY_CALLBACK = (WM_USER + 1001&)

...........

Public Function SetTray() '设置图标的过程
With TheData
.uID = 0
.hWnd = frmHwnd
.cbSize = Len(TheData)
.uFlags = NIF_ICON
.uCallbackMessage = TRAY_CALLBACK
.uFlags = .uFlags Or NIF_MESSAGE
End With
Shell_NotifyIcon NIM_ADD, TheData
End Function

Private Sub MessageLoop()
'在此循环内判断发送到目标句柄的消息
Dim mMessage As Msg
Dim I As Long

Do While Not bCancel
WaitMessage
I = PeekMessage(mMessage, frmHwnd, TRAY_CALLBACK, TRAY_CALLBACK, PM_REMOVE)
If I <> 0 Then
Debug.Print "Message: " & mMessage.Message
' Select Case Message.wParam
' Case WM_LBUTTONUP
' RaiseEvent MouseClick(vbLeftButton)
' Case WM_RBUTTONUP
' RaiseEvent MouseClick(vbRightButton)
' End Select
End If
DoEvents
Loop
End Sub

目的:

写一个类模块,不使用子类化,来完成托盘消息事件化返回.

使用一个标准模块可以完成这个功能,但是需要对某句柄子类化(SubClass),不想使用.

现在想封装到一个类里面去,让托盘事件能以事件方式返回,这样可以让程序的结构更好.

本来想用另一个线程来搞这个Do...Loop循环的,但那样的话,还是得带一个模块,并且在那个模块里面如何才能让类模块里的事件触发呢?

一个又一个问题....

但现在的关键是:

为什么这PeekMessage无法取得消息?

它总是返回0.

而我把回调消息换成WM_MOUSEMOVE后,鼠标在托盘区点击,移动等,都还是没办法取得消息.但是无论是自定义消息,还是WM_MOUSEMOVE,SPY++里都完全地拦截到了.证明消息是确实发过来了的.

可是在主窗体里面移动鼠标,却又可以正常地得到(这时PeekMessage就返回1了)

到底是哪一个环节出了问题?

消息发出后,先是由窗体的WndProc得到,还是先由PeekMessage得到?

谢谢!!

[解决办法]
setWindowsLong 或者 hook 之后，才可以吧。

————————————————————————————————————
写作，虽然每个人都会查阅辞海，可，不是人人都能写出不朽的篇章的。编程，如是也。

[解决办法]
看到另一个封装的代码是令
.uCallbackMessage = WM_MOUSEMOVE

然后传递一form中的picture控件给类

处理其OnMouseMove事件
[解决办法]
...这种循环好像很占用CPU的
[解决办法]
修改一下I = PeekMessage(mMessage, frmHwnd, TRAY_CALLBACK, TRAY_CALLBACK, PM_REMOVE)的参数,让它处理进程内的所有消息,然后在循环体内根据消息值和消息来源进行判断处理

[解决办法]
..........................................................

兄弟，偶来关注了，
虽然。。。看不太懂，
只能。。。蹭分了，呵呵：）

[解决办法]
我说的实现安全子类，并不是用汇编写的，而是直接的机器指令。但你不需懂汇编，更不需懂机器指令，你只要会用VB编一个窗体处理过程，并在其中加上EbMode判断与类方法调用即可。

写好这个过程，我前面提到的那个贴子中就能解决后面问题，它可自动将其转化为机器指令，并利用贴中另一个函数完成加载并使用。

具体说明，在贴中都有，我在那贴后半部分，发了修改后的全部代码，基本就是最终成形版了，它就是为VB专用的，你只需懂VB即可使用。
[解决办法]
PeekMessage 并不能截取到所有得消息

与GetMessage 不同,GetMessage 类似于子类化,所有消息必须通过她转发
而PeekMessage则自消息队列抽出,作出响应后并决定是否返回

如果用循环 + PeekMessage
则过程建立必须在窗体show 出来之后,因为伴随 PeekMessage 使用得还有
WaitMessage ,Waitmessage 会检查消息,并处置消息所处得线程

此循环中最好使用 doevents ,此函数并非什么奇妙代码功能,而是一个简单的消息循环
具体作用及实现原理不煞述了

使用PeekMessage最好使用多线程承载此循环,否则比较好得解决方式是
sub form_load()
...
'自定义代码
...

show '必须先show出窗体
do until doevents = 0
waitmessage ...
if peekmessage(...) then ...
loop

end sub

这样一个过程

PeekMessage取得消息时,为什么会失败?

热点推荐