求助:IE弹出窗口捕获并确认

billyfine · 发表于 2011-5-20 00:05:06

本帖最后由 billyfine 于 2011-5-20 07:27 编辑

IE弹出安全警报或安全信息，需要自动点击确认。
找实例或代码.

hjb016 · 发表于 2011-5-20 08:35:47

用API函数
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
If FindWindow(vbNullString, "安全信息") or FindWindow(vbNullString, "安全警报") Then
调用SendMessage来关闭窗体
end if
和关闭API函数
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

billyfine · 发表于 2011-5-21 09:27:02

回复 hjb016 的帖子

怎样用SendMessage点到弹出窗口按钮 “是” 呢？
我试了很久没有成功.

hjb016 · 发表于 2011-5-21 09:34:42

那个我也不大记得,一个是可以直接关闭.
这个可能需要查一下资料.

billyfine · 发表于 2011-5-21 16:42:28

回复 hjb016 的帖子

请问有没有弹出窗口htm代码的获取方法

hjb016 · 发表于 2011-5-21 16:47:19

用API函数
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
If FindWindow(vbNullString, "安全信息") or FindWindow(vbNullString, "安全警报") Then
调用SendMessage来关闭窗体
end if

同样的用API函数去处理了.

FindWindow(vbNullString, "安全信息") 就是获取弹出的窗体了

billyfine · 发表于 2011-5-21 21:17:43

回复 hjb016 的帖子

能发下代码吗？网上搜的不能用啊!

SendMessage hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 求助:IE弹出窗口捕获并确认

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)