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

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

    Private SubButton1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
       Call run_timer()
    EndSub
    SubClose_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 InternetExplorer")  '其它浏览器没看，firefox的提示不一样
       Try
              If hwnd > 0Then
               PostMessage(hwnd, WM_COMMAND, 1, 0) '可以关闭冲浪提示
               PostMessage(hwnd, WM_QUIT, 0,0)    '关闭带是否得选项
               PostMessage(hwnd, WM_CLOSE, 0,0)   '关闭确定提示框
           EndIf       

 Catch ex As Exception

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