一个能自动关掉Msgbox提示框的代码，但还是无法屏蔽http://mark.yalaso.net/mark_post1.asp提示框

Question

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private Const MsgTitle As String = "Test Message"
Private Sub Command1_Click()
Dim nRet As Long
Timer1.Interval = 3000
Timer1.Enabled = True
nRet = MsgBox("如果你不回应的话，3秒后此MsgBox会自动关闭", 64, MsgTitle)
Timer1.Enabled = False
End SubPrivate Sub Form_Load()
'注意：本程序要变为exe文件才起作用－－我也不知为什么????
End SubPrivate Sub Timer1_Timer()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, MsgTitle)
Call SendMessage(hWnd, WM_CLOSE, 0, ByVal 0&)End Sub
本代码可以在做成exe文件时自动关闭那个msgbox框，但还是无法做到在
      http://.yalaso.net/_post1.asp
填写后，按“提交资料”，则会返回类似“你的信息已经发表成功，稍后会发表在跳蚤市场”的信息框。请教！

Answer 1

为什么不用vb的妹妹呢？  ————————vbscript

Answer 2

高人来了！我想关闭那个标题为"Microsoft Internet Explorer"，显示内容为“你的信息已经发表成功，稍后会发表在跳蚤市场”,有个黄色标志的那个框框啊！那是网站返回的提示框.怎么办？

Answer 3

dim lwnd as long
lwnd=lwnd = FindWindow(vbNullString, "Microsoft Internet Explorer")
If lwnd > 0 Then
        Call SendMessage(lwnd, WM_CLOSE, 0, ByVal 0&)
End If

Answer 4

不好意思，上面的写错了，应该是
dim lwnd as long
lwnd = FindWindow(vbNullString, "Microsoft Internet Explorer")
If lwnd > 0 Then
        Call SendMessage(lwnd, WM_CLOSE, 0, ByVal 0&)
End If

Answer 5

Private Sub Form_Load()
'注意：本程序要变为exe文件才起作用－－我也不知为什么????
End Sub为什么要变为exe文件才起作用?????