我用来刷在线ID的。Perl脚本
请保存为UTF8编码格式,还有一段自动发帖的脚本,不过考虑到之前把自己的旧论坛刷挂了,还是不要发的好。
代码: 全选
use LWP::UserAgent;
use Encode;
use utf8;
our $main="https://www.phpbbchinese.com";
our $ua = LWP::UserAgent->new;
$ua->cookie_jar( {} );
my $res = $ua->post(
"$main/ucp.php?mode=login",
[
username => '账号',
password => '密码',
autologin => 'on',
redirect => 'index.php',
login => '%E7%99%BB%E5%BD%95',
],
);
#判断是否登陆成功
my $word = encode('utf8', "注册");
if ($res->content =~ /$word/)
{
print "Failed\n";
}
else
{
print "Success\n";
}