QTP/UFT 第三方应用调用

//cmd
SystemUtil.Run  "cmd.exe"
'SystemUtil.Run "cmd.exe","","C:\WINDOWS\system32","open"
Window (  "object class:=ConsoleWindowClass"  ).Type  "ping www.baidu.com "
Window (  "object class:=ConsoleWindowClass"  ).Type micreturn
wait ( 1 )
txt  = Window (  "object class:=ConsoleWindowClass"  ).GetVisibleText ()
print txt
systemutil.CloseProcessByName ( "cmd.exe" )

//iexplore.exe
wait ( 3 )
SystemUtil.Run  "iexplore.exe", "www.baidu.com"
systemutil.CloseProcessByName ( "iexplore.exe" )