帖子就是给人看的，不知是谁脑袋进水了搞这个破玩意！

呵呵

你是新新新新来的吧。

在这里就得守这里的规矩，容不得撒野。
青铜会员巡视路过这里。
完毕。

又一个看帖不回帖的来找骂了

哦漂过

引用:

原帖由 hf76105637 于 2006-9-1 03:27 发表
哦漂过

too

呵呵，以前写的，估计现在用的话改几个参数就可以了。

复制内容到剪贴板

代码:

# by y6cmE 2006.02.19
use LWP;
use HTML::Parser;
use HTTP::Cookies;
use HTTP::Request::Common qw(POST GET);
my $username=shift;
my $password=shift;
my $ua=new LWP::UserAgent;
$ua->cookie_jar(new HTTP::Cookies);
my $request=POST('http://www.cnsw.org/bbs/logging.php?action=login',
[
"loginmode"=>"normal",
"styleid"=>"2",
"cookietime"=>"0",
"loginfield"=>"username",
"username"=>$username,
"password"=>$password,
"loginsubmit"=>"会员登录"
]
);
my $reponse=$ua->request($request)->as_string;

my $request2=GET('http://www.cnsw.org/bbs/forumdisplay.php?fid=13&page=1');
my $gh=$ua->request($request2)->as_string;
my $parser=HTML::Parser->new(api_version=>3);
$parser->handler(start=>\&post,'tagname, attr');
$parser->parse($gh);
$parser->eof;

sub post{
    my($tagname,$attr)=@_;
    if($tagname eq 'a' && $attr->{href} && $attr->{href} !~ /^[\/\?]/){
        if($attr->{href}=~m/viewthread\.php\?tid\=(\d*)\&extra/){
                $attr->{href}=~s/viewthread\.php\?//;
                my $url="http://www.cnsw.org/bbs/post.php?action=reply&fid=13&$attr->{href}&replysubmit=yes";
print "$url\n";
                my $gh=$ua->request(POST "$url",
                [
                "formhash"=>"fe5e738e",
                "subject"=>"",
                "parseurloff"=>"1",
                "smileyoff"=>"1",
                "bbcodeoff"=>"1",
                "usesig"=>"1",
                "emailnotify"=>"1",
                "message"=>"
挣活力~~顶楼主！！
                ",
                "replysubmit"=>"发表帖子",
                ]);
        sleep 15;
        }
    }
}
###my $vov=$ua->request(POST 'http://www.patching.net/bbs/exit.asp');

国有国法，站有站规。

引用:

原帖由 reika 于 2006-9-1 01:55 发表
你是新新新新来的吧。

在这里就得守这里的规矩，容不得撒野。
青铜会员巡视路过这里。
完毕。

白银圣斗士路过

顶