想编个控制其它程序的按钮的程序，当中用到了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

未解决。
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设置快捷键。

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

两个程序

唉……终于想出来了！
其实昨天就试过改成 SendMessage thWnd, BM_CLICK, 0&, 0&
不过还是没成功。今天看到贴子，再次检查代码的时候，才恍然想起没有为BM_CLICK
赋值。在添加了Const BM_CLICK = &HF5 这一句之后，问题迎刃而解。

多谢各位的关注！