vb2008关闭消息框终于实现了，可以…

感谢不知名的网友提示：

.net 和vb不一样。 窗口句柄之类的要声明称interger 32位的才行 如果在。net中 声明成long 那就执行不成功 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-----------------------------------------------------------------------------

'以下是我的测试程序，form1窗体里放了个button1 ,点击button1弹出消息，定时程序，自动关闭消息框。

'接下来关闭网页弹出消息应该就没问题了。
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call run_timer()
        MsgBox("test")
    End Sub
    Sub Close_win()
        Const WM_CLOSE = &H10
        Dim hwnd As Long
        hwnd = FindWindow("#32770", "WindowsApplication1") ‘如果不知道窗体类,#32770，可以’用vbNullString 代替 ，可以用vs2008 的SPy++来查找类,"WindowsApplication1"是消息框的名称，自己灵活处理。

        If hwnd > 0 Then
            PostMessage(hwnd, WM_CLOSE, 0&, 0&)
        End If
    End Sub
    Sub run_timer()
        Dim mytimer As Timer = New Timer
        mytimer.Interval = 1000
        mytimer.Start()
        AddHandler mytimer.Tick, AddressOf Close_win
    End Sub
End Class