UC知道VB高手来下，帮忙！ ●●●（我分很多）●●●
来源：百度知道 编辑：UC知道 时间：2024/05/28 06:51:49
我想用VB 搞一个监控QQ 是否有消息 的程序！！
网上查不到啊！
我自己想了2个思路：
当有 消息发来的时候，QQ 就会调用声音！
可不可以感知这个声音文件是否 被开启。一感知到就 执行我的 下面的命令！
还有就是 图标会闪动，可不可以感知 图标？
小李无刀 先生，你好！
在下，只会说不会写！希望 写点？！！ 0.0
网上查不到啊！
我自己想了2个思路：
当有 消息发来的时候，QQ 就会调用声音！
可不可以感知这个声音文件是否 被开启。一感知到就 执行我的 下面的命令！
还有就是 图标会闪动，可不可以感知 图标？
小李无刀 先生，你好！
在下，只会说不会写！希望 写点？！！ 0.0
在网上查下找茬作弊器的思路吧
可以简单抓图的
Option Explicit
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
keybd_event vbKeySnapshot, 0&, 0&, 0&
DoEvents
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub
具体程序我没有写过，不过可以提供下思路～
1、首先，用Winsock Expert抓包，看看当QQ有消息发来时的情况。因为QQ有多种消息模式（好友消息、群消息等），QQ程序本身会对发送过来的消息进行判断，所以每条发送过来的消息一定会有一个特定添加的消息头，这时记下各种消息发来时的消息头，以便在程序编写时判断～
2、其次，就是编程了，这个你有必要查阅一下Socket方面的编程资料了。在程序中添加WinSock控件，用WinSock绑定一个TCP端口，用于通信，再监听QQ的通讯端口，拦截QQ消息，当发现发送过来的信息有指定的消息类型（如好友消息）时，程序便提示，如果没有，则不提示～
这种方法看似麻烦，但思路清晰，部分代码也可以在网上找到（如监听某个端口的信息），实现起来不是很困难～祝你好运～
都可以，不过需要用hook