一个能自动关掉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
填写后,按“提交资料”,则会返回类似“你的信息已经发表成功,稍后会发表在跳蚤市场”的信息框。

请教!
...全文
143 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
itcoco 2004-01-08
  • 打赏
  • 举报
回复
Private Sub Form_Load()
'注意:本程序要变为exe文件才起作用--我也不知为什么????
End Sub

为什么要变为exe文件才起作用?????
imur 2003-09-01
  • 打赏
  • 举报
回复
高人来了!我想关闭那个标题为"Microsoft Internet Explorer",显示内容为“你的信息已经发表成功,稍后会发表在跳蚤市场”,有个黄色标志的那个框框啊!

那是网站返回的提示框.

怎么办?
yunfeng007 2003-09-01
  • 打赏
  • 举报
回复
按“提交资料”,则会返回类似“你的信息已经发表成功,稍后会发表在跳蚤市场”的信息框。
-----------------------------------------------------------------
你到底是想关闭对话框,还是想提示对话框啊?
imur 2003-09-01
  • 打赏
  • 举报
回复
楼上的大侠,能不能说详细点?我不会哦!
请教请教!
yunfeng007 2003-09-01
  • 打赏
  • 举报
回复
不好意思,上面的写错了,应该是
dim lwnd as long
lwnd = FindWindow(vbNullString, "Microsoft Internet Explorer")
If lwnd > 0 Then
Call SendMessage(lwnd, WM_CLOSE, 0, ByVal 0&)
End If
yunfeng007 2003-09-01
  • 打赏
  • 举报
回复
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
foreverlove6 2003-09-01
  • 打赏
  • 举报
回复
为什么不用vb的妹妹呢? ————————vbscript
fankun 2003-08-31
  • 打赏
  • 举报
回复
这个要用脚本,最好用JAVA写
buffaloes 2003-08-31
  • 打赏
  • 举报
回复
值得学习...
资源下载链接为: https://pan.quark.cn/s/1bfadf00ae14 松下电工数字压力传感器用户手册详细介绍了DP-100系列数字压力传感器,涵盖其技术参数、操作方法及适用场景等,适用于各类需要精准压力测量的工业环境。 双屏显示:主屏与输出动作同步,可同时显示当前值和基准值,便于实时监控与调整。显示屏为12段字母数字显示,数字清晰易读。 三色指示:屏幕颜色随传感器状态变化(红、绿、橙),便于快速判断工作状态。 紧凑结构:尺寸仅□30mm,适合空间狭窄的安装环境。 多种操作模式:提供RUN模式(日常操作)、菜单设定模式(深入设置如输出模式切换)及PRO模式(高级功能如应差调整、复制设定)。 安全认证:DP-101(A)/102(A)型号通过特定认证,确保产品安全可靠。 复制功能:可通过数据通信将主传感器设定内容复制到其他传感器,减少人工设定错误,节省时间。 高性能传感:具备高精度,分辨率1/2,000,反应时间2.5ms(最长5,000ms可调),温度特性±0.5%F.S.,重复精度±0.1%F.S. 电子元件吸附检测:监测吸盘是否成功吸附电子元件。 总压力监测:测量管道或容器内的压力水平。 空气泄漏检测:通过压力变化检测泄漏情况。 DP-101□:适用于低压环境(-100kPa至100kPa)。 DP-102□:适用于高压环境(0kPa至1MPa)。 订购时需根据实际需求选择合适型号,考虑传感器的适用范围和工作条件。手册提供详细订购流程及注意事项,包括相关认证信息(如韩国S标志)。 复制功能:通过数据通信将主传感器设定复制到其他传感器,支持多种设定模式,避免设定错误,节省时间。 操作模式:RUN模式用于日常监控,菜单设定模式用于深入设置,PRO模式提供高级功能。 使用前需仔细阅读手册,了解各功能使用方法。遵循安全指南,正确安装和使用传感器,避免损坏。对于

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧