作者ffrr (冰色太阳)
看板Programming
标题[VB6 ] 请问webbrowser经过转址如何取得网址呢?
时间Wed Jun 17 22:22:09 2009
※ [本文转录自 Visual_Basic 看板]
作者: ffrr (冰色太阳) 看板: Visual_Basic
标题: [VB6 ] 请问webbrowser经过转址如何取得网址呢?
时间: Sat Jun 13 23:41:36 2009
目前有写一个小程式自动登入网站,可是有遇到一些问题
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
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.123.132.197