首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

弹出网页对话框后,怎样拿回控制权?解决方法

2012-03-24 
弹出网页对话框后,怎样拿回控制权?用VBA控制网页,弹出网页对话框后,系统等待,vbA程序不往下面运行(我的任

弹出网页对话框后,怎样拿回控制权?
用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][b][/b]

[解决办法]
除非你使用多线程,在另一个线程中控制。否则单线程的话,一定要等待模态对话框被响应才能继续线程的执行。
[解决办法]
再开一个程序,因为VB不支持多线程。

热点排行