VB.NET让webbrowser控件中JS脚本错误最新方法(2013-09-16)

前端之家收集整理的这篇文章主要介绍了VB.NET让webbrowser控件中JS脚本错误最新方法(2013-09-16)前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

最近也是在项目中遇到了webbrowser控件中想关闭JS脚本错误窗口的问题,所以经过多次测试,终于用一段高效实用的代码完美解决webbrowser控件中JS脚本错误窗口关闭的问题。


通过创建一个子线程,然后在子线程中不断的去查找各类webbrowser的弹出窗口(alert、JS错误窗口),然后通过sendmessage函数关闭窗口实现该功能


webbrowser 脚本错误、webbrowser控件脚本错误代码

VB.NET让webbrowser控件不显示JS脚本错误最新办法,完美解决


以下代码可以解决webbrowser控件中的JS脚本错误窗口、alert窗口等各种浏览器弹出的窗口,能自动关闭

VB.NET代码如下:


Declare Auto Function SendMessage Lib "user32.dll" (ByVal hwnd As IntPtr,ByVal wMsg As Integer,_
                ByVal wparam As Integer,ByVal lparam As IntPtr) As IntPtr

Declare Auto Function FindWindowEx Lib "user32.dll" (ByVal parentHandle As IntPtr,ByVal childAfter As IntPtr,_
                 ByVal lpszClass As String,ByVal lpszWindow As String) As IntPtr

Public Const WM_CLOSE = &H10

Private Sub threadCheckError()
    Dim hwnd As IntPtr
    While 1
        hwnd = FindWindowEx(0,"Internet Explorer_TridentDlgFrame","Internet Explorer 脚本错误")
        If hwnd.ToInt64 > 0 Then
            SendMessage(hwnd,WM_CLOSE,0)
        End If

        hwnd = FindWindowEx(0,"#32770","来自网页的消息")
        If hwnd.ToInt64 > 0 Then
            SendMessage(hwnd,0)
        End If

        System.Threading.Thread.Sleep(100)
        My.Application.DoEvents()
    End While
End Sub

Dim threadchk As New Threading.Thread(AddressOf threadCheckError)
Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
    WebBrowser1.ScriptErroRSSuppressed = False
    threadchk.Start()
End sub
原文链接:https://www.f2er.com/vb/258512.html

猜你在找的VB相关文章