WebBrowser 如何屏蔽弹窗，但是保留来路呢？

2015-07-08 09:04:22 277 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

RTX 5090配Ubuntu 24.04踩坑记：手把手搞定OpenVLA-OFT环境（附版本避坑清单）本文详细记录了在RTX 5090显卡和Ubuntu 24.04系统上部署OpenVLA-OFT环境的完整过程，包括驱动安装、CUDA配置、PyTorch版本选择等关键步骤。提供了经过验证的版本组合清单和常见错误解决方案，帮助开发者高效搭建AI开发环境。阅读详情

   

 Private Sub WebBrowser1_NewWindow(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow

        '取消IE窗口弹出

        e.Cancel = True

        Dim NewUrl As String

        NewUrl = CType(sender, Windows.Forms.WebBrowser).Document.ActiveElement.GetAttribute("href")

        Me.WebBrowser1.Url = New Uri(NewUrl)

    End Sub





 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

            WebBrowser1.ScriptErrorsSuppressed = True

            AddHandler DirectCast(WebBrowser1.ActiveXInstance, SHDocVw.WebBrowser).NewWindow2, AddressOf NewWindow1



    End Sub



    Private Sub NewWindow1(ByRef ppDisp As Object, ByRef Cancel As Boolean)

        Dim nf As New Form1

        Dim xweb As New SHDocVw.WebBrowser

        nf.WebBrowser1.Navigate("about:blank")

        xweb = nf.WebBrowser1.ActiveXInstance

        ppDisp = xweb

        nf.Show()

        ' Cancel = True

    End Sub