51Testing软件测试论坛

标题: qtp 用IE和FireFox来测试的code [打印本页]

---

作者: vaguely    时间: 2007-9-5 15:16
标题: qtp 用IE和FireFox来测试的code
这是经过大家的帮助，写的一段代码。共享出来，也请大家来优化它。谢谢


Public Function SetupBrowser(Browser)
   StartURL = "http://localhost/*****"   
    IF Browser ="IE" Then
                Set MyBrowser = CreateObject("InternetExplorer.Application")
                MyBrowser.Visible = True
                While MyBrowser.busy
                Wend
                MyBrowser.Navigate StartURL
   End If

   If Browser ="FireFox" Then
           SystemUtil.Run "firefox.exe", StartURL
   End If
   
End Function


Public Function CloseBrowser(Browser)
     IF Browser ="IE" Then
        MyBrowser.Quit
    End If

   If Browser ="FireFox" Then
           systemutil.closeprocessbyname "firefox.exe"
   End If

End Function

---

作者: walker1020    时间: 2007-9-5 23:59
非常感谢楼主的共享！

---

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)

Powered by Discuz! X3.2