TC官方合作论坛

标题: 第六课完善注册机完美版【易键深度出品】 [打印本页]

作者: TCwlxiaohei 时间: 2013-12-31 16:30
标题: 第六课完善注册机完美版【易键深度出品】
本帖最后由 TCwlxiaohei 于 2014-3-15 00:01 编辑

空间注册机
var 线程句柄1,计数=0,换ip计数=0
功能初始化()

URL="http://web.4399.com/user/reg.php"
网页.转到("浏览器0",URL)

功能结束

功能开始注册_点击()
路径=浏览框.获得("浏览框0")
if(路径=="")
      辅助.消息框("错误!没有定义账号保存路径")
else
      线程句柄1=线程.开启("注册机.注册账号","")
endif

控件.有效("开始注册",假)

功能结束

功能停止注册_点击()
控件.有效("开始注册",真)
线程.关闭(线程句柄1)
功能结束

功能注册账号()
var 间隔,账户位数,密码位数,邮箱位数
间隔=编辑框.获得文本("间隔")*1000
while(真)
      换ip计数=换ip计数+1
      换ip数=编辑框.获得文本("换ip数")
      if(换ip计数>换ip数)
         注册机.换ip()
      endif
      返回值=网页.加载完成("浏览器0")
      if(返回值==真)
         if(下拉框.得到选项("账户位数")==0)
            账户位数=12
         endif
         if(下拉框.得到选项("账户位数")==1)
            账户位数=13
         endif
         if(下拉框.得到选项("账户位数")==2)
            账户位数=14
         endif
         if(下拉框.得到选项("账户位数")==3)
            账户位数=15
         endif
         if(下拉框.得到选项("账户位数")==4)
            账户位数=16
         endif
         if(下拉框.得到选项("账户位数")==5)
            账户位数=17
         endif
         if(下拉框.得到选项("密码位数")==0)
            账户位数=12
         endif
         if(下拉框.得到选项("密码位数")==1)
            密码位数=13
         endif
         if(下拉框.得到选项("密码位数")==2)
            密码位数=14
         endif
         if(下拉框.得到选项("密码位数")==3)
            密码位数=15
         endif
         if(下拉框.得到选项("密码位数")==4)
            密码位数=16
         endif
         if(下拉框.得到选项("密码位数")==5)
            密码位数=17
         endif
         if(下拉框.得到选项("邮箱位数")==0)
            邮箱位数=12
         endif
         if(下拉框.得到选项("邮箱位数")==1)
            邮箱位数=13
         endif
         if(下拉框.得到选项("邮箱位数")==2)
            邮箱密码位数=14
         endif
         if(下拉框.得到选项("邮箱位数")==3)
            邮箱位数=15
         endif
         if(下拉框.得到选项("邮箱位数")==4)
            邮箱位数=16
         endif
         if(下拉框.得到选项("邮箱位数")==5)
            邮箱位数=17
         endif

         账号=注册机.用户名生成(账户位数)
         密码=注册机.密码生成(密码位数)
         邮箱=注册机.邮箱生成(邮箱位数)
         姓名=注册机.姓名生成(2)
         身份证=注册机.身份证生成()
         网页.输入元素文本("浏览器0",账号,"id:login_name")
         网页.输入元素文本("浏览器0",密码,"id:login_password")
         网页.输入元素文本("浏览器0",密码,"id:relogin_pwd")
         网页.输入元素文本("浏览器0",邮箱,"id:email")
         网页.输入元素文本("浏览器0",姓名,"id:true_name")
         网页.输入元素文本("浏览器0",身份证,"id:sfz")
         辅助.等待(100)
         while(真)
            url = 网页.得到链接("浏览器0")
            if(url=="http://web.4399.com/user/reg.php")
                  网页.点击元素("浏览器0","id:imageField")
            else
                  text=网页.获取元素信息("浏览器0","text","class:quit global_logout")
                  if(text =="退出")

                     写入值=账号&","&密码
                     注册机.写入账号(写入值)
                     网页.转到("浏览器0","http://web.4399.com/user/reg.php")
                     跳出
                  endif
            endif
            辅助.等待(100)
         endwhile
      endif
      辅助.等待(间隔)
endwhile

功能结束
///////////////////////////////////////////////////////////////////////////////////////////////////
功能写入账号(写入值)
路径=浏览框.获得("浏览框0")
文件句柄=文件.打开(路径)
文件句柄=文件.打开(路径)
文件.末尾写入(文件句柄,写入值&"\r\n")
文件.关闭(文件句柄)
计数=计数+1
标签.设置文本("信息提示",写入值&"注册成功"&"|||||||||已经注册成功:"&计数&"个"&"||||||||||||准备注册下一个......")
功能结束

功能换ip()
错误值=网络.断开("宽带连接")//等待15秒后断开连接
如果(错误值==-1)
      标签.设置文本("信息提示","连接断开,准备重新拨号......")
      辅助.等待(1000*5)
      宽带账号=编辑框.获得文本("账号")
      宽带密码=编辑框.获得文本("密码")
      错误值= 网络.拨号("宽带连接",宽带账号,宽带密码)
      标签.设置文本("信息提示","请稍等,正在拨号中......")
      辅助.等待(1000*20)
      如果(错误值==0)
         标签.设置文本("信息提示","拨号成功,准备继续注册......")
         换ip计数=0
      如果结束
如果结束

功能结束

///////////////////////////////////////////////////////////////////////////////////////////////////
功能用户名生成(参数)
var 大小,结果,结果2,位数
英文数字="1,2,3,4,5,6,7,8,9,0,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
字符串.分割(英文数字,",",英文数字)
数组空间.大小(英文数字,大小)
for(位数=0;位数<参数;位数++)
      n=辅助.随机数(0,35)
      结果=英文数字[n]
      结果2=结果2&结果
endfor
返回 (结果2)
功能结束

功能密码生成(参数)
var 大小,结果,结果2,位数
英文数字="1,2,3,4,5,6,7,8,9,0,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
字符串.分割(英文数字,",",英文数字)
数组空间.大小(英文数字,大小)
for(位数=0;位数<参数;位数++)
      n=辅助.随机数(0,35)
      结果=英文数字[n]
      结果2=结果2&结果
endfor
返回 (结果2)
功能结束

功能邮箱生成(参数)
var 大小,结果,结果2,位数
英文数字="1,2,3,4,5,6,7,8,9,0,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
字符串.分割(英文数字,",",英文数字)
数组空间.大小(英文数字,大小)
for(位数=0;位数<参数;位数++)
      n=辅助.随机数(0,35)
      结果=英文数字[n]
      结果2=结果2&结果
endfor
返回 (结果2&"@163.com")
功能结束

功能姓名生成(参数)
var 姓大小,名大小,结果1,结果2,姓结果,名结果
姓 ="赵、钱、孙、李、周、吴、郑、王、冯、陈、褚、卫、蒋、沈、韩、杨、朱、秦、尤、许、何、吕、施、张、孔、曹、严、华、金、魏、陶、姜、戚、谢、邹、喻、柏、水、窦、章、云苏、潘、葛、奚、范、彭、郎、鲁、韦、昌、马、苗、凤、花、方、俞、任、袁、柳、酆、鲍、史、唐、费、廉、岑、薛、雷、贺、倪、汤、滕、殷、罗、毕、郝、邬、安、常、乐、于、时、傅、皮、卞、齐、康、伍、余、元、卜、顾、孟、平、黄、和、穆、萧、尹、姚、邵、湛、汪、祁、毛、禹、狄、米、贝、明、臧、计、伏、成、戴、谈、宋、茅、庞、熊、纪、舒、屈、项、祝、董、梁、杜、阮、蓝、闵、席、季、麻、强、贾、路、娄、危、江、童、颜、郭、梅、盛、林、刁、钟、徐、邱、骆、高、夏、蔡、田、樊、胡、凌、霍、虞、万、支、柯、昝、管、卢、莫、柯、房、裘、缪、干、解、应、宗、丁、宣、贲、邓、郁、单、杭、洪、包、诸、左、石、崔、吉、钮、龚、程、嵇、邢、滑、裴、陆、荣、翁、荀、羊、于、惠、甄、曲、家、封、芮、羿、储、靳、汲、邴、糜、松、井、段、富、巫、乌、焦、巴、弓、牧、隗、山、谷、车、侯、宓、蓬、全、郗、班、仰、秋、仲、伊、宫、宁、仇、栾、暴、甘、钭、历、戎、祖、武、符、刘、景、詹、束、龙、叶、幸、司、韶、郜、黎、蓟、溥、印、宿、白、怀、蒲、邰、从、鄂、索、咸、籍、赖、卓、蔺、屠、蒙、池、乔、阳、郁、胥、能、苍、双、闻、莘、党、翟、谭、贡、劳、逄、姬、申、扶、堵、冉、宰、郦、雍、却、璩、桑、桂、濮、牛、寿、通、边、扈、燕、冀、浦、尚、农、温、别、庄、晏、柴、瞿、阎、充、慕、连、茹、习、宦、艾、鱼、容、向、古、易、慎、戈、廖、庾、终、暨、居、衡、步、都、耿、满、弘、匡、国、文、寇、广、禄、阙、东、欧、殳、沃、利、蔚、越、夔、隆、师、巩、厍、聂、晁、勾、敖、融、冷、訾、辛、阚、那、简、饶、空、曾、毋、沙、乜、养、鞠、须、丰、巢、关、蒯、相、查、后、荆、红、游、竺、权、逮、盍、益、桓、公、万俟、司马、上官、欧阳、夏侯、诸葛、闻人、东方、赫连、皇甫、尉迟、公羊、澹台、公冶、宗政、濮阳、淳于、单于、太叔、申屠、公孙、仲孙、轩辕、令狐、徐离、宇文、长孙、慕容、司徒、司空"
名 ="梅、阳、林、妮、博、宝、冰、波、贝、才、超、初、成、程、晨、德、富、福、枫、梵、刚、国、桂、罡、华、红、宏、辉、恒、慧、河、鸿、惠、桦、骅、剑、俊、杰、健、嘉、静、洁、娇、纪、宽、苛、珂、灵、兰、良、玲、磊、明、玛、媚、娜、朋、秋、青、琪、勤、晴、容、睿、蓉、胜、烁、堂、唯、伟、威、韦、雯、苇、香、兴、霞、萱、裕、颖、严、勇、阅、彦、宇、韵、燕、艳、乐、雨、洋、志、忠、宗、震、豪、迪、鑫、鹏、俊、军、苋、锦、文、温、明、景、先、芹、聪、辉、德、雪、琳、铭、茗、民、锋、枫、凤、轩、本、山、强、松、杨、阳、白"
字符串.分割(姓,"、",姓)
字符串.分割(名,"、",名)
数组空间.大小(姓,姓大小)//436
数组空间.大小(名,名大小)//128
for(1)
      n=辅助.随机数(0,435)
      结果1=姓[n]
      姓结果=姓结果&结果1
endfor

for(位数=0;位数<参数;位数++)
      n=辅助.随机数(0,127)
      结果2=名[n]
      名结果=名结果&结果2
endfor
返回 (姓结果&名结果)
功能结束

功能身份证生成()
//地址码(前六位数） +出生日期码（第七位至十四位）+顺序码（第十五位至十七位） +校验码（第十八位数）
//顺序码（第十五位至十七位） //对同年、同月、同日出生的人编定的顺序号，顺序码的奇数分配给男性，偶数分配给女性。
//校验码，如果某人的尾号是0－9，都不会出现X，但如果尾号是10，那么就得用X来代替，
//校验码的计算方法

//1、将前面的身份证号码17位数分别乘以不同的系数。从第一位到第十七位的系数分别为：7－9－10－5－8－4－2－1－6－3－7－9－10－5－8－4－2。
//2、将这17位数字和系数相乘的结果相加。
//3、用加出来和除以11，看余数是多少？
//4、余数只可能有0－1－2－3－4－5－6－7－8－9－10这11个数字。其分别对应的最后一位身份证的号码为1－0－X －9－8－7－6－5－4－3－2。
//5、通过上面得知如果余数是2，就会在身份证的第18位数字上出现的是 X 。如果余数是10，身份证的最后一位号码就是罗马数字 2 。
//例如：某男性的身份证号码为【53010219200508011x】，我们看看这个身份证是不是合法的身份证。
//首先我们得出前17位的乘积和【(5*7)+(3*9)+(0*10)+(1*5)+(0*8)+(2*4)+(1*2)+(9*1)+(2*6)+(0*3)+(0*7)+(5*9)+(0*10)+(8*5)+(0*8)+(1*4)+(1*2)】是189，然后用189除以11得出的结果是189/11=17----2，也就是说其余数是2。最后通过对应规则就可以知道余数2对应的检验码是X。所以，可以判定这是一个正确的身份证号码。
var 地址码大小,结果1,地址码,生日码年,生日码月,生日码日,生日码,顺序码,前十七位,校验码
var 第一位,第二位,第三位,第四位,第五位,第六位,第七位,第八位,第九位,第十位,第十一位,第十二位,第十三位,第十四位,第十五位,第十六位,第十七位
地址码="110101,120101,130100,140100,150100,210100,220100,230100,310101,320102"
字符串.分割(地址码,",",地址码)
n=辅助.随机数(0,9)
地址码=地址码[n]

生日码年=辅助.随机数(1900,2000)
生日码月=辅助.随机数(1,12)
if(生日码月<10)
      生日码月="0"&生日码月
endif
生日码日=辅助.随机数(1,26)
if(生日码日<10)
      生日码日="0"&生日码日
endif
生日码=生日码年&生日码月&生日码日

顺序码=辅助.随机数(0,999)
if(顺序码<10)
      顺序码="00"&顺序码
endif
if(顺序码>=10 && 顺序码<100)
      顺序码="0"&顺序码
endif
前十七位=类型.转字符型(地址码)&类型.转字符型(生日码)&类型.转字符型(顺序码)

for(i=0;i<17;i++)
      内容=字符串.截取(前十七位,i,i+1)
      if(i+1==1)
         第一位=内容*7
      endif
      if(i+1==2)
         第二位=内容*9
      endif
      if(i+1==3)
         第三位=内容*10
      endif
      if(i+1==4)
         第四位=内容*5
      endif
      if(i+1==5)
         第五位=内容*8
      endif
      if(i+1==6)
         第六位=内容*4
      endif
      if(i+1==7)
         第七位=内容*2
      endif
      if(i+1==8)
         第八位=内容*1
      endif
      if(i+1==9)
         第九位=内容*6
      endif
      if(i+1==10)
         第十位=内容*3
      endif
      if(i+1==11)
         第十一位=内容*7
      endif
      if(i+1==12)
         第十二位=内容*9
      endif
      if(i+1==13)
         第十三位=内容*10
      endif
      if(i+1==14)
         第十四位=内容*5
      endif
      if(i+1==15)
         第十五位=内容*8
      endif
      if(i+1==16)
         第十六位=内容*4
      endif

      if(i+1==17)
         第十七位=内容*2
      endif
endfor
辅助.等待(100)

和=第一位+第二位+第三位+第四位+第五位+第六位+第七位+第八位+第九位+第十位+第十一位+第十二位+第十三位+第十四位+第十五位+第十六位+第十七位
余数=和%11

if(余数==0)
      校验码=1
endif

if(余数==1)
      校验码=0
endif

if(余数==2)
      校验码="X"
endif

if(余数==3)
      校验码=9
endif

if(余数==4)
      校验码=8
endif

if(余数==5)
      校验码=7
endif

if(余数==6)
      校验码=6
endif

if(余数==7)
      校验码=5
endif

if(余数==8)
      校验码=4
endif

if(余数==9)
      校验码=3
endif

if(余数==10)
      校验码=2
endif
身份证号=前十七位&类型.转字符型(校验码)

返回 (身份证号)
功能结束
///////////////////////////////////////////////////////////////////////////////////////////////////
空间结束
//空间结束语句
视频教程请回复下载

更多视频请访问：www.yjsdwx.com

作者: rainshine 时间: 2013-12-31 18:35
额，姓名生成用得着这么麻烦嘛、、、直接字符串格式化随机ascii码不就得了。

作者: qq462621349 时间: 2013-12-31 19:01
给力,这个必须顶

作者: 80390909 时间: 2013-12-31 20:23
萨打扫打扫打扫打扫打扫打扫打扫打扫打扫

作者: chi98002 时间: 2014-1-1 10:03
工人他

作者: yy4363 时间: 2014-1-1 11:00
qwwwwwwwwwwwwwwww

作者: hdh1194382265 时间: 2014-1-2 21:45
131321

作者: 多多多 时间: 2014-1-5 21:25
.............................

作者: 1592003973 时间: 2014-1-5 22:03
学习学习

作者: zhoubing08 时间: 2014-1-6 19:25
向楼主学习

作者: 美珍子 时间: 2014-1-7 00:35
不错的哦。

作者: 美珍子 时间: 2014-1-7 00:36

rainshine 发表于 2013-12-31 18:35
额，姓名生成用得着这么麻烦嘛、、、直接字符串格式化随机ascii码不就得了。 ...

你写一个ASCII版本的上来。嘿嘿。。

作者: rainshine 时间: 2014-1-8 18:35

美珍子发表于 2014-1-7 00:36
你写一个ASCII版本的上来。嘿嘿。。

我错了，不是ascii= =。。。sorry

作者: 行尘 时间: 2014-1-21 14:43

作者: qq5111059 时间: 2014-1-21 17:18
00
0000000

作者: tcly 时间: 2014-1-22 22:35
ddddddddd

作者: shui3322 时间: 2014-1-23 19:35
回复一下。看看什么内容

作者: xyq502674 时间: 2014-1-23 20:11
第六课完善注册机完美版

作者: jiqiren789 时间: 2014-1-25 01:11
下载好了············

作者: ping1117 时间: 2014-1-27 20:19
写入文本文档保存密码

作者: zhujun8469 时间: 2014-1-27 22:13
下来学习下~

作者: hanwei3@126.com 时间: 2014-2-1 12:20
喜爱喜爱下来看看

作者: dumingpei 时间: 2014-2-1 14:03
完善的脚步制作,真不错

作者: tanhu2 时间: 2014-2-9 19:13
111111111111111

作者: love052001 时间: 2014-2-10 22:25
学习一下

作者: k8net 时间: 2014-2-10 23:19
顶啊,楼主花了点时间啊

作者: sky2810 时间: 2014-2-11 13:44
键盘.按键(66)

作者: sunzhiwei 时间: 2014-2-18 11:55
身份证生成器

作者: lidongxu 时间: 2014-2-18 12:43
看看看

作者: yanqianli 时间: 2014-2-21 21:45
完美的填表也不简单啊

作者: jessesnake 时间: 2014-2-23 18:10
义无反顾知耻而后学

作者: qq289922473 时间: 2014-3-3 10:07
顶顶顶顶顶顶顶顶顶

作者: 13972915568 时间: 2014-3-19 19:56
第六课完善注册机完美版【易键深度出品】

作者: weimeixian 时间: 2014-3-21 17:38

作者: w1251314 时间: 2014-3-23 19:06
我想看的

作者: wdq108 时间: 2014-3-31 09:34
易健深度第6课

作者: micksoft 时间: 2014-4-12 17:15
下载收藏了

作者: 10569657 时间: 2014-4-16 11:10
谢谢分享

作者: 20099371 时间: 2014-4-24 19:52
谢谢分享

作者: dzb123 时间: 2014-4-28 08:12
这个好好学习下

作者: 14223168 时间: 2014-5-9 18:10
学习

作者: shuai0724 时间: 2014-6-1 22:25
第六课完善注册机完美版【易键深度出品

作者: a1648004555 时间: 2014-6-18 15:14
dddddddddddddd

作者: wanglijun3317TC 时间: 2014-6-20 19:40

作者: kim1971 时间: 2014-6-21 12:46

.

作者: 境界程序员 时间: 2014-8-21 03:26
我要下载教程看看，激发兴趣

作者: sunlizhu 时间: 2014-8-22 12:07
2v5r美版【易键深度出品】 [修改] 高级模式 B Color Image Link Quote Code Smilies 2v5r

作者: llf 时间: 2014-8-23 17:59
asdfasdfasdf

作者: xcxzj 时间: 2014-8-30 13:26
·111111111111111111111

作者: lovein 时间: 2014-8-31 02:09
好深

作者: xuehaiwuya 时间: 2014-9-1 16:27
有了你的支持才有更大的动力！

作者: 747851663 时间: 2014-9-2 03:29
asdasdasdasd

作者: czwlxp0508 时间: 2014-9-3 14:20
131321

作者: jisu5201 时间: 2014-9-8 18:03
看看谢谢老师

作者: 472491031 时间: 2014-9-8 23:31

作者: hustmm 时间: 2014-9-18 23:43
222222222

作者: hustmm 时间: 2014-9-19 00:43
额有验证码怎么解决？

作者: 人心难以琢磨 时间: 2014-9-26 23:58
louz楼主威武啊

作者: q0252 时间: 2014-10-1 21:52

1111111111111111111

作者: dypsun 时间: 2014-10-16 14:32
给力,这个必须顶

作者: lzwq1215 时间: 2014-10-25 18:26
学习一下

作者: 无声感慨 时间: 2014-11-12 19:23
好强大的样子，学习了

作者: jodon27 时间: 2014-11-13 13:38
好东西学习一下！

作者: jodon27 时间: 2014-11-13 15:03
好东西试用一下

作者: xaoso 时间: 2014-11-19 09:20
看看了

作者: cjxdn 时间: 2014-11-29 08:26
11111111

作者: wqwwvfbgo 时间: 2014-12-7 20:23
dvfsdvsdxvz

作者: wpwhrar 时间: 2014-12-10 17:21
s**sdfasdf

作者: 694657797 时间: 2014-12-11 21:20
看看啊

作者: kyjxy 时间: 2014-12-21 16:48
课完善注册机完美版【

作者: 17268742 时间: 2014-12-22 14:18

看看

作者: linzhou025 时间: 2014-12-24 10:37
学习学习

作者: 养猪神大户 时间: 2015-2-1 17:23
好好看好好学

作者: 1170079 时间: 2015-3-25 23:40
11111111111

作者: 熊孩子v5 时间: 2015-4-2 22:37
看看

作者: wwkiqpl 时间: 2015-4-7 20:41
善注册机完美版【易

作者: 197354510 时间: 2015-4-7 21:36
【哦皮【破【平【io【

作者: txxlsy 时间: 2015-4-27 09:23
【易键深度出品】

作者: buqiao 时间: 2015-5-22 10:18

作者: ahjslxy 时间: 2015-6-7 10:32
向楼主学习

作者: julele 时间: 2015-7-1 13:11
第六课完善注册机完美版

作者: 6307925 时间: 2015-8-28 23:22
新手学习

作者: cx100115963 时间: 2015-10-22 10:35
实打实的

作者: 15131240422 时间: 2015-10-27 05:19
1312312321

作者: a3g8h6r6jok1 时间: 2015-10-29 17:27
挺有意义有意义有意义有意义与报告表

作者: 7847214 时间: 2015-11-7 00:39
1111111111

作者: MrSixGod 时间: 2015-11-12 18:22
顶起

作者: kgg666 时间: 2016-3-5 01:21
000000000000000

作者: ctytty3 时间: 2016-5-14 03:15
cg54fcg4cfg78fcg8fgcx

作者: zq854581542 时间: 2016-7-18 09:57
易键深度出品

作者: tbmbx2017 时间: 2016-9-11 03:58
牛逼，我是自愧不如

作者: lingfengai2012 时间: 2016-9-12 23:33
AxXX反反复复烦烦烦烦烦烦烦烦烦烦烦烦烦烦烦

作者: pengtusheng 时间: 2016-9-13 00:33
ededed

作者: 15832335855 时间: 2016-9-15 10:11
学习

作者: 94hack 时间: 2017-5-8 15:08
易键深度出品

作者: htb1233 时间: 2017-6-4 17:48
第六课完善注册机完美版【易键深度出品】

作者: zhanshenfz 时间: 2017-8-10 22:06
神马都是浮云，唯有实力才是硬道理

作者: a4029537 时间: 2017-9-5 13:03
让个头更热各供热

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)