求:我想要网页自动登录完成以后再让ie自动跳转到另外一个网页,要怎么写?
我想要网页自动登录完成以后再让ie自动跳转到另外一个网页,要怎么写?
比如百度问答网站,它这个网站登录好以后是个管理界面,并不是我想要的直接可以提问的"我要提问"那个网页,我希望自动登录,然后能直接自动给跳转到"我要提问"那个网页,这样就自动登录好了省得还要点击一下才能进行提问.
--------------
Private Sub Command1_Click()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "https://passport.baidu.com/?login"
Do
Loop Until ie.ReadyState = 4
ie.Document.getElementById("username_normal").Value = "111111111111111111111111111111111"
ie.Document.getElementById("normModPsp").Value = "1111111111111111111111111111111111"
ie.Document.getElementsByTagname("button")(1).Click
ie.Navigate "http://zhidao.baidu.com/q?ct=24&cm=16&tn=ucframework#ask"'我现在这样直接写这么一句,如果登录很快很顺利,是没问题的,它会给我既登录好又跳转过去;但是一旦登录慢了,结果就会没有登录进却直接先跳到那个"我要提问"网页去了
End Sub
------------------
多谢!
[解决办法]
ie.Navigate "https://passport.baidu.com/?login"
while ie.IsBusy
doevents
sleep 100
wend
...
[解决办法]
一样的，你引用webbrowser控件，然后在开始的地方用private withevent声明ie对象
private withevent ie as internetexplorer
