vb webbrowser 点击链接怎么打开默认浏览器

Posted 2023-05-06

点击webbrowser里的链接后,我想让他在默认浏览器里打开
但是,他是用IE打开的(我设置的默认浏览器不是IE)
没什么方式啊
就是webbrowser加载一个网页,点击网页里的链接,打开的是IE,不是我设置的默认浏览器
我的要求是,点击链接,不让他用IE打开,不是在VB程序里打开,而是设置的默认浏览器打开
为什么就是不理解呢- -

参考技术A Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
WebBrowser1.Document.body.innerhtml = WebBrowser1.Document.body.innerHTML + "<script>window.onclick=function()if(event.type=='a')event.returnValue=event.srcElement.onclick();if(event.returnValue)host.innerHTML=event.srcElement.href;</script>"
End Sub
添加Timer1时钟
Private Sub Timer1_Timer()
If WebBrowser1.Document.getElementById("host").innerHTML <> "" Then
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & WebBrowser1.Document.getElementById("host").innerText
'或者直接用默认浏览器打开，上面为用IE打开
ShellExecute hWnd, "open", "网址", vbNullString, vbNullString, 1
End If
End Sub 参考技术B 你用什么方式然他用ie打开?
http://zhidao.baidu.com/question/34107777.html
看看这个本回答被提问者采纳

vb的WebBrowser控件怎样避免浏览器脚本错误?

用vb的WebBrowser控件打开一个网页，经常出现脚本错误（如图）。而直接在浏览器中输入网址不会有错误。怎样避免用WebBrowser控件打开网页时弹出的脚本错误提示呢？
要通过vb编程代码实现

启动IE，执行“工具→Internet选项”菜单，选择“高级”选项卡，选中“禁止脚本调试”复选框，最后单击“确定”按钮即可。追问

要通过vb编程代码实现

追答

Private Sub Command1_Click()
'首先引用Registry Access Functions
Dim mREG As New REGTool5.Registry
Dim ret As Boolean
ret = mREG.UpdateKey(HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main ", "Disable Script Debugger ", "yes ")
ret = mREG.UpdateKey(HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main ", "DisableScriptDebuggerIE ", "yes ")
End Sub

追问

如有时间能讲解下吗？

追答

就是修改注册表HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main下的
"Disable Script Debugger "为 "yes "
"DisableScriptDebuggerIE "为 "yes＂
相当于我一开始说的选中“禁止脚本调试”复选框

追问

这样修改注册表会被360等软件查出吗？

追答

你试下吧，我没装360

参考技术A 窗体里加入下面代码即可：

Private Sub WebBrowser1_DownloadBegin()
WebBrowser1.Silent = True
End Sub
Private Sub WebBrowser1_DownloadComplete()
WebBrowser1.Silent = True
End Sub追问

如有时间能讲解下原理吗？

追答

Silent是WebBrowser控件的一个属性，用于屏蔽网页错误弹出对话框。上面代码就是在网页开始加载和加载结束的过程中屏蔽页面的错误对话框。

追问

1.需要不需要把Private Sub WebBrowser1_DownloadBegin()改成：Private Sub WebBrowser1_DocumentBegin(ByVal pDisp As Object, url As Variant)

2.需要不需要把Private Sub WebBrowser1_DownloadComplete()改成：Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)

追答

不需要的，按我写的那样就可以，我自己也在用。

追问

因为我的程序中已经有了Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)的代码，我把你代码中WebBrowser1.Silent = True这一行直接加入Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)和End Sub 之间不行吗？

追答

那过程名不一样的哦，我那个是WebBrowser1_DownloadComplete，你的是WebBrowser1_DocumentComplete。

本回答被提问者采纳 参考技术B IE设置或网页本身有错