Office中国论坛/Access中国论坛

标题: 求助:IE弹出窗口捕获并确认 [打印本页]

作者: billyfine 时间: 2011-5-20 00:05
标题: 求助:IE弹出窗口捕获并确认
本帖最后由 billyfine 于 2011-5-20 07:27 编辑

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

[attach]45627[/attach]

作者: hjb016 时间: 2011-5-20 08:35
用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
回复 hjb016 的帖子

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

作者: hjb016 时间: 2011-5-21 09:34
那个我也不大记得,一个是可以直接关闭.
这个可能需要查一下资料.

作者: billyfine 时间: 2011-5-21 16:42
回复 hjb016 的帖子

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

作者: hjb016 时间: 2011-5-21 16: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函数去处理了.

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

作者: billyfine 时间: 2011-5-21 21:17
回复 hjb016 的帖子

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

SendMessage hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)