|
|
用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), [...]
现在问题：
VBA怎么用上面的方法？ 用Application.OnTime。。。一样解决不了问题！ |
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2010-7-29 16:51
楼主
