怎么提交网页弹出的对话框？

[aguangkj]

某个网页弹出个对话框窗口，上面有确定和取消按钮。
怎么点击这个对话框里的按钮呢？

webbrowser好像只能处理网页里面的元素吧？

难道webbrowser的子窗口之类的属性？不懂啊，学习学习，

[aguangkj]

没人做过这个吗？人工置顶

[zydscaline]

幫你頂下

[无·法]

sendkeys

[aguangkj]

没人做过这个吗？人工置顶

[aguangkj]

难道先用api通过窗口标题获取窗口，
然后再向按钮sendkey ？？？

没有更简单的方法了吗？

webbrowser里面没有ie弹出窗口的属性方法类？？？

[lqnoway]

class #32770

Private Declare Function FindWindowEx Lib "user32" _
        Alias "FindWindowExA" (ByVal hWnd1 As Long, _
              ByVal hWnd2 As Long, ByVal lpsz1 As String, _
                    ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" _
        Alias "SendMessageA" (ByVal hWnd As Long, _
              ByVal wMsg As Long, ByVal wParam As Long, _
                    ByVal lParam As String) As Long
Private Declare Function FindWindow Lib "user32" _
        Alias "FindWindowA" (ByVal lpClassName As String, _
              ByVal lpWindowName As String) As Long

Function CloseSystemConfirmDlg() As Boolean
Dim IEDialogHwnd  As Long
IEDialogHwnd = FindWindow("#32770", "Microsoft Internet Explorer")
If IEDialogHwnd = 0 Then '不同版本的IE标题有差异
    IEDialogHwnd = FindWindow("#32770", "Windows Internet Explorer")
End If
If IEDialogHwnd Then
    CloseSystemConfirmDlg = True
    Call SendMessage(FindWindowEx(IEDialogHwnd, ByVal 0&, "Button", "确定"), &HF5, 0, 0)
    Call SendMessage(FindWindowEx(IEDialogHwnd, ByVal 0&, "Button", "确定"), &HF5, 0, 0)
End If
End Function

[aguangkj]

好复杂啊，动用了api，有没有简单的办法呢？

[aguangkj]

6楼的好厉害啊，研究研究

[shujiabing001]

好定西啊，6漏洞没有看到啊

[ying987]

学习……

[jxl1401]

谢谢，学习了，网页弹出的对话框