主题：关于执行外部程序

看看是否有用，请参考：

函数代码：  函数名为test_win
'本函数的功能是,测试指定的程序/窗口标题,是否存在
'可以终止指定的窗口
'如果存在,返回True,不存在返回 False
'第三个参数可有可无,如果有且为True,就会查找该窗口,如果有就关闭; 如果没有或者有且为False,只查不关闭.

Dim proc_name As String = args(0)  '运行程序的文件名,不函扩展
Dim proc_title As String = args(1) '窗口标题

Dim proc_kill As Boolean  '获得是否关闭此窗口

If args.length =3 Then  '参数可以只有两个
    proc_kill  = args(2)
Else
    proc_kill = False
End If

Dim test_win As Boolean = False   '返回值 ,默认为False

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
    If (proc_name = p.ProcessName AndAlso p.MainWindowTitle.contains( proc_title ) )
        'msgbox(p.MainWindowTitle)
        test_win = True
        'output.Show(p.processname & "->" & p.mainwindowtitle)
        If proc_kill Then
            p.kill  '杀掉查找到的进程
        End If
    End If
Next

Return test_win  '返回查找的状态,True为查找到了,False为没有找到