测试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