使用WebBrowser控件如何获得和设置其中文本框的内容

[咖啡博士]

如题

[supergreenbean]

Option Explicit

Private Sub Form_Load()
    WebBrowser1.Navigate2 "www.google.cn"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim oInput As Object
    Set oInput = pDisp.Document.getElementById("q")
    
    If Not oInput Is Nothing Then
        oInput.Value = "go"
    End If
End Sub

[嗷嗷叫的老马]

路过.......

[咖啡博士]

vb 6.0 里可以吗？

[jinjazz]

GetElementById