|
|
部分代码如下
.版本 2
.支持库 spec
.支持库 iext
arr ＝ 分割文本 (组合框2.内容, “:”, )
项目id ＝ arr [2]
.循环判断首 ()
pn ＝ Getphone (项目id)
调试输出 (pn, “aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa”)
.如果真 (取文本长度 (pn) ＝ 11)
GID ＝ JS调试 (#GID, “guideRandom”, “”)
url ＝ “https://wappass.baidu.com/wp/api ... l=tb&mobilenum=” ＋ pn ＋ “&gid=” ＋ GID ＋ “&tt=” ＋ 时间_取现行时间戳 () ＋ “&countrycode=”
response ＝ 编码_URL解码 (到文本 (网页_访问_对象 (url, 0, , cookie, , , , , , , , , , )), 真)
调试输出 (response)
.如果真 (寻找文本 (response, “该手机已注册,可以通过密码或短信快捷登”, , 真) ≠ -1)
addblack (pn, 项目id)
print (#红色, pn ＋ “,不可用”)
.如果真结束
.如果真结束
.循环判断尾 (寻找文本 (response, “该手机已注册,可以通过密码或短信快捷登”, , 真) ≠ -1)
cookie ＝ cookie ＋ “; Hm_lvt_294dbbdeb1fabbed8433533a3564560e=” ＋ 时间_到时间戳 (, 真) ＋ “; Hm_lpvt_294dbbdeb1fabbed8433533a3564560e=” ＋ 时间_到时间戳 (, 真)
url ＝ “https://wappass.baidu.com/wp/api/reg/sms?tt=” ＋ 时间_取现行时间戳 ()
data ＝ “mobilenum=” ＋ pn ＋ “&countrycode=&gid=” ＋ GID ＋ “&vcodesign=&vcodestr=&dialogVerifyCode=&tpl=tb&subpro=”
response ＝ 编码_URL解码 (到文本 (网页_访问_对象 (url, 1, data, cookie, , , , , , , , , , )), 真)
调试输出 (response)
.如果真 (寻找文本 (response, “命中验证码”, , 假) ≠ -1)
xk.进入 ()
sy ＝ 超级列表框1.插入表项 (, , , , , )
xk.退出 ()
超级列表框1.置标题 (sy, 0, 到文本 (sy ＋ 1))
超级列表框1.置标题 (sy, 1, pn)
print (#绿色, pn ＋ “,开始注册”)
json.解析 (response)
json.解析 (json.取属性对象 (“data”))
vcodestr ＝ json.取通用属性 (“vcodestr”)
vcodesign ＝ json.取通用属性 (“vcodesign”)
.循环判断首 ()
url ＝ “https://wappass.baidu.com/cgi-bin/genimage?” ＋ vcodestr ＋ “&v=” ＋ 时间_取现行时间戳 ()
验证码图片字节集 ＝ 网页_访问_对象 (url, 0, , cookie, , , , , , , , , , )
验证码 ＝ 图片识别 (验证码图片字节集)
url ＝ “https://wappass.baidu.com/wp/api/reg/sms?tt=” ＋ 时间_取现行时间戳 ()
data ＝ “mobilenum=” ＋ pn ＋ “&countrycode=&gid=” ＋ GID ＋ “&vcodesign=” ＋ vcodesign ＋ “&vcodestr=” ＋ vcodestr ＋ “&dialogVerifyCode=” ＋ 验证码 ＋ “&tpl=tb&subpro=”
response ＝ 编码_URL解码 (到文本 (网页_访问_对象 (url, 1, data, cookie, , , , , , , , , , )), 真)
调试输出 (response)
.如果真 (寻找文本 (response, “验证码有误”, , 真) ≠ -1)
print (#红色, “验证码识别有误”)
.如果真结束
.循环判断尾 (寻找文本 (response, “验证码有误”, , 真) ≠ -1)
json.解析 (response)
json.解析 (json.取属性对象 (“data”))
tempid ＝ json.取通用属性 (“tempid”)
url ＝ “https://wappass.baidu.com/passpo ... ode&checkPhone=” ＋ pn ＋ “&countrycode=&tempid=” ＋ tempid
response ＝ 编码_URL解码 (到文本 (网页_访问_对象 (url, 0, , cookie, , , , , , , , , , )), 真)
调试输出 (response)
uid ＝ 文本_取出中间文本 (response, “name=” ＋ #引号 ＋ “uid” ＋ #引号 ＋ “ value=” ＋ #引号, #引号)
bdcm ＝ 文本_取出中间文本 (response, “name=” ＋ #引号 ＋ “bdcm” ＋ #引号 ＋ “ value=” ＋ #引号, #引号)
jc ＝ 1
.循环判断首 ()
.如果真 (jc ＞ 到整数 (编辑框1.内容))
跳出循环 ()
.如果真结束
str ＝ getCode (pn, arr [2])
调试输出 (str)
延迟 (3000)
短信验证码 ＝ 文本区分_只取数字 (str)
jc ＝ jc ＋ 1
.循环判断尾 (寻找文本 (str, “百度”, , 假) ＝ -1)
.如果 (取文本长度 (短信验证码) ＝ 6)
GID ＝ JS调试 (#GID, “ guideRandom ”, “”)
url ＝ “https://wappass.baidu.com/wp/api/reg/phone?tt=” ＋ 时间_取现行时间戳 ()
data ＝ “smsvc=” ＋ 短信验证码 ＋ “&action=reg&u=https%253A%252F%252Ftieba.baidu.com%252F%253Fpage%253Ddiscovery%2526uid%253D” ＋ uid ＋ “&tpl=tb&tn=bdIndex&pu=&ssid=&from=&bd_page_type=&uid=” ＋ uid ＋ “&type=®type=1&subpro=&adapter=0&skin=default_v2®ist_mode=&login_share_strategy=&client=&clientfrom=&connect=&bindToSmsLogin=&bdcm=” ＋ bdcm ＋ “&tempid=” ＋ tempid ＋ “&agreement=1&dialogVerifyCode=&vcodesign=&vcodestr=&countrycode=&logRegType=wap_regTouch&mobilenum=” ＋ pn ＋ “&gid=” ＋ GID ＋ “&nopsw=1&forcesetpwd=”
response ＝ 编码_URL解码 (到文本 (网页_访问_对象 (url, 1, data, cookie, , , , , , , , , , )), 真)
调试输出 (response)
json.解析 (response)
gotoUrl ＝ json.取通用属性 (“data.gotoUrl”)
authsid ＝ 文本_取出中间文本 (gotoUrl, “authsid=”, “&”)
bdstoken ＝ 文本_取出中间文本 (gotoUrl ＋ “!”, “bdstoken=”, “!”)
.如果 (authsid ≠ “” 且 bdstoken ≠ “”)
response ＝ 编码_URL解码 (到文本 (网页_访问_对象 (gotoUrl, 0, , cookie, , , , , , , , , , )), 真)
调试输出 (response)
GID ＝ JS调试 (#GID, “ guideRandom ”, “”)
.循环判断首 ()
.如果 (选择框4.选中 ＝ 真)
账号 ＝ 文本_取随机汉字 (取随机数 (到整数 (编辑框11.内容), 到整数 (编辑框12.内容)))
.否则
账号 ＝ 文本_取随机字母 (到整数 (编辑框4.内容), ) ＋ 文本_取随机数字 (到整数 (编辑框5.内容), )
.如果结束
密码 ＝ 文本_取随机字母 (到整数 (编辑框8.内容), ) ＋ 文本_取随机数字 (到整数 (编辑框9.内容), )
url ＝ “https://wappass.baidu.com/wp/api ... pl=tb&username=” ＋ 编码_URL编码 (账号, 真, 真) ＋ “&gid=” ＋ GID ＋ “&tt=” ＋ 时间_取现行时间戳 ()
response ＝ 编码_URL解码 (到文本 (网页_访问_对象 (url, 0, , cookie, , , , , , , , , , )), 真)
调试输出 (response)
json.解析 (response)
response ＝ json.取通用属性 (“errInfo.no”)
.循环判断尾 (response ≠ “0”)
超级列表框1.置标题 (sy, 2, 账号)
超级列表框1.置标题 (sy, 3, 密码)
url ＝ “https://wappass.baidu.com/v3/getpass/api/showsetpwdusername/?v=” ＋ 时间_取现行时间戳 ()
pwd ＝ JS调试 (#password_1, “getpwd”, “'” ＋ 密码 ＋ “'”)
data ＝ “username=” ＋ 编码_URL编码 (账号, 真, 真) ＋ “&password=” ＋ pwd ＋ “&action=&u=https%3A%2F%2Ftieba.baidu.com%2F%3Fpage%3Ddiscovery%26uid%3D” ＋ uid ＋ “&tpl=tb&tn=&pu=&ssid=&from=&bd_page_type=&uid=&type=®type=&subpro=&adapter=&skin=®ist_mode=&login_share_strategy=&client=&clientfrom=&connect=&bindToSmsLogin=&authsid=” ＋ authsid ＋ “&bdstoken=” ＋ bdstoken
response ＝ 编码_URL解码 (到文本 (网页_访问_对象 (url, 1, data, cookie, , , , , , , , , , )), 真)
调试输出 (response)
json.解析 (response)
data ＝ json.取通用属性 (“errInfo.msg”)
response ＝ json.取通用属性 (“errInfo.no”)
.如果 (response ＝ “0”)
xk.进入 ()
注册成功数 ＝ 注册成功数 ＋ 1
xk.退出 ()
超级列表框1.置标题 (sy, 6, “注册成功”)
bduss ＝ 网页_取单条Cookie (cookie, “BDUSS”, 假)
调试输出 (cookie)
print (#绿色, pn ＋ “,注册成功”)
.如果 (选择框2.选中)
.如果 (Bind_mailbox (pn, 邮箱, 邮箱密码, cookie, 项目id) ＝ 真)
print (#黄色, pn ＋ “>>>>绑定邮箱成功”)
超级列表框1.置标题 (sy, 4, 邮箱)
超级列表框1.置标题 (sy, 5, 邮箱密码)
超级列表框1.置标题 (sy, 6, “绑定邮箱成功”)
xk.进入 ()
.循环判断首 ()
bool ＝ 写到文件 (取运行目录 () ＋ “\百度绑邮箱成功-接口4.txt”, 读入文件 (取运行目录 () ＋ “\百度绑邮箱成功-接口4.txt”) ＋ 到字节集 (pn ＋ “----” ＋ 密码 ＋ “----” ＋ 邮箱 ＋ “----” ＋ 邮箱密码 ＋ “----” ＋ bduss ＋ #换行符))
.循环判断尾 (bool ＝ 假)
xk.退出 ()
.如果真 (选择框3.选中 ＝ 真)
.如果 (Binding_phone (pn, cookie))
超级列表框1.置标题 (sy, 6, “解绑手机成功”)
print (#黄色, pn ＋ “>>>>解绑成功”)
.否则
超级列表框1.置标题 (sy, 6, “解绑手机失败”)
print (#黄色, pn ＋ “>>>>解绑失败”)
.如果结束
.如果真结束
.否则
xk.进入 ()
超级列表框1.置标题 (sy, 6, “绑定邮箱失败”)
.循环判断首 ()
bool ＝ 写到文件 (取运行目录 () ＋ “\百度注册成功-接口4.txt”, 读入文件 (取运行目录 () ＋ “\百度注册成功-接口4.txt”) ＋ 到字节集 (pn ＋ “----” ＋ 密码 ＋ “----” ＋ bduss ＋ #换行符))
.循环判断尾 (bool ＝ 假)
xk.退出 ()
print (#黄色, pn ＋ “>>>>绑定邮箱失败”)
.如果结束
xk.进入 ()
bhjc ＝ bhjc ＋ 1
.如果真 (bhjc ＞ 3 且 拨号boll ＝ 假)
拨号boll ＝ 真
xc.创建 (&_Adsl拨号)
.如果真结束
xk.退出 ()
.判断循环首 (拨号boll)
延迟 (500)
.判断循环尾 ()
.否则
xk.进入 ()
.循环判断首 ()
bool ＝ 写到文件 (取运行目录 () ＋ “\百度注册成功-接口4.txt”, 读入文件 (取运行目录 () ＋ “\百度注册成功-接口4.txt”) ＋ 到字节集 (pn ＋ “----” ＋ 密码 ＋ “----” ＋ bduss ＋ #换行符))
.循环判断尾 (bool ＝ 假)
xk.退出 ()
.如果结束
.否则
xk.进入 ()
注册失败数 ＝ 注册失败数 ＋ 1
超级列表框1.置标题 (sy, 6, data)
xk.退出 ()
.如果结束
.否则
超级列表框1.置标题 (sy, 6, response)
xk.进入 ()
注册失败数 ＝ 注册失败数 ＋ 1
xk.退出 ()
.如果结束
.否则
超级列表框1.置标题 (sy, 6, “短信超时”)
.如果结束
.如果真结束
延迟 (到整数 (延迟.内容))
成品源码：
上一篇：百度贴吧类目提取帐号小工具,提取精准用户,针对性较强V1.1
下一篇：2017年7月26日签到记录贴 |
|
发表于 2017-7-25 11:42:20
发表于 2017-7-27 17:56:13
