网页申请QQ号码获取

dv00 · 发表于 2011-11-19 13:35:13

怎么获取这个号码？？？

99999 · 发表于 2011-11-19 13:35:14

.版本 2
.支持库 spec

.子程序 _按钮_注册_被单击
.局部变量 POST数据, 文本型
.局部变量 text2, 文本型

.如果真 (删首尾空 (编辑框1.内容) ＝ “” 或删首尾空 (编辑框2.内容) ＝ “” 或删首尾空 (编辑框3.内容) ＝ “”)
信息框 (“输入有误，请检查！”, #警告图标, “输入有误！”)
返回 ()
.如果真结束
编辑框4.内容＝ “”
text1 ＝到文本 (网页_访问 (“zc.qq.com/cgi-bin/chs/numreg/get_acc?r=0.12092” ＋到文本 (取随机数 (1111, 9999)) ＋到文本 (取随机数 (1111, 9999)) ＋到文本 (取随机数 (1111, 9999)), 1, , “Referer: http://zc.qq.com/chs/index.html” ＋ #换行符, 到字节集 (“&verifycode=” ＋删首尾空 (编辑框3.内容) ＋ “&qzone_flag=1&country=1&province=51&city=13&isnongli=0&year=1991&month=1&day=2&isrunyue=0&password=” ＋ rsa加密 (删首尾空 (编辑框2.内容)) ＋ “&nick=” ＋删首尾空 (编辑框1.内容) ＋ “&email=false&other_email=false&elevel=1&sex=1&qzdate=&a2d5c2j0=u8o0p9l&jumpfrom=58030&csloginstatus=1”), , , ))
调试输出 (text1) ' {"ec":0,"safeverifyResult":"0","type":"0","uin":"2665310925"}
text2 ＝文本_取出中间文本 (text1, #F, #B)
.如果真 (text2 ＝ “0”)
编辑框4.内容＝文本_取出中间文本 (text1, #NF, #NB)
.如果真结束
.如果真 (text2 ＝ “2”)
编辑框4.内容＝ “验证码错误！”
.如果真结束
.如果真 (text2 ＝ “20”)
编辑框4.内容＝ “需要手机验证！”
.如果真结束
.如果真 (text2 ＝ “21”)
编辑框4.内容＝ “恶意注册，暂时停止！”
.如果真结束
.如果真 (text2 ＝ “26”)
编辑框4.内容＝ “需要手机激活！”
.如果真结束
编辑框1.内容＝ “”
初始化 ()