求助:如何实现自动登录新浪微博呢?因点登录是弹窗登录,有时候还需要提供验证码才能登录,请各位老师多多指导,谢谢!
微博访问地址:https://weibo.com/waxjcy微博对应登录部分的网页源码结构:
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:微博login.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-11/20161171173683478.png)
红色部分代码怎么写呢?
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").Basecontrol
web.Navigate("https://weibo.com/waxjcy")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
If web.Document.Body.OuterHtml.Contains("登录") Then '判断一下当前页面的是否包含这串字符串(用来判断是否已经处于登录状态)
web.Document.GetElementById("user").SetAttribute("Value", "w")
web.Document.GetElementById("Password").SetAttribute("Value", "0")
web.Document.GetElementById("weibo_top_public").InvokeMember("")
End If