对不起，我的问题没清楚。我的想法是参数化 browser， 参数化网页地址
IE这段运行可以。但是QTP总是打不开FireFox.

Function SetupBrowser(Browser)
Dim MyBrowser
StartURL = "http://localhost/ekp/servlet/ekp/login?getnews=Y"
‘ I want to parameter this first URL later on.

IF Browser ="IE" Then
Set MyBrowser = CreateObject("InternetExplorer.Application")
MyBrowser.Visible = True
While MyBrowser.busy
Wend
' webutil.DeleteCookies
MyBrowser.Navigate StartURL
End If

If Browser ="FireFox" Then
Set MyBrowser = CreateObject("QuickTest.Application")
MyBrowser.Test.Settings.Launchers("Web").Active = True
MyBrowser.Test.Settings.Launchers("Web").Browser = "FF20"
MyBrowser.Test.Settings.Launchers("Web").Address = StartURL
'MyBrowser.Test.Settings.Launchers("Web").CloseOnExit = True
End If

End Function

SetupBrowser(IE);
RunAction("XXX1", oneIteration)
RunAction("XXX2", oneIteration)
….

SetupBrowser(FireFox);
RunAction("XXX1", oneIteration)
RunAction("XXX2", oneIteration)


就是动态确定test script运行在哪个browser上. Anyone can help me? Thankssdlkfj6

yes, this is wrong.

可是假如是FIREFOX的话，怎么让它也做这样的动作呢？

Set MyBrowser = CreateObject("InternetExplorer.Application")// 怎么改成firefox呢？
MyBrowser.Visible = True
While MyBrowser.busy
Wend
' webutil.DeleteCookies
MyBrowser.Navigate StartURL

Firefox不一定有类似IE的CreateObject("InternetExplorer.Application")这样的接口。
不过你可以简单点的，直接执行Firefox命令来启动Firefox

Set objShell = CreateObject("Wscript.Shell")
myrun = objShell.Run("firefox")

然后用QTP object spy查看这个Firefox窗口对象，看其有什么类似IE的Navigate 的方法了。

谢谢。但是用这种方法，如何测试结束后关掉浏览器呢

sdlkfj6 谢谢