用SendMessage向另一窗体发送按扭事件?

Question

按钮时"Button"类
FindWindow("Button", "按牛内容")

Answer 1

得到窗体中command句柄，然后
sendmessage一个keydown事件及keyup事件，lparam为32

Answer 2

单击=WM_LBUTTONDOWN、WM_LBUTTONUPPrivate Sub Command1_Click()
Dim lret As Long
lret = FindWindow("ThunderFormDC", "form1")
SendMessage lret, WM_LBUTTONDOWN, 0, 1
SendMessage lret, WM_LBUTTONUP, 0, 1
End Sub

Answer 3

坐标信息应该传值Private Sub Command1_Click()
Dim lret As Long
lret = FindWindow("ThunderFormDC", "form1")
SendMessage lret, WM_LBUTTONDOWN, 0, ByVal 1&
SendMessage lret, WM_LBUTTONUP, 0, ByVal 1&
End Sub