好友
阅读权限10
听众
最后登录1970-1-1
|
大D
发表于 2013-8-28 23:58
本帖最后由 大D 于 2013-8-29 00:01 编辑
折腾一晚上 搞不明白怎么发帖的 回帖的
下了个登录的源码 看了好多教程
然后测试下 这个 发帖 完全不行 易语言的 看看哪里错了哇
.版本 2
.支持库 spec
.程序集 窗口程序集1
.程序集变量 Cookies, 文本型, , , 全局cookies
.程序集变量 协议头, 文本型
.子程序 _按钮1_被单击
.局部变量 用户名, 文本型
.局部变量 用户密码, 文本型
.局部变量 验证码, 文本型
.局部变量 临时文本, 文本型
.局部变量 token, 文本型
.如果真 (编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)
返回 ()
.如果真结束
用户名 ＝ 编码_URL编码 (编辑框1.内容, 真, 真)
用户密码 ＝ 编码_URL编码 (编辑框2.内容, 真, 真)
验证码 ＝ 编码_URL编码 (编辑框2.内容, 真, 真) ' 验证码没有分析。。。
' 验证码部分没有处理。我这边登录不需要验证码 所以就没有分析了。
临时文本 ＝ 网页_访问s (“https://passport.baidu.com/v2/api/?getapi&class=login&tpl=mn&tangram=true”, 0, , , , , , , , , ) ' 获取token 这个地址是点击登录后 访问的地址
token ＝ 文本_取出中间文本 (临时文本, “'”, “';”, 1, 真)
网页_访问s (“https://passport.baidu.com/v2/api/?getapi&class=login&tpl=mn&tangram=true”, 0, , Cookies, , , , , , , ) ' 为了记录cookis，方便下面调用
网页_访问s (“https://passport.baidu.com/v2/api/?login”, 1, “ppui_logintime=13437&charset=utf-8&codestring=&token=” ＋ token ＋ “&isPhone=false&index=0&u=&safeflg=0&staticpage=http%3A%2F%2Fwww.baidu.com%2Fcache%2Fuser%2Fhtml%2Fjump.html&loginType=1&tpl=mn&callback=parent.bdPass.api.login._postCallback&username=” ＋ 用户名 ＋ “&password=” ＋ 用户密码 ＋ “&verifycode=&mem_pass=on”, , Cookies, , , , , , )
输出调试文本 (Cookies) ' 如果返回cookies为空 那么就是没有登陆成功
临时文本 ＝ 网页_访问s (“http://passport.baidu.com/center?_t=”, 0, Cookies, , , , , , , , ) ' 测试是否成功登录地址
输出调试文本 (临时文本)
.如果真 (寻找文本 (临时文本, “修改资料”, 1, 假) ≠ -1)
标签1.标题 ＝ “登录成功”
信息框 (“登录成功”, 0, “提示”)
返回 ()
.如果真结束
标签1.标题 ＝ “登录失败”
信息框 (“登录失败”, 0, “提示”)
标签1.标题 ＝ “等待用户登录...”
返回 ()
.子程序 __启动窗口_创建完毕
---------------------------------------------------------下面是自己加的测试-----------------------------------------------------------
.子程序 _按钮2_被单击
.局部变量 tbsok, 文本型
.局部变量 tbs, 文本型
tbs ＝ 网页_访问s (“http://tieba.baidu.com/dc/common/tbs”)
tbsok ＝ 文本_取出中间文本 (tbs, “:#引号”, “#引号,”, 1, 真)
' 调试输出 (tbs)
网页_访问s (“http://tieba.baidu.com/p/2558273581”, 1, “kw=%E4%B8%89%E5%9B%BD%E4%BA%89%E9%9C%B8&ie=utf-8&rich_text=1&fid=472743&tid=2558273581&mouse_pwd_isclick=1&content=%E5%93%8E%EF%BD%9E%EF%BD%9E+%E8%BF%99%E5%87%84%E5%87%89%E7%9A%84%EF%BD%9E&anonymous=0&tbs=” ＋ tbsok, Cookies, , , , , , , )
调试输出 (Cookies)
---------------------------------------------具体要POST过去哪些变量 不清楚---------------------------------------------------------------------------- |
|
[复制链接]
|
发表于 2013-8-29 11:44
