'用户注册辅助填写脚本 [chinacars馒头]
'将以下内容复刷到记事本，将文件保存为reg.vbs，然后双击执行文件即可
'注册奖品信息可查看http://home.chinacars.com/ad1/qtdl.aspx
'---------------------------------------------------------------------------------------------------------------
'本脚本用于中国汽车网注册
'请访问http://home.chinacars.com
'用于程序测试之用，请勿用于其它用途，否则后果自负
'-----------------------------------------------------
X=6
Do While X=6
Randomize
Dim URL,UserName,nickName,password,qText,aText,emaildomain,email,mobile,sex,birthday,marryed,picture,pro1,pro2,jiguang1,jiguang2,haveCar,a,aa
'-----参数配置部份(您可以修改部份内容达到你想要的效果)--------------
URL="http://home.chinacars.com/User/RegStep1.aspx"
UserName="" '定义注册名前辍
nickName = "" '昵称
password = gen_key(8) '密码
qText = gen_key(15) '密码提示问题
aText = gen_key(8) '密码提示答案'注意不支持中文，如使用中文需要使用辅助剪帖板
emaildomain = "@163.com" 'e-mail域名
email=gen_key(5)&emaildomain '自动生成一个Email地址
mobile = "13000000000" '手机号
AllowSendSms = "否" '是否同意往您手机上发送CC号码
sex = "女" '性别
birthday = "1976-10-05" '出生日期
marryed = "否" '婚否
picture="D:\a.jpg" '本地图片地址'请在D盘放置一个名为a.jpg做为你上传的头像地址
pro1="" '
pro2="" '
jiguang1="" '
jiguang2="" '
haveCar=1 '有车 0 无车
'------------------------------------------------------------------
'颜色表
strColor="pink,salmonpink,babypink,shockingpink,brown,beige,chocolate,sandybeige,camel,amber,khaki,maroon,green,mossgreen,emeraldgreen,olivegreen,blue,turquoiseblue,cobaltblue,navyblue,aquamarineblue,red,scarlet,mauve,winered,purple,lavender,lilac,antiqueviolet,pansy,white,offwhite,ivory,snowywhite,oysterwhite,gray,charcoalgray,smokygray,mistygray"
'女孩名字
grilName="Abigail,Ada,Adela,Adelaide,Afra,Agatha,Agnes,Alberta,Alexia,Alice,Alma,Althea,Alva,Amanda,Amelia,Amy,Anastasia,Andrea,Angela,Ann,Anna,Annabelle,Antonia,April,Arabela,Arlene,Astrid,Atalanta,Athena,Audrey,Aurora,Barbara,Beatrice,Belinda,Bella,Belle,Bernice,Bertha,Beryl,Bess,Betsy,Betty,Beulah,Beverly,Blanche,Bblythe,Bonnie,Breenda,Bridget,Brook,Camille,Candance,Candice,Cara,Carol,Caroline,Catherine,Cathy,Cecilia,Celeste,Charlotte,Cherry,Cheryl,Chloe,Christine,Claire,Clara,Clementine,Constance,Cora,Coral,Cornelia,Crystal,Cynthia,Daisy,Dale,Dana,Daphne,Darlene,Dawn,Debby,Deborah,Deirdre,Delia,Denise,Diana,Dinah,Dolores,Dominic,Donna,Dora,Doreen,Doris,Dorothy,Eartha,Eden,Edith,Edwina,Eileen,Elaine,Eleanore,Elizabeth,Ella,Ellen,Elma,Elsa,Elsie,Elva,Elvira,Emily,Emma,Enid,Erica,Erin,Esther,Ethel,Eudora,Eunice,Evangeline,Eve,Evelyn,Faithe,Fanny,Fay,Flora,Florence,Frances,Freda,Frederica,Gabrielle,Gail,Gemma,Genevieve,Georgia,Geraldine,Gill,Giselle,Gladys,Gloria,Grace,Griselda,Gustave,Gwendolyn,Hannah,Harriet,Hazel,Heather,Hedda,Hedy,Helen,Heloise,Hermosa,Hilda,Hilary,Honey,Hulda,Ida,Ina,Ingrid,Irene,Iris,Irma,Isabel,Ivy,Jacqueline,Jamie,Jane,Janet,Janice,Jean,Jennifer,Jenny,Jessie,Jessica,Jill,Jo,Joa,Joanna,Joanne,Jocelyn,Jodie,Josephine,Joy,Joyce,Judith,Judy,Julia,Julie,Juliet,June,Kama,Karen,Katherine,Kay,Kelly,Kimberley,Kitty,Kristin,Laura,Laurel,Lauren,Lee,Leila,Lena,Leona,Lesley,Letitia,Lilith,Lillian,Linda,Lindsay,Lisa,Liz,Lorraine,Louise,Lucy,Lydia,Lynn,Mabel,Madeline,Madge,Maggie,Mamie,Mandy,Marcia,Margaret,Marguerite,Maria,Marian,Marina,Marjorie,Martha,Martina,Mary,Maud,Maureen,Mavis,Maxine,Mag,May,Megan,Melissa,Meroy,Meredith,Merry,Michelle,Michaelia,Mignon,Mildred,Mirabelle,Miranda,Miriam,Modesty,Moira,Molly,Mona,Monica,Muriel,Murray,Myra,Myrna,Nancy,Naomi,Natalie,Natividad,Nelly,Nicola,Nicole,Nina,Nora,Norma,Novia,Nydia,Octavia,Odelette,Odelia,Olga,Olive,Olivia,Ophelia,Pag,Page,Pamela,Pandora,Patricia,Paula,Pearl,Penelope,Penny,Philipppa,Phoebe,Phoenix,Phyllis,Polly,Poppy,Prima,Priscilla,Prudence,Queena,Quintina,Rachel,Rae,Rebecca,Regina,Renata,Renee,Rita,Riva,Roberta,Rosalind,Rose,Rosemary,Roxanne,Ruby,Ruth,Sabina,Sally,Sabrina,Salome,Samantha,Sandra,Sandy,Sara,Sarah,Sebastiane,Selena,Sharon,Sheila,Sherry,Shirley,Sibyl,Sigrid,Simona,Sophia,Spring,Stacey,Setlla,Stephanie,Susan,Susanna,Susie,Suzanne,Sylvia,Tabitha,Tammy,Teresa,Tess,Thera,Theresa,Tiffany,Tina,Tobey,Tracy,Trista,Truda,Ula,Una,Ursula,Valentina,Valerie,Vanessa,Venus,Vera,Verna,Veromca,Veronica,Victoria,Vicky,Viola,Violet,Virginia,Vita,Vivian,Wallis,Wanda,Wendy,Winifred,Winni,Xanthe,Xaviera,Xenia,Yedda,Yetta,Yvette,Yvonne,Zara,Zenobia,Zoe,Zona,Zora"
'男孩名字
boyName="Aaron,AbelAbelard,Abraham,Adam,Adrian,Alva,Alex,Alexander,AlanEilian,Albert,Alfred,Andrew,AndyAndrew,Angus,Anthony,Arthur,Austin,BenBen,Benson,Bill,Bob,Brandon,Brant,Brent,Brian,Bruce,Carl,Cary,Caspar,Charles,Cheney,Chris,Christian,Christopher,Colin,Cosmo,Daniel,Dennis,Derek,Donald,Douglas,David,Denny,Edgar,Edward,Edwin,Elliott,Elvis,Eric,Fred,erick,Evan,Francis,Frank,Francis,Franklin,Fred,Gabriel,GabyGabriel,Garfield,Gary,Gavin,George,Gino,Glen,Glendon,Harrison,Hugo,Hunk,Howard,Henry,Ignativs,Ignace,Ignatz,Ivan,Isaac,Jack,Jackson,Jacob,JamesJacob,Jason,Jeffery,Jerome,Jerry,Gerald,Jeremiah,Jerome,Jesse,Jim,James,Jimmy,James,Joe,Joseph,John,Johnny,Joseph,Joshua,Justin,Keith,KenKen,Kenneth,KennyKenneth,Kevin,Lance,LarryLawrence,Laurent,Lawrence,Leander,Lee,Leo,Leander,Leonard,Leopold,Leonard,Leopold,LorenLauren,LoriLorry,Lorin,Luke,Marcus,Marcy,Mark,Marks,Mars,Martin,Matthew,Michael,Mike,Neil,Nicholas,Oliver,Oscar,Paul,Patrick,Peter,Philip,Phoebe,Quentin,Randall,Randal,Randolph,Randy,Randall,Randolph,Reed,Rex,Richard,Richie,Rick,Ricky,Ritchie,Robert,Robin,Robert,Robinson,Robinson,Rock,Roger,Roy,Ryan,Sam,Samson,Samuel,Sammy,Samson,Samuel,Samuel,Scott,SeanJohn,ShawnSean,Sidney,Simon,Solomon,Spark,Spencer,Spike,Stanley,Steven,Stephen,Stuart,Terence,Terry,Terence,Timothy,Tommy,Thomas,Tom,TonyAnthony,Tyler,Van,Vern,Vernon,Vincent,Warren,Wesley,William"
loveword="love,cry,small,heart,fish,dog,cat,moli,larky"
'---生成需要填写的数据---------------------------------------------------------------
a=CInt(10*Rnd(3)) Mod 2
tbirthday=CDate(birthday)
'生成生日数字
BbsYear = Year(tbirthday)
BbsMonth = Month(tbirthday)
If Len(BbsMonth)=1 Then BbsMonth = "0" & BbsMonth
BbsDay = Day(tbirthday)
If Len(BbsDay)=1 Then BbsDay = "0" & BbsDay
DateStr = BbsYear & "-" & BbsMonth & "-" & BbsDay
'定义出错处理程序
If a Then
getbirth=BbsMonth & BbsDay
Else
getbirth=BbsYear & BbsMonth & BbsDay
End if
'顺序 颜色+自定义前辍词+英文名+生日
aa=CInt(5*Rnd(5))
If sex="女" Then
namelist=Split(grilName,",")
Else
namelist=Split(boyName,",")
End If
colorlist=Split(strColor,",")
lovewordList=Split(loveword,",")
Select Case aa
Case 0
name=namelist(Int(UBound(namelist)*Rnd(3)))
tmpname=name
Case 1
name=namelist(Int(UBound(namelist)*Rnd(3)))
getusername=name
Case 2
name=namelist(Int(UBound(namelist)*Rnd(3)))
tmpname=name&getbirth
Case 3
lovewordList=Split(loveword,",")
lword=lovewordList(Int(UBound(lovewordList)*Rnd(3)))
name=namelist(Int(UBound(namelist)*Rnd(3)))
tmpname=lword&""&name&getbirth
Case 4
mcolor=colorlist(Int(UBound(colorlist)*Rnd(3)))
lword=lovewordList(Int(UBound(lovewordList)*Rnd(3)))
name=namelist(Int(UBound(namelist)*Rnd(3)))
tmpname=mcolor&lword&""&name&getbirth
Case Else
name=namelist(Int(UBound(namelist)*Rnd(3)))
tmpname=name
End Select
getusername=tmpname
UserName=UserName&getusername
If UserName="" Then UserName="cars"&gen_key(5)
nickName=nickName&UserName
email=UserName&email
'--开始执行填写---------------------------------------------------
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "中国汽车网-社区-注册"
wshshell.run URL
WScript.Sleep 2000 ' 停顿2秒钟以等待网页全部打开
Message = "本脚本用于中国汽车网注册 作者：不详"& vbCR & vbCR
Message = Message & "本脚本将为您代填写注册信息，最后光标会停留在图片检验码处" & vbCR & vbCR
Message = Message & "本次将填入的信息为" & vbCR & vbCR
Message = Message & " 用户名："& UserName & vbCR
Message = Message & " 密码："& password & vbCR & vbCR
Message = Message & "请您手动输入图片验证码，然后点击提交表单按钮"& vbCR & vbCR
Message = Message & "注册页面打开完成了吗？"
X = MsgBox(Message, vbYesNo+vbExclamation, "注意")
If X = 6 Then
On Error Resume Next
For i=1 To 35
WshShell.SendKeys "{TAB}" ' 跳过35个焦点 ,当注册页面改变后，需重设定此值以定位到合适的输入框
next
WshShell.SendKeys UserName ' 填写用户名
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys nickName ' 填写昵称
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys password ' 填写密码
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys password
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys qText
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys aText ' 问题答案
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys email
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys mobile
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '空格 同意发送
If AllowSendSms = "是" Then WshShell.SendKeys "{ }"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ }" '空格 性别
If sex = "男" Then WshShell.SendKeys "{up}"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
birthday=CDate(birthday)
For i = 1 To year(Now())-year(birthday)
WshShell.SendKeys "{down}"
next
WshShell.SendKeys "{TAB}" '月
For i = 1 To Month(birthday)-1
WshShell.SendKeys "{down}"
next
WshShell.SendKeys "{TAB}" '日
For i = 1 To day(birthday)-1
WshShell.SendKeys "{down}"
next
WshShell.SendKeys "{TAB}" '婚否
If marryed="是" Then WshShell.SendKeys "{down}"
WshShell.SendKeys "{TAB}" '上传照片
WshShell.SendKeys picture
WshShell.SendKeys "{TAB}" '跳过上传照片 按钮
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '省
WScript.Sleep 100
For i=1 To Int(15*Rnd(6))+1
WshShell.SendKeys "{down}"
next
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '市
WScript.Sleep 100
For i=1 To Int(3*Rnd(6))
WshShell.SendKeys "{down}"
next
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '籍
WScript.Sleep 100
For i=1 To Int(15*Rnd(6))+1
WshShell.SendKeys "{down}"
next
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '惯
WScript.Sleep 100
For i=1 To Int(3*Rnd(7))+1
WshShell.SendKeys "{down}"
next
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '有车否
WScript.Sleep 100
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '已加入的俱乐部
WScript.Sleep 100
WshShell.SendKeys "3"
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '其它俱乐部
WshShell.SendKeys "aaa"
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '职业
For i=1 To Int(10*Rnd(8))+1
WshShell.SendKeys "{down}"
next
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '其它
WshShell.SendKeys "aaa"
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '知道途径
WScript.Sleep 100
For i=1 To Int(5*Rnd(9))+1
WshShell.SendKeys "{down}"
next
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '验证码
WScript.Sleep 100
WshShell.SendKeys "{TAB}" '同意协议
WScript.Sleep 100
WshShell.SendKeys chr(32) '空格同意
WScript.Sleep 100
WshShell.SendKeys "+{TAB}" '反跳回验证码
' COOKIES欺骗(服务器使用了某种可逆或非可逆算法，将用户提交的数字经过某种算法转换(未使用session或数据库保存验证码)后跟同时提交的COOKIE值进行对比以达到验证，因此可以使用cookies欺骗方法)
' 有兴趣的朋友可以研究再加上COOKIES欺骗
' 例如数字5330对应COOKIES为CheckCode='nKU0p0yHdko='
' 每次注册时无论验证图片显示如何，一律填写5330
' 然后使用工具将内存中的COOKIES的CheckCode值修改为nKU0p0yHdko=提交后即可通过注册
'----将注册到的写入文件(FSO)-------------------------------------------------
strContent="用户名："&UserName& vbCrLf &"昵称:"&nickName&vbCrLf&"密码:"&password&vbCrLf&"密码提示问题:"&qText&vbCrLf&"密码问题答案:"&aText&vbCrLf&"Email:"&email&vbCrLf&"记录时间"&Now()&vbCrLf
filename="reglog.txt"
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '声明
getfso=fso.FileExists(filename)
if getfso=false then
Set f = fso.CreateTextFile (filename,true,false)
else
Set f=fso.GetFile(filename).OpenAsTextStream(8)
end if
f.WriteLine(strContent)
f.Close
Set fso=Nothing
'-----------------------------------------------------
Else
End If
WScript.Sleep 2000
Message = "刚才注册的用户名密码均已经保存至文件reglog.txt 继续注册吗？(Y/N)"& vbCR & vbCR
X = MsgBox(Message, vbYesNo+vbExclamation, "继续")
Loop
'----随机字符串生成函数------------------------------
Public Function gen_key(digits)
'定义并初始化数组
dim char_array(80),num
'初始化数字
For i = 0 To 9
char_array(i) = CStr(i)
Next
'初始化大写字母
For i = 10 To 35
char_array(i) = Chr(i + 55)
Next
'初始化小写字母
For i = 36 To 61
char_array(i) = Chr(i + 61)
Next
Randomize '初始化随机数生成器。
do while len(output) < digits
num = char_array(Int((62 - 0 + 1) * Rnd + 0))
output = output + num
loop
gen_key = output
End Function
'------------------------------------------------------------------------------------------------------------
直接 下载脚本