自动填写网页表单的功能，是怎么实现的！给段代码？

Question

自动填写网页表单的功能，是怎么实现的！给段代码？

Answer 1

要用到Microsoft Internet Controls控件Option ExplicitPrivate Sub Form_Load()
    Me.WebBrowser1.Navigate "www.csdn.net"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    With Me.WebBrowser1.Document
        .alogon.Name.Value = "用户名"
        .alogon.pass.Value = "123456"
    End With
End Sub

Answer 2

With Me.WebBrowser1.Document
        .alogon.Name.Value = "用户名"
        .alogon.pass.Value = "123456"
        .alogon.Submit
End With