|
发表于 2014-8-18 12:34:58
|
显示全部楼层
安徽省淮南市
.版本 2
.支持库 spec
.支持库 iext
post地址 = “http://udb.duowan.com/regin/” + p + “.do”
post数据 = “url=&appid=1®Type=inner&_vs=” + vs + “&timer4reg=” + timer4reg + “&mno=&username=” + 帐号 + “&password=” + 编辑框2.内容 + “&securityCode1=” + 编码_URL编码 (编辑框3.内容, , 真) + “&rcall=” + rcall + “&vs=” + vs
返回文本 = 网页访问u (post地址, 1, post数据, cookie, , “Content-Type: application/x-www-form-urlencoded”, , , , 编辑框_代理地址.内容)
调试输出 (返回文本)
.如果真 (寻找文本 (返回文本, “正在登录,请稍候”, , 假) ≠ -1)
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (超级列表框1.取表项数 ()))
超级列表框1.置标题 (索引, 1, 帐号)
超级列表框1.置标题 (索引, 2, 编辑框2.内容)
超级列表框1.置标题 (索引, 3, 文本_取出中间文本 (返回文本, “yyno=”, “&”, , ))
超级列表框1.置标题 (索引, 4, “注册成功”)
超级列表框1.置标题 (索引, 5, 编辑框_代理地址.内容)
提示信息 (“注册成功,歪歪号:” + 文本_取出中间文本 (返回文本, “yyno=”, “&”, , ))
标签6.标题 = 到文本 (到整数 (标签6.标题) + 1)
编辑框5.加入文本 (帐号 + “----” + 编辑框2.内容 + “----” + 文本_取出中间文本 (返回文本, “yyno=”, “&”, , ) + #换行符)
帐号路径 = 取运行目录 () + “\yy帐号数据库.txt”
帐号数据1 = 到文本 (读入文件 (帐号路径))
帐号数据1 = 帐号数据1 + 编辑框5.内容
写到文件 (帐号路径, 到字节集 (帐号数据1))
编辑框5.内容 = “”
y = y + 1
.如果真结束
我自己的源码 采纳吧 |
评分
-
查看全部评分
|