|

楼主 |
发表于 2012-9-24 19:49:50
|
显示全部楼层
广东省惠州市
給朕跪下 发表于 2012-9-24 19:35 
嘿嘿 才看到
pc版的登陆和关注 (*^__^*) 嘻嘻…… 不知道你需不需要,也发给你(*^__^*) 嘻嘻……
.版本 2
.支持库 iext
.子程序 登陆
.局部变量 用户名, 文本型
.局部变量 nonce, 文本型
.局部变量 第一次加密, 文本型
.局部变量 第二次加密, 文本型
.局部变量 密码, 文本型
.局部变量 servertime, 文本型
用户名 = 子文本替换 (超级列表框1.取标题 (超级列表框1.现行选中项, 1), “@”, “%40”, , 1, 真)
用户名 = 到文本 (编码_BASE64编码 (到字节集 (用户名)))
用户名 = 编码_URL编码UTF8 (用户名)
返回文本 = 到文本 (网页_访问 (“http://login.sina.com.cn//sso/prelogin.php?entry=weibo&callback=sinaSSOController.preloginCallBack&su=&client=ssologin.js”))
nonce = 文本_取出中间文本 (返回文本, “nonce” + #引号 + “:” + #引号, #引号)
servertime = 文本_取出中间文本 (返回文本, “servertime” + #引号 + “:”, “,”)
第一次加密 = SHA1加密 (超级列表框1.取标题 (超级列表框1.现行选中项, 2))
第二次加密 = SHA1加密 (第一次加密)
密码 = SHA1加密 (第二次加密 + servertime + nonce)
post地址 = “http://login.sina.com.cn/sso/login.php?client=ssologin.js(v1.3.16)”
post数据 = “entry=weibo&gateway=1&from=&savestate=7&useticket=1&ssosimplelogin=1&su=” + 用户名 + “&service=miniblog&servertime=” + servertime + “&nonce=” + nonce + “&pwencode=wsse&sp=” + 密码 + “&encoding=UTF-8&url=http%3A%2F%2Fweibo.com%2Fajaxlogin.php%3Fframelogin%3D1%26callback%3Dparent.sinaSSOController.feedBackUrlCallBack&returntype=META”
返回文本 = 到文本 (网页_访问 (post地址, 1, , , 到字节集 (post数据)))
a = 到文本 (网页_访问 (文本_取出中间文本 (返回文本, “replace('”, “');”), , ))
.如果 (寻找文本 (a, “displayname”, , 假) ≠ -1)
超级列表框1.置标题 (超级列表框1.现行选中项, 3, “登陆成功”)
程序_延时 (3000)
关注 ()
程序_延时 (3000)
.如果真 (超级列表框1.现行选中项 ≠ 超级列表框1.取表项数 () - 1)
超级列表框1.现行选中项 = 超级列表框1.现行选中项 + 1
登陆 ()
.如果真结束
.否则
超级列表框1.置标题 (超级列表框1.现行选中项, 3, “登陆失败”)
.如果真 (超级列表框1.现行选中项 ≠ 超级列表框1.取表项数 () - 1)
超级列表框1.现行选中项 = 超级列表框1.现行选中项 + 1
登陆 ()
.如果真结束
.如果结束
.子程序 关注
post地址 = “http://weibo.com/aj/f/followed?__rnd=”
post数据 = “uid=” + 编辑框1.内容 + “&f=1&location=profile&wforce=1&refer_sort=profile&refer_flag=&_t=0”
返回文本 = 到文本 (网页_访问 (post地址, 1, , , 到字节集 (post数据)))
.如果 (寻找文本 (返回文本, “100000”, , 假) ≠ -1)
超级列表框1.置标题 (超级列表框1.现行选中项, 4, “关注失败”)
.否则
超级列表框1.置标题 (超级列表框1.现行选中项, 4, “关注成功”)
|
评分
-
查看全部评分
|