作者wdmc (关怀弱势.)
看板Visual_Basic
标题Re: [VB6 ] 请问webbrowser经过转址如何取得网址呢?
时间Mon Jun 22 05:59:34 2009
※ 引述《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)