如何编写一个简单的网页自动登录程序？

Question

账   号：   
密   码： 
验证码：   
      
就3个字段  要求可以文本将账户密码导入到程序 然后手动在弹出窗口写入验证码 满4位自动提交

Answer 1

Dim objDoc
    On Error Resume Next
    Set objDoc = WebBrowser1.Document
    For I = 1 To objDoc.All.Length - 1
        If objDoc.All(I).Name = "username" Then
            objDoc.All(I).Value = Text1.Text
        ElseIf objDoc.All(I).Name = "password" Then
            objDoc.All(I).Value = Text2.Text
        ElseIf objDoc.All(I).Name = "submit" Then
            objDoc.All(I).Click
        End If
    NexT

Answer 2

什么写到网页？
If objDoc.All(I).Name = "username" Then
            objDoc.All(I).Value = Text1.Text 
这就将用户名要填的东西填成了Text1.Text上的字啊！

Answer 3

你的意思是通过文本，讲用户名和密码导入到WebBroswer中？