VB6 Webbrowser控件中新窗体对应的拦截

最新推荐文章于 2023-10-11 15:25:46 发布

原创最新推荐文章于 2023-10-11 15:25:46 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#webbrowser #vb #string #web #object #url

VB6 专栏收录该内容

7 篇文章

订阅专栏

本文提供了一个使用VBA（Visual Basic for Applications）拦截浏览器新窗口打开的示例代码。通过设置事件，该代码能够捕获并处理WebBrowser控件尝试打开的新窗口，实现对新窗口URL的拦截。

如下代码:

Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
    WebBrowser1.Navigate App.Path & "/login.htm"
'      WebBrowser1.Navigate2 "http://www.microsoft.com/"
End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
' Set ppDisp = WebBrowser2.Application
End Sub

Private Sub Web_V1_NewWindow(ByVal URL As String, _
                            ByVal Flags As Long, _
                            ByVal TargetFrameName As String, _
                            PostData As Variant, _
                            ByVal Headers As String, _
                            Processed As Boolean)
Processed = True
WebBrowser2.Navigate URL
End Sub

以上方法，可以将代码拦截新窗体地址！