Re: [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一次
: 請版上高手解惑一下 謝謝
您好,
您可以使用 BeforeNavigate2 事件去取回轉址的網址B
example:
Private WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As
Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
If(instr(URL, "URLB_Kayword") > 0) Then
sUrlB = URL
WebBrowser.Navigate uUrlB
End if
End Sub
希望有幫到您:)
--
Best regards,
Arvin
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.38.18.225
※ 編輯: wdmc 來自: 114.38.18.225 (06/22 06:00)
討論串 (同標題文章)