[VB6 ] 請問webbrowser經過轉址如何取得網址呢?

[ffrr (冰色太陽)]

目前有寫一個小程式自動登入網站,可是有遇到一些問題

 Dim WebBrowser: Set WebBrowser = CreateObject("InternetExplorer.Application")
  WebBrowser.Visible = True
  WebBrowser.Navigate "網址A"   ' <---這個網址會轉址到網址B


        Do While WebBrowser.busy
          DoEvents
        Loop

        Do Until WebBrowser.ReadyState = 4
           DoEvents
        Loop

        DoEvents


        WebBrowser.Document.GetElementById("name").Value = UserName '網址B才有
        WebBrowser.Document.GetElementById("pwd").Value = PassWord '網址B才有

會造成 沒有設定物件變數或 With 區塊變數 的錯誤
請問是少宣告什麼嗎?

目前想到的解決辦法是先分析轉址後的內容,取得轉址網址後再重新Navigate一次

請版上高手解惑一下 謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 122.123.135.250
※ ffrr:轉錄至看板 Programming                                     06/17 22:22