求一段QQ post 登陆代码

keroug · 发表于 2011-1-18 17:28:54

郁闷高手都到哪去了

willlone · 发表于 2011-1-19 23:52:32

我也在求呢。
谢谢了。

willlone · 发表于 2011-1-20 04:38:12

浪费钱了，我日

keroug · 发表于 2011-1-21 09:36:03

顶起来{:3_244:}

tianddtian · 发表于 2011-3-20 18:10:28

呵呵，我也在等呀，

grui1014 · 发表于 2011-6-20 22:18:15

本帖最后由 grui1014 于 2011-6-20 22:18 编辑

[e]版本 2
.支持库 iext

号码＝超级列表框1.取标题 (超级列表框1.现行选中项, 1)
密码＝超级列表框1.取标题 (超级列表框1.现行选中项, 2)
返回文本＝彗星HTTP读文本 (“ptlogin2.qq.com/check?uin=” ＋号码＋ “&appid=15000101”)
.如果 (取文本长度 (返回文本) ＝ 25)
验证码＝取文本中间 (返回文本, 19, 4)
.否则

.如果结束

脚本组件.方法_置语言 (“JScript”)
脚本组件.方法_执行 (#md5)
密码＝脚本组件.方法_运行 (“md5_3”, 取文本参数 (密码)).取文本 ()
密码＝脚本组件.方法_运行 (“md5”, 取文本参数 (密码＋到大写 (验证码))).取文本 ()
返回文本＝到文本 (网页_访问 (“http://ptlogin2.qq.com/login”, 1, , , “u=” ＋号码＋ “&p=” ＋密码＋ “&verifycode=” ＋验证码＋ “&low_login_enable=1&low_login_hour=720&aid=46000101&u1=http%3A%2F%2Ft.qq.com&ptredirect=1&h=1&from_ui=1&dumy=&fp=loginerroralert”, 1))
.如果 (寻找文本 (返回文本, “完成跳转”, , 假) ≠ -1)
标签1.标题＝ “登陆成功！”
.否则
标签1.标题＝ “登陆失败！”
.如果结束

[/e]

dumanxing · 发表于 2012-5-24 16:00:53

一直在努力学习中

jy3318007 · 发表于 2013-3-23 23:15:11

我也需要的这样的.希望大神共享

		自动登录	找回密码
密码			注册

[易语言] 求一段QQ post 登陆代码