Foxtable(狐表)用户栏目专家坐堂 → 求助:如何实现自动登录新浪微博呢?因点登录是弹窗登录,有时候还需要提供验证码才能登录,请各位老师多多指导,谢谢!


  共有2265人关注过本帖平板打印复制链接

主题:求助:如何实现自动登录新浪微博呢?因点登录是弹窗登录,有时候还需要提供验证码才能登录,请各位老师多多指导,谢谢!

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
求助:如何实现自动登录新浪微博呢?因点登录是弹窗登录,有时候还需要提供验证码才能登录,请各位老师多多指导,谢谢!  发帖心情 Post By:2016/11/7 1:21:00 [只看该作者]

求助:如何实现自动登录新浪微博呢?因点登录是弹窗登录,有时候还需要提供验证码才能登录,请各位老师多多指导,谢谢!

微博访问地址:https://weibo.com/waxjcy
微博对应登录部分的网页源码结构:

图片点击可在新窗口打开查看此主题相关图片如下:微博login.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table


红色部分代码怎么写呢?
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

 回到顶部