如何指定浏览器

回马枪 回马枪 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
假如我要实例某个浏览器
指定 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()


谢谢
.
...全文

相关推荐

评论 2
收藏 已收藏
分享
返回顶部
回马枪
VFP 2,750 成员 29,142 内容