自动注册网站用户脚本

在群里看到有个哥们求这个功能脚本，就帮他写了一个，调用lwp模块，很简单的应用。

 

#!perl -w


use strict;
use warnings;
use LWP;
use HTTP::Cookies;


my $site='';
my $name='regist_test'; #ID

my $passwd='123123'; #Password

my $email='[e-mail]';
my $browser=LWP::UserAgent->new;
my $new_browser='Mozilla/5.0';
$browser->agent($new_browser);
#$browser->proxy('http','your ip');

$browser->cookie_jar(HTTP::Cookies->new(
                'file'=>'im286.lwp',
                'autosave'=>1));

push @{$browser->requests_redirectable},"POST";

my $regist_url=$site.'/register.aspx?agree=1&createuser=1';
#---------------> register:

#for my $name (@name){

my $response=$browser->post($regist_url,
        [
        username=>$name,
        password=>$passwd,
        password2=>$passwd,
        email=>$email,
        submit=>'创建用户',
        question=>0,
        answer=>'',
        realname=>'',
        idcard=>'',
        mobile=>'',
        phone=>'',
        gender=>0,
        nickname=>'',
        bday_y=>'',
        bday_m=>'',
        bday_d=>'',
        location=>'',
        msn=>'',
        yahoo=>'',
        skype=>'',
        icq=>'',
        qq=>'',
        homepage=>'',
        bio=>'',
        templateid=>0,
        tpp=>0,
        ppp=>0,
        newpm=>'radiobutton',
        pmsound=>1,
        showemail=>1,
        receivesetting=>2,
        receivesetting=>4,
        invisible=>0,
        signature=>,
        sigstatus=>1
        ]
);
die $response->message unless $response->is_success;
print "insert: $name\n";
#sleep 1;

#}