如何给不同得窗口发送信息，在线等

Question

我现在有一个exe文件，当运行后他得界面窗口上有一个text控件，我想用下面得程序
判断他是否打开，如果打开，则直接发送一个字符给该窗口上得text控件，这个问题能不能做，如何做
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Command1_Click()
Dim MyWin As Form2
Dim JB As Long
Set MyWin = New Form2
JB = FindWindow(vbNullString, "aa")If JB = 0 Then
  '指定标题窗体未打开
  MyWin.Caption = "aa"
  MyWin.Show vbModeless, Me
Else
  '窗体已经打开
  '发送字符给窗体上得text控件End IfEnd Sub

Answer 1

可以做
不过要获得子窗口句柄比较麻烦
可以用GetWindow(用这个需要递归)，也可以用EnumChildWindows(用这个需要回调)
你自己看着办吧
得到子窗口句柄后，发送消息也可以，或者直接SetWindowText也可以

Answer 2

得到窗口句柄，然后用API中的sendmessage