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

Question

某个网页弹出个对话框窗口，上面有确定和取消按钮。
怎么点击这个对话框里的按钮呢？webbrowser好像只能处理网页里面的元素吧？难道webbrowser的子窗口之类的属性？不懂啊，学习学习，

Answer 1

难道先用api通过窗口标题获取窗口，
然后再向按钮sendkey  ？？？没有更简单的方法了吗？webbrowser里面没有ie弹出窗口的属性方法类？？？

Answer 2

class #32770Private 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 LongFunction 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

Answer 3

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