一个能自动关掉Msgbox提示框的代码，但还是无法屏蔽http://mark.yalaso.net/mark_post1.asp提示框 [问题点数：20分，结帖人imur]
一个能自动关掉Msgbox提示框的代码，但还是无法屏蔽http://mark.yalaso.net/mark_post1.asp提示框 [问题点数：20分，结帖人imur]
收藏
|
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 填写后，按“提交资料”，则会返回类似“你的信息已经发表成功，稍后会发表在跳蚤市场”的信息框。 请教！ |
官方推荐 |
|
值得学习...
|
|
这个要用脚本，最好用JAVA写
|
|
为什么不用vb的妹妹呢？ ————————vbscript
|
|
楼上的大侠，能不能说详细点？我不会哦！
请教请教！ |
|
按“提交资料”，则会返回类似“你的信息已经发表成功，稍后会发表在跳蚤市场”的信息框。
----------------------------------------------------------------- 你到底是想关闭对话框，还是想提示对话框啊？ |
|
高人来了！我想关闭那个标题为"Microsoft Internet Explorer"，显示内容为“你的信息已经发表成功，稍后会发表在跳蚤市场”,有个黄色标志的那个框框啊！
那是网站返回的提示框. 怎么办？ |
|
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 |
|
不好意思，上面的写错了，应该是
dim lwnd as long lwnd = FindWindow(vbNullString, "Microsoft Internet Explorer") If lwnd > 0 Then Call SendMessage(lwnd, WM_CLOSE, 0, ByVal 0&) End If |
|
Private Sub Form_Load()
'注意：本程序要变为exe文件才起作用－－我也不知为什么???? End Sub 为什么要变为exe文件才起作用????? |
本帖子已过去太久远了，不再提供回复功能。
关闭