已经编好一个exe文件A(Text1用来输入数据，Text2用来输出数据)。我想编一个测试程序B（Command1是“测试”按钮），点击B中“测试”按钮→调用打开A→将测试数据传给A→A的运行结果返回到B。

我的方法是：
第一步：在B中用ShellExecute函数将数据传到A中
第二步：在B中用FindWindow去找句柄。（这一步失败。情况1：若我在运行B之前就打开了A，那么我运行B后获取的句柄是之前已经打开的A程序的句柄。情况2：若我只打开B程序而没有打开A，则句柄为0，即找不到句柄）

所以我的遇到的问题是，findwindow只能找到之前已经打开的程序的句柄，但我要的是用ShellExecute新打开一个程序，然后找到句柄。
已经想了快一礼拜了。快疯了。求指点，谢谢！！

代码如下：
Private Sub Command4_Click()
Dim m, r, t As Long
Dim a As String * 1024
r = ShellExecute(0, "open", App.Path & "\" & Label1.Caption & ".exe", " 899", "0", 1)
m = FindWindow("ThunderRT6FormDC", "Form1")
End Sub

返回值是42

谢谢谢谢！真是太感谢了。我让程序等待一段时间再运行就可以了。

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Dim Savetime As Double
Savetime = timeGetTime ’记下开始时的时间
While timeGetTime < Savetime + 3000  ’循环等待
    DoEvents  ’转让控制权，以便让操作系统处理其它的事件。
Wend