用vb编写的网络浏览器如何是打开的新网址总是在自己的浏览器中打开

发布网友 发布时间：2024-10-24 11:27

我来回答

共4个回答

热心网友 时间：2024-11-10 06:19

这问题 我研究很久了

只有 外国一个代码 做到了 不过我没明白怎么做的 很复杂 没看懂

中文资料 我没见过一个做到的

关注这里

热心网友 时间：2024-11-10 06:22

假定窗体的名称为Form1，窗体上有浏览器控件为WebBrowser1,且有一个状态栏StatusBar1，编写代码：
Sub LoadNewForm()
Dim frmD As Form1
Set frmD = New Form1
frmD.Caption = "StatusBar1.Panels(1).Text"
frmD.WebBrowser1.Navigate StatusBar1.Panels(1).Text
frmD.Show
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
StatusBar1.Panels(1).Text = Text
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
LoadNewForm
Cancel = True
End Sub
(vb6代码）

热心网友 时间：2024-11-10 06:19

关注

热心网友 时间：2024-11-10 06:23

这里涉及到一个问题，就是当页面中<a href="" target=_blank>的时候，如果你强制让页面在本页打开，会产生一些浏览问题。

自己写的浏览器真正要实现这样的功能，建议处理NewWindow、BeforeNavigate事件，NewWindow事件得到当前OPEN的URL，BeforeNavigate事件可以得到WIN传入的URL，然后处理下就可以了，可以用于类似傲游这样的本页面多开似的。

更改HKEY_CLASSES_ROOT\HTTP\shell\open\ddeexec\Application下系统默认浏览器，以便正确得到WIN的传参URL。