Chinaunix首页 | 论坛 | 博客
  • 博客访问: 467787
  • 博文数量: 142
  • 博客积分: 4126
  • 博客等级: 上校
  • 技术积分: 1545
  • 用 户 组: 普通用户
  • 注册时间: 2008-02-22 10:03
文章分类

全部博文(142)

文章存档

2011年(8)

2010年(7)

2009年(64)

2008年(63)

我的朋友

分类:

2009-03-23 14:55:18

在群里看到有个哥们求这个功能脚本,就帮他写了一个,调用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='caonima@eyou.com';
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;

#}

阅读(4189) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~