弹出网页对话框后，怎样拿回控制权？

2010-08-04 11:14:27 908 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Windows系统禁用F1键弹出浏览器帮助的注册表修改方法在Windows操作系统中，快捷键是提升操作效率的重要工具，其原理是通过系统底层将特定按键与功能命令进行绑定。注册表作为Windows的核心配置数据库，存储了包括快捷键映射在内的众多系统行为定义。通过修改注册表键值，可以实现对系统快捷键的自定义控制，这在工程实践中常用于解决系统默认行为与用户工作流的冲突。例如，Windows 10/11系统中F1键默认触发在线帮助并调用浏览器，常会打断开发者在IDE中的编码流程。本文针对这一具体场景，详细讲解如何通过创建DisabledHotkeys注册表值来精准禁用F1键阅读详情

用VBA控制网页，弹出网页对话框后，系统等待，vbA程序不往下面运行（我的任务是继续往下运行，并进一步控制网页对话框），怎么办？

查阅相关资料：
用webbrowser控件自动执行一些任务时，例如新增，修改，删除这些操作，会有js对话框的确认信息，例如：新增成功的消息对话框，修改，删除的确认对话框，必须选择是或者否。由于对话框是模态的（MODAL)如果不处理，程序就会停住，不能执行。
解决方案分析：
可以通过windows发送消息，让对话框消失，相当于鼠标或者键盘点击。
对于消息对话框解决的方案比较多：
1 关闭窗口的消息，简单，直接关闭之；
2 发送键盘消息，因为只有一个按钮，默认按钮就是他，模拟键盘的回车键，空格键或者ESC键，消息对话框也会关闭；
3 发送按钮消息，直接模拟IDOK消息就可以了；
确认对话框如果选择是，那么采用第二个和第三个方案就可以。
要解决的关键技术问题就是如何调用windows api函数，并且由于程序已经在弹出对话框的地方停住了，等待用户响应，程序怎么重新获得控制权，继续执行。
程序解决方案：
第一个问题：C#声明windows API
检索到这样的文章在C#中通过 P/Invoke 调用Win32 DLL（英文版本），这个问题基本就解决了，代码如下：
[DllImport("user32.dll", CharSet = CharSet.Auto)]
public static extern IntPtr GetLastActivePopup(IntPtr hWnd);
[DllImport("user32.dll", CharSet = CharSet.Auto)]
public static extern Boolean PostMessage(IntPtr hWnd,int Msg, IntPtr wParam, IntPtr lParam);
GetLastActivePopup api说明参见：http://msdn2.microsoft.com/en-us/library/ms633507.aspx
PostMessage api说明参见：http://msdn.microsoft.com/en-us/library/ms644944%28VS.85%29.aspx
第二个问题：通过定时器控件，在弹出对话框前启动定时器，
timer2.Start();
webBrowser1.Document.All.GetElementsByName(“event_submit_do_delete”)[0].InvokeMember(“click”); //这句话会弹出一个确认对话框
第三个问题：关键代码
说明：几个常用的变量数值作为备忘
WM_KEYDOWN=100H
VK_RETURN=0DH
WM_COMMAND=111H
IDOK=1H
更多的变量可以访问 http://www.pinvoke.net/，这里的很全。
private void timer2_Tick(object sender, EventArgs e) {
timer2.Stop();
IntPtr PopupHandle = GetLastActivePopup(this.Handle);
//如果弹出对话框的句柄不是0（有对话框），并且对话框不是webbrowser，就送 WM_CLOSE（0×10)到这个对话框
if ((PopupHandle != IntPtr.Zero) || (PopupHandle != webBrowser1.Handle)) {
//PostMessage(PopupHandle, 0×10, new IntPtr(1), [...]

[color=#FF0000]现在问题：

VBA怎么用上面的方法？用Application.OnTime。。。一样解决不了问题！[/color]

...全文