VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1703|回复: 2

[求助] VB webbrowser版本低

[复制链接]
发表于 2018-1-16 23:18:15 | 显示全部楼层 |阅读模式
大白们,帮写下指定WebBrowser内核
发表于 2018-1-18 19:46:10 | 显示全部楼层
建议放弃WebBrowser内核,XP支持的最高是IE8,WIN7-10 最高的IE是11,以后IE将不再更新,WIN10系统以后专注开发Edge浏览器,VB调用浏览器的前途十分黯淡,自己写浏览器的核心难度相当于写个操作系统,浏览器的内核也就那么几款,没有看到过VB调用的例子,只有学习写浏览器插件才有前途。
VB直接控制IE浏览器的语句例子:新建浏览器对象(不使用已经打开的浏览器),访问百度
Set objIE = CreateObject("InternetExplorer.Application")'如果装有360,请解除默认
objIE .navigate "www.baidu.com"

如果要用已经打开的浏览器访问百度,先找到浏览器对象,然后调用(这个方法可以获得当前IE正在浏览的网页及所有操作)
Set objShell = CreateObject("Shell.Application") '建立外壳对象
Set objShellWindows = objShell.windows '所有窗口对象
For Each objwindow In objShellWindows '查找IE对象
    If InStr(1, objwindow.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then'如果是浏览器
        objwindow.navigate "www.baidu.com"
        Exit For
    End If
Next

如果引用了WebBrowser,可以设置WebBrowser=objIE ,即可获得事件。

还有一种是浏览器多个标签,比较麻烦,无法用建立CreateObject或者获得getObject对象的语句去获得当前浏览器已经打开的网页窗口,需要自己用API注册一个浏览器对象。总之,VB搞浏览器没有前途。

回复 支持 反对

使用道具 举报

发表于 2018-3-28 00:53:29 | 显示全部楼层
可通过注册表修改来强制WebBrowser内核版本,传送门https://www.cnblogs.com/liuzhend ... /03/21/2410107.html
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-10-15 19:38

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表