使用程序模拟鼠标点击QQ消息框中的关闭按钮！！！！！！！！！！！！！！！！！！！！！！！

[liuguozhong]

目的：使用程序模拟鼠标点击QQ消息框中的关闭按钮
问题：不能实现（b=0),用spy++查看，关闭按钮的类在一个叫#32770 (Dialog)的类中，望高人指点！
Option Explicit
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Const BM_CLICK = &HF5
Private Sub Form_DblClick()
Dim t As Long
Dim b As Long
Dim subhwnd As Long
t = FindWindow(vbNullString, "与 安安 聊天中")
Debug.Print t
b = FindWindowEx(t, ByVal 0&, "Button", "关闭(&C)")
Debug.Print b
SendMessage b, BM_CLICK, 0, 0

End Sub

[liuguozhong]

顶一顶！

[dongge2000]

不如发个WM_Close消息了。

[liuguozhong]

我并不是只要关闭，我要的是实现按动这几个按钮的功能~

[dongge2000]

呵呵，QQ灌水机吧？
mouse_event

VB声明
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
说明
模拟一次鼠标事件
参数表
参数 类型及说明
dwFlags Long，下述标志的一个组合
MOUSEEVENTF_ABSOLUTE dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元
MOUSEEVENTF_MOVE 移动鼠标
MOUSEEVENTF_LEFTDOWN 模拟鼠标左键按下
MOUSEEVENTF_LEFTUP 模拟鼠标左键抬起
MOUSEEVENTF_RIGHTDOWN 模拟鼠标右键按下
MOUSEEVENTF_RIGHTUP 模拟鼠标右键按下
MOUSEEVENTF_MIDDLEDOWN 模拟鼠标中键按下
MOUSEEVENTF_MIDDLEUP 模拟鼠标中键按下
dx Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定水平方向的绝对位置或相对运动
dy Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直方向的绝对位置或相对运动
cButtons Long，未使用
dwExtraInfo Long，通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序
注解
进行相对运动的时候，由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度

----------------
成功的很少。

[liuguozhong]

啊？！
成功少？！