程序代码：

Private WithEvents HtmlDocument As MSHTML.HtmlDocument
Private WithEvents HtmlElement As MSHTML.HTMLButtonElement

Private Sub Form_Load()
WebBrowser1.Navigate "www."
End Sub


Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    With WebBrowser1
        Set HtmlDocument = .Document
        Set HtmlElement = HtmlDocument.getElementById("scbar_txt")
    End With
        MsgBox HtmlElement.Value
        Set HtmlElement = Nothing
    Set HtmlDocument = Nothing
End Sub