FUNC ZHUCEYY ( )
$TEMPREG = 1
$PASS = GUICTRLREAD ( $INPUT3_2 )
$YZM = GUICTRLREAD ( $INPUT3_3 )
$REG_ID1 = GUICTRLREAD ( $INPUT3_1 )
$REG_ID2 = GUICTRLREAD ( $INPUT3_4 )
IF GUICTRLREAD ( $CHECKBOX3_1 ) = $GUI_CHECKED THEN
IF STRINGISDIGIT ( $REG_ID2 ) THEN
$NAME = $REG_ID1 & $REG_ID2
ELSE
MSGBOX ( 0 , "提示" , "序号框里只能输入数字" , "" , $FRMQQ )
GUICTRLSETSTATE ( $INPUT3_4 , $GUI_FOCUS )
$TEMPREG = 2
$NAME = "123456"
ENDIF
ELSE
$NAME = $REG_ID1
ENDIF
IF GUICTRLREAD ( $CHECKBOX3_3 ) = $GUI_CHECKED THEN
$NAME = _RAN_DOM ( 1 , 8 )
ENDIF
IF GUICTRLREAD ( $CHECKBOX3_4 ) = $GUI_CHECKED THEN
$PASS = _RAN_DOM ( 1 , 9 )
ENDIF
IF $TEMPREG = 1 THEN
$HTTPOBJ.Open ( "GET" , "https://udb.yy.com/register/core.do?time=" & _RAN_DOM ( 2 , 5 ) , FALSE )
$HTTPOBJ.Send ( )
$HTMLSOURCE = $HTTPOBJ.Responsetext
SLEEP ( 3000 )
$TESTRCALL = STRINGREGEXP ( $HTMLSOURCE , "name="rcall" value="(.*?)"" , 3 )
$TEST_A = STRINGREGEXP ( $HTMLSOURCE , "name="(.+?)"" , 3 )
$TEST_B = STRINGREGEXP ( $HTMLSOURCE , "value="(.+?)"" , 3 )
$HTTPOBJ.Open ( "GET" , "https://udb.yy.com/ajax.do?action=existUsername&username1=" & $NAME , FALSE )
$HTTPOBJ.Send ( )
$HTMLSOURCE = $HTTPOBJ.Responsetext
$Z1 = STRINGINSTR ( $HTMLSOURCE , "false" )
IF $Z1 <> 0 THEN
$HTTPOBJ.Open ( "GET" , "https://udb.yy.com/ajax.do?action=checkSecurityCode&ajax=true&securityCode1=" & _URLENCODER ( $YZM , 4 ) & "&time=" & _RAN_DOM ( 2 , 5 ) , FALSE )
$HTTPOBJ.Send ( )
$HTMLSOURCE2 = $HTTPOBJ.Responsetext
$Z2 = STRINGINSTR ( $HTMLSOURCE2 , "true" )
IF $Z2 <> 0 THEN
$JSDO = JS ( $TESTRCALL [ 0 ] , "xzkavoiddeszf12d" )
$HTTPOBJ.Open ( "post" , "https://udb.yy.com/registerV2/" & $JSDO & ".do" , FALSE )
$HTTPOBJ.setRequestHeader ( "Cache-Control" , "no-cache" )
$HTTPOBJ.setRequestHeader ( "Accept-Language" , "zh-cn" )
$HTTPOBJ.setRequestHeader ( "Host" , "udb.yy.com" )
$HTTPOBJ.setRequestHeader ( "Content-Type" , "application/x-www-form-urlencoded" )
$HTTPOBJ.setRequestHeader ( "Referer" , "https://udb.yy.com/register/core.do" )
$HTTPOBJ.Send ( "url=&appid=1&timer4reg=" & $TEST_B [ 2 ] & "&rcall=" & _URLENCODER ( $TESTRCALL [ 0 ] , 4 ) & "&" & $TEST_A [ 6 ] & "=" & $TEST_B [ 1 ] & "&username=" & $NAME & "&password=" & $PASS & "&securityCode1=" & _URLENCODER ( $YZM , 4 ) )
$HTML2 = $HTTPOBJ.responseText
$Z3 = STRINGINSTR ( $HTML2 , "注册成功" )
$Z3_2 = STRINGINSTR ( $HTML2 , "正在登录" )
IF $Z3 <> 0 OR $Z3_2 <> 0 THEN
LOCAL $YYHAO1 = "获取失败，请自己查询。"
LOCAL $TESTYYHAO = STRINGREGEXP ( $HTML2 , "[1-9][0-9]{8}" , 3 )
IF NOT @ERROR THEN $YYHAO1 = $TESTYYHAO [ 0 ]
FILEWRITE ( @DESKTOPDIR & "\注册的歪歪帐号不带YY号.txt" , $NAME & "----" & $PASS & @CRLF )
FILEWRITE ( @DESKTOPDIR & "\注册的歪歪帐号带YY号.txt" , $NAME & "----" & $PASS & "----" & $YYHAO1 & @CRLF )
GUICTRLSETDATA ( $INPUT3_4 , $REG_ID2 + 1 )
IF GUICTRLREAD ( $CHECKBOX3_2 ) = $GUI_CHECKED THEN
$J = STRINGENCRYPT ( 1 , $PASS , "xnu" , 1 , 4 )
$M = _GUICTRLLISTVIEW_GETITEMCOUNT ( $ALVQQ )
GUICTRLCREATELISTVIEWITEM ( $M + 1 & "|" & $NAME & "|" & $J , $ALVQQ )
_GUICTRLLISTVIEW_SETITEMCHECKED ( $ALVQQ , $M , 1 )
SAVACONFIG ( )
ENDIF
NREPIC ( )
GUICTRLSETDATA ( $LABEL3_2 , "恭喜,[" & $NAME & "] 注册成功!" & @CR & "帐号自动保存到桌面上的【注册的歪歪帐号.txt】文件中" )
GUICTRLSETDATA ( $INPUT3_3 , "" )
GUICTRLSETSTATE ( $INPUT3_3 , $GUI_FOCUS )
ELSE
$Z4 = STRINGINSTR ( $HTML2 , "您当前的IP访问太频繁" )
IF $Z4 <> 0 THEN
MSGBOX ( 0 , "提示-注册失败" , "注册失败，您的IP今天已经注册太多帐号了，请明天在注册，或者更换IP后在注册。" )
ELSE
MSGBOX ( 0 , "提示-注册失败" , "注册失败，请把目录下的注册失败记录发给小牛客服检测。" )
FILEWRITE ( "歪歪帐号注册失败记录.txt" , $HTML2 )
ENDIF
ENDIF
ELSE
GUICTRLSETDATA ( $LABEL3_2 , "[" & $NAME & "],注册失败! 验证码填写错误！" )
GUICTRLSETSTATE ( $INPUT3_3 , $GUI_FOCUS )
MSGBOX ( 0 , "注册失败" , "验证码错误！" & $HTMLSOURCE2 )
ENDIF
ELSE
GUICTRLSETDATA ( $LABEL3_2 , "[" & $NAME & "],此用户名已被注册，请换个用户名！" )
GUICTRLSETSTATE ( $INPUT3_1 , $GUI_FOCUS )
MSGBOX ( 0 , "提示" , "此用户名被注册了，请换个用户名" )
ENDIF
ENDIF
ENDFUNC
FUNC NREPIC ( )
DIRCREATE ( @APPDATADIR & "\xnpic" )
$FILE = @APPDATADIR & "\xnpic" & _RAN_DOM ( 1 , 8 ) & ".png"
$HTTPOBJ.open ( "GET" , "http://udb.yy.com/verify/register.do?" & _RAN_DOM ( 2 , 5 ) , FALSE )
$HTTPOBJ.Send ( )
$HTMLSOURCE = $HTTPOBJ.ResponseBody
$OH = OBJCREATE ( "Adodb.Stream" )
$OH.Type = 1
$OH.Mode = 3
$OH.Open
$OH.write ( $HTMLSOURCE )
$OH.SaveToFile ( $FILE )
$OH.Close ( )
SHOWPNG ( $FILE )
GUICTRLSETDATA ( $LABEL3_1 , "提示：验证码获取完成,可以开始注册......" )
ENDFUNC
[复制链接]
发表于 2012-7-22 14:09
|
发表于 2012-7-22 15:42
发表于 2012-7-22 15:50
