测试IE8 关闭提示对话框成功

  Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call run_timer()
    End Sub
    Sub Close_win()
        Const WM_CLOSE = &H10  'WM_CLOSE 关闭
        Const WM_COMMAND = &H111  'WM_COMMAND 的值 ，关闭确定或取消的对话框
        Const WM_QUIT = &H12    '用于退出有是否的提示框
        Dim hwnd As Long
        hwnd = FindWindow("#32770", "Windows Internet Explorer")  '其它浏览器没看，firefox的提示不一样
        Try
               If hwnd > 0 Then
                PostMessage(hwnd, WM_COMMAND, 1, 0)  '可以关闭冲浪提示
                PostMessage(hwnd, WM_QUIT, 0, 0)     '关闭带是否得选项
                PostMessage(hwnd, WM_CLOSE, 0, 0)   '关闭确定提示框
            End If       

 Catch ex As Exception

msgbox("程序遇到错误,错误代码："+err.number)
        End Try      
    End Sub
    Sub run_timer()
        Dim mytimer As Timer = New Timer
        mytimer.Interval = 1000
        mytimer.Start()
        AddHandler mytimer.Tick, AddressOf Close_win
    End Sub