VB如何让程序自动关闭网页弹出的对话框

Question

sendmessage给对话框，发送wm_close应该可以

Answer 1

主要问题是找不到子窗口－按钮的句柄，总是返回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&

Answer 2

hwnd2=FindWindowEx(hwnd1,0&,0&,"确定")　　　
改成下面的试一试：
hWnd2 = FindWindowEx(hWnd1, 0&, "button", vbNullString)

Answer 3

开始的时候就是这样的，网上介绍的例子是模拟按计算器的1键，是可以找到1键的句柄的，
但对弹出窗口提示时只能得到hwnd1的值，hwnd2总是0。不行，后我才改的代码！
现在主要的问题就是如何获取这个网页弹出窗口的“确定”按钮的句柄了。

Answer 4

直接JS重写alert函数,让弹窗永远都出不来

Answer 5

  hwnd1 = FindWindow(vbNullString, "JavaScript 提醒")
  PostMessage hwnd1, WM_KEYDOWN, vbKeyReturn, 0    ‘发送回车键  已经测试通过（win7  x64 + vb6 + 枫树极速浏览器）

Answer 6

用我这小工具,效果会让你惊喜!
http://download.csdn.net/detail/taoguangye/7780643

Answer 7

谢谢各位的热心帮助。同样的代码hwnd1有时能获取到句柄，有时也是0，弄不是很明白，但用计时器每隔1秒循环后也能达到目的。
现在又遇到一个问题：
  打开一个网页、填写表单、并提交为什么总出错
  http://bbs.csdn.net/topics/390864740