想编个控制其它程序的按钮的程序，当中用到了sendmessage函数
，不过我对sendmessage的参数不太会用。程序虽然成功给目标程序的按钮发送了消息，却不能触发目标程序按钮的click事件。请各位帮忙看看，具体如下：
   
    两个程序，一个是控制程序，另一个是被控制程序。两个程序都分别有一个标签和一个命令按钮。

'控制程序代码：
Private Sub Command1_Click() '

Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202

Dim win1 As Long
Dim cmd As Long

win1 = FindWindow(vbNullString, "被控制程序")
cmd = GetWindow(win1, 5)
SendMessage  cmd, WM_LBUTTONDOWN, 0, 0
SendMessage  cmd, WM_LBUTTONUP, 0, 0

Label1.Caption = "已发出信号！"

End Sub


'被控制程序代码
Private Sub Command1_Click()
Label1.Caption = "成功接收到信号！"
End Sub

Call sendMessage(FormXCommand1.hwnd, WM_LBUTTONDOWN, 0, &H20002)
Call sendMessage(FormXCommand1.hwnd, WM_LBUTTONUP, 0, &H20002)

未解决。
cmd = GetWindow(win1, 5)
这句代码已经成功取得被控制程序的“接收信号”按钮的句柄。
但就是无法触发按钮的click事件。
把
SendMessage  cmd, WM_LBUTTONDOWN, 0, 0
SendMessage  cmd, WM_LBUTTONUP, 0, 0

换成
Call sendMessage(FormXCommand1.hwnd, WM_LBUTTONDOWN, 0, &H20002)
Call sendMessage(FormXCommand1.hwnd, WM_LBUTTONUP, 0, &H20002)
也不行

是同一个工程吗？

不是同一工程,是两个程序.

被控制程序是否应该在监听状态啊？

这个取巧呗
点击先给被控对象焦点
然后再按下对应的快捷键（你给那个COMMAND设置个快捷键）

其实那个被控制程序是我单位办公用的一个软件,我是想编一个可以控制那个办公软件的程序。我只知道那个软件在运行，不知道它是否在监听，也无法为它的COMMAND设置快捷键。

SendMessage thWnd, BM_CLICK, 0&, 0& 'thWnd为你要按下的Button的hWnd

我把两个程序传上来吧。
要求不能修改被控制程序，只能通过控制程序来触发被控制程序的“接收信号”按钮的click事件。