如何指定浏览器

[回马枪]

假如我要实例某个浏览器
指定 Google Chrome 或者 360浏览器
如何做
比如
CHromeapp = Createobject("Chrome.Application")
Or
CHromeapp = CreateObject("ChromeTab.ChromeFrame")

估计不行
微软不支持

伪代码如下

strURL = "http://www.google.com"

*!*    Open Internet Explorer and Display the Route
IEapp = Createobject('InternetExplorer.Application')
With IEapp
    .Visible = .T.
    .Navigate(strURL)
Endwith
Do While IEapp.ReadyState <> 4
    DoEvents
Enddo


*!*    Open Google Chrome Web Browser and Display the Route
CHromeapp = Createobject("Chrome.Application")
*!*    Or
*!*    CHromeapp = CreateObject("ChromeTab.ChromeFrame")
With CHromeapp
    .Visible = .T.
    .Navigate(strURL)
Endwith
Do While CHromeapp.ReadyState <> 4
    DoEvents
Enddo

Wait Window "等待中......"

ox.Quit()

谢谢
.

[功克]

好像是不行的

[lygcw9602]

夜老师，这个问题现在清楚了吧