1461
社区成员
- 全部
VB如何让程序自动关闭网页弹出的对话框
网页是这样的：
我想让程序自动点击［确定］按钮关闭这个对话框。
API函数 FindWindow(0&, “JavaScript 提醒”) 能找到弹出的对话框句柄，但从网上找了好多方法－－模拟鼠标或发送回车都试过。尝试关闭这个对话框都以失败告终。
肯请高手们帮助解决下！希望能给出具体代码！
<html>
<head>
<script language="JavaScript">
alert("操作成功！")
</script>
</head>
<body>
<p>欢迎您的到来！谢谢您！</p>
</body>
</html>我想让程序自动点击［确定］按钮关闭这个对话框。
API函数 FindWindow(0&, “JavaScript 提醒”) 能找到弹出的对话框句柄，但从网上找了好多方法－－模拟鼠标或发送回车都试过。尝试关闭这个对话框都以失败告终。
肯请高手们帮助解决下！希望能给出具体代码！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
taoguangye 2014-08-19
用我这小工具,效果会让你惊喜!
http://download.csdn.net/detail/taoguangye/7780643
wjf598 2014-08-19
谢谢各位的热心帮助。
同样的代码hwnd1有时能获取到句柄，有时也是0，弄不是很明白，但用计时器每隔1秒循环后也能达到目的。
现在又遇到一个问题：
打开一个网页、填写表单、并提交为什么总出错
http://bbs.csdn.net/topics/390864740
of123 2014-08-18
有些网站弹出窗口，是隐藏了按钮句柄的，防止软件控制自动处理。
Carlven2012 2014-08-18
hwnd1 = FindWindow(vbNullString, "JavaScript 提醒")
PostMessage hwnd1, WM_KEYDOWN, vbKeyReturn, 0 ‘发送回车键
已经测试通过（win7 x64 + vb6 + 枫树极速浏览器）
wjf598 2014-08-17
主要问题是找不到子窗口－按钮的句柄，总是返回0，
这是我的代码请帮我看一看：谢谢！
‘.....声明
’执行语句：
hwnd1=FindWindow(0&,"JavaScript 提醒"） '能得到弹出对话框的的句柄
hwnd2=FindWindowEx(hwnd1,0&,0&,"确定") ’就条语句总是返回0
'下面的代码应该没问题吧：
SendMessage hwnd2,WM_LBUTTONDOWN,ByVal 0&,ByVal 0&
SendMessage hwnd2,WM_LBUTTONUP,ByVal 0&,ByVal 0&
一如既往哈 2014-08-17
找到窗口，搜索“确定”句柄，移动鼠标到“确定”窗口的位置，然后模拟鼠标点击，这应该可以的。
要不把你的代码发上来瞧瞧......
wjf598 2014-08-17
是可以关闭，但我想要的是点击［确定］按钮来关闭这个弹出窗口，要不发送回车消息也行，怎么消息就送不过去？！
blownewbee 2014-08-17
sendmessage给对话框，发送wm_close应该可以
taoguangye 2014-08-17
直接JS重写alert函数,让弹窗永远都出不来
一如既往哈 2014-08-17
我测试时hwnd2不为0哦
wjf598 2014-08-17
开始的时候就是这样的，网上介绍的例子是模拟按计算器的1键，是可以找到1键的句柄的，
但对弹出窗口提示时只能得到hwnd1的值，hwnd2总是0。不行，后我才改的代码！
现在主要的问题就是如何获取这个网页弹出窗口的“确定”按钮的句柄了。
现在主要的问题就是如何获取这个网页弹出窗口的“确定”按钮的句柄了。一如既往哈 2014-08-17
hwnd2=FindWindowEx(hwnd1,0&,0&,"确定")
改成下面的试一试：
hWnd2 = FindWindowEx(hWnd1, 0&, "button", vbNullString)
vb6 webbrowser 禁示弹出对话框 Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Dim oDoc1 As HTMLDocument Set oDoc1 = pDisp.Document oDoc1.parentWindow.execScript "function alert()...
vb2008 webbrowser 如何禁止 脚本错误提示 及弹出对话框 1.在form 初始化时将webbrowser控件的ScriptErrorsSuppressed = True（false调试模式，允许脚本错误提示），也可以在其他合适的事件... ' 忽略错误并禁止弹出对话框 e.Handled = True End Sub 3.在webbrowser控
［Excel VBA］如何自动关闭MsgBox？ 本文译至：... ...经过指定时间后自动关闭的MsgBox，可以使用Windows Scripting Host（WSH）的Popup方法。 参数可以指定，显示消息，到关闭时的执行时间（秒），消息框的标题，图标或按钮的种类
自动弹出提示对话框（附带实例和源码） 1：动画方式弹出，就像MSN的提示框 2：漂亮,详细见配图 3：还可以再在开一个更加详细的内容网页 4：自动关闭，无需手工确认那个ok 5：示例包括C#和VB两个版本，popUp的源文件在EeekSoft.Web.PopupWin文件夹中 6：用...
Vb定时提醒软件-每隔指定时间弹出提示发出提示音.rar 为保护眼睛而专业编写的Vb定时提醒软件-每隔指定时间弹出提示发出提示音，写本软件的初衷是一个护眼软件，当面对电脑至设定的小时后，即会触发程序弹出提示，或发出警报音，可自定义休息时间结束时(工作时的声音提示...
VB获得弹出对话框的内容后关闭它 我使用VB自动填入表单后点击提交，系统弹出一个对话框，我需要获得这个对话框的提示内容后决定下一步的操作。但是新的IE对话框弹出后其他我的程序都停止运行了。不知道怎么操作？求高手指点
怎样自动关闭其它程序弹出的对话框？ 需求：检查桌面上有无弹出的对话框，如果一个对话框已经弹出若干时间（比如20秒）而没有关闭，就把它关掉。 使用vbscript或vb.net，也可以调用windows API。 我的思路是：遍历桌面上所有的对话框，把句柄和时间保存...
VB6.0编写的管理系统，专业而完整，附源代码.rar 一套专业的VB专业管理系统-包含源代码，使用说明： 1.软件所涉及的数据库分为四张表。 lesson kecheng zhuanye ...10.单击“软件简介”弹出本窗体，单击“关于我们”弹出和程序相关信息的窗体。
vb安装向导已经在该计算机上运行,制作VB安装程序问答（一） 制作VB安装程序问答(一)制作安装程序往往是程序设计的最后一步，同时也是重要的一步，因为运行安装程序往往是用户的第一个操作。有不少读者询问这方面的问题，《答疑解惑》将分两期介绍一些制作Visual Basic安装程序...
如何在程序里使用代码关闭由MessageBox()弹出的对话框？ 方法：用FindWindow找到窗口的hWnd，（可以通过窗口类名或标题）...Windows API 提供了函数FindWindow，可以让应用程序在启动时检查自己或其他应用程序是否已经存在。该函数在Delphi中的语法为： function FindWind...
JAVA上百实例源码以及开源项目源代码 Java zip压缩包查看程序源码 1个目标文件 摘要:Java源码,文件操作,压缩包查看 Java zip压缩包查看程序，应用弹出文件选择框，选择ZIP格式的压缩文件，可以像Winrar软件一样查看压缩文件内部的文件及文件夹，源码...
MFC基于对话框程序 请打开类视图(ClassView)，如果无误的话，我们可以看到三个类。分别是CAboutDlg, CDialogApp, CDialogDlg这三个类。 其中，CDialogApp是最重要的一个类。双击CDialogApp，打开其定义体。我们会看到它是这么定义的: ...
VB程序破解 VB程序的破解思路总结、编译方式vs破解工具 比较 把一个简单的VB计时器程序研究透了，对于VB破解应有较大帮助，如有错误欢迎指出。 VB程序也是一个非常有趣的东西，你去看VB的主程序，是用Microsoft Visual ...
VBA，如何使用类msgbox的效果，但是让窗口过几秒自动关闭？ （未完成） 1 Scripting Host（WSH）的Popup方法--测试不好用？ 不知道为啥测试不好用 测试情况，也不能显示倒计时秒数， Sub test_sample1() 'Scripting Host（WSH）的Popup方法。...w1.popUp "3秒自动关闭", ...
用 Python 子进程关闭 Excel 自动化中的弹窗 利用Python进行Excel自动化操作的过程中，尤其是涉及VBA时，可能遇到消息框/弹窗（MsgBox）。此时需要人为响应，否则代码卡死直至超时 [^1] [^2]。根本的解决方法是VB...
C# 屏蔽由于崩溃弹出的windows异常弹框 windows应用程序（包括控制台）在运行时如果出现了未处理的异常会出项windows的异常提示框 这个提示框在平时并没有什么影响。但是当我们使用启动的是一个服务器程序时，我们的要求应该是尽可能快的重启应用。...
VB6.0属性过程详解（Property过程）[第二章：属性Set过程的应用（设计如字体属性的具有弹出式对话框的属性... 这里是《VB6.0属性过程详解（Property过程） 》的第二章，如果你没有看过上面的这篇文章，你应该先去看看，除非你觉得你已经初步了解了属性过程的运作机制。 第二章：第一节：属性Set过程的应用 上一章，我...
VB:设定 MsgBox 在若干时间之后若无回应则自动关闭 在我们的印象中，VB 所提供的 MsgBox 是一个强制回应的视窗，您一定要按了其中的某一个 CommandButton 之后，它才会关闭！但是在某些软体中，我们会看到，明明是使用系统的 MsgBox，可是您如果不理它，几秒钟之后，...
【网络课】VB.NET程序设计 作业答案 选择题： ACDBC DAADD BDCDD CDCCB ABDCB DBAAC BACAB CCBCD DAAAA ADAAA DCCCA BBCAA ADDBB DDCDA BCAAB BCAAB DCDDC AAADD CDDCC ABBBA 填空题 ...1、使对象获得焦点的属性是_SetFocus_
VB 制作网页浏览器 '如果你希望新打开的网页出现在同一个窗口，可以这样做 Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1 Private Sub Form_Load() Set Web_V1 = WebBrowser1.Object WebBrowser1.Navigate2 ...
vb计算机怎么制作,vb6.0怎么制作一个抽奖小程序? vb6.0抽奖器的法 3、每天的同一时间定时自动关机：单击“开始”→“所有程序(p)”→“附件”→“系统工具”→“任务计划”→弹出“任务计划”窗口→在窗口右侧的空白区域单击鼠标右键→在出现的快捷菜单中指向“新建(w)”→在出现的...
C#基础教程-c#实例教程，适合初学者 本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的，如需进一步学习C#语言...
MFC基于对话框程序，顺序分析 如果是6.0的朋友则首先在菜单上...在向导第一步中选择基于对话框(Dialog based)，直接按完成(Finish)就可以了。 如果是.net的朋友则在菜单上选择新建->项目，在项目类型中选择Visual C++项目，在模板中选择MFC应用
VB程序VB代码：摄像头视频图像的监控，截图，录像（改进） 本程序是“ 实现USB摄像头视频图像的监控，截图，录像 ”的改进。可实现对摄像头视频的监控，截图，录像，可以分别保存为图片文件和视频（压缩）文件。保存的视频文件可以用媒体播放机（Windows媒体播放器），暴风...
