可不可以截取WebBrowser1中网页表单内的值？

Question

想把网页中表单中指定项目的值传给变量。

Answer 1

Private Sub Form_Load()
    WebBrowser1.navigate "http://www.xrd168.net/bbs/reg.asp?action=apply"
End SubPrivate Sub Command1_Click()
    Dim vTag, vDoc
    Set vDoc = WebBrowser1.document
    For Each vTag In vDoc.getElementsByTagName("INPUT")
        '表单字段名称 表单字段值
        Debug.Print vTag.Name, vTag.Value
    Next
End Sub