使用webbrowser中alert的问题,高手请进!急!

Question

我用webbrowser控件打开网页,自动提交表单,网页会弹出一个alert确认框,我怎样才能得到alert确认对话框的内容?并且用程序点击确认按钮请给出一个详细思路,当然有代码最好,谢谢!

Answer 1

__转载Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    
    On Error GoTo ErrHandler
    
    txtHTML.Text = Left(WebBrowser1.Document.body.innerText, 1)
    
ErrHandler:    If Err.Number = 91 Then
        Me.Show
        Me.WindowState = 0
        SendKeys "{enter}", 0.5
        SendKeys "n", 0.5
    End IfEnd Sub
获取内容 可以抓源码