一个能自动关掉Msgbox提示框的代码,但还是无法屏蔽http://mark.yalaso.net/mark_post1.asp提示框
imur 2003-08-30 09:35:41 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 Sub
Private Sub Form_Load()
'注意:本程序要变为exe文件才起作用--我也不知为什么????
End Sub
Private Sub Timer1_Timer()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, MsgTitle)
Call SendMessage(hWnd, WM_CLOSE, 0, ByVal 0&)
End Sub
本代码可以在做成exe文件时自动关闭那个msgbox框,但还是无法做到在
http://mark.yalaso.net/mark_post1.asp
填写后,按“提交资料”,则会返回类似“你的信息已经发表成功,稍后会发表在跳蚤市场”的信息框。
请教!