如何获得新浪股票的登陆页面的信息

Question

    With CreateObject("InternetExplorer.Application")
     
        .Visible = True
        .navigate "http://vip.stock.finance.sina.com.cn/portfolio/login.php"
         'Do Until .readyState = 4
            'DoEvents
        'Loop
       On Error Resume Next
        For i = 1 To 20
           If Len(.Document.Forms(0).All(i).Name) > 0 Then Debug.Print "i=" & i; ; " name=" & .Document.Forms(0).All(i).Name
           Next
              
        .Document.Forms(0).All("name").Value = "ffff"
        .Document.Forms(0).All("password").Value = "123"兰色地方错误！我无法获得登陆信息   

Answer 1

    Private Sub Command1_Click()
      
        With CreateObject("InternetExplorer.Application")
        
            .Visible = True
            .navigate "http://vip.stock.finance.sina.com.cn/portfolio/login.php"
            Do Until .readyState = 4
                DoEvents
            Loop
                 
          .Document.All("userid").Value = "ffff"
            .Document.All("pwd").Value = "123"
            End With
    End Sub

Answer 2

狼版：原来你是MVP啊（3次），呵呵师傅：我1楼的也是从你那里学来的。
我去试试看。