【PHP】Discuz 发贴机器人源码

  • A+
所属分类:lcx

标题:[原创] Discuz 发贴机器人源码,补充在指定楼层发帖回复

内容:
#!/usr/bin/perl
use strict;
use warnings;
use LWP;
use HTTP::Cookies;

my $browser=LWP::UserAgent->new;
my $new_agent='Mozilla/5.0';
$browser->agent($new_agent);
#Proxy:如果你的IP封了,呵呵!
#$browser->proxy('http','your ip');
$browser->cookie_jar(HTTP::Cookies->new(
'file'=>'im286.lwp',
'autosave'=>1));

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

my $login_url='http://www.baidu.com/logging.php?action=login';
my $post_url='http://www.baidu.com/post.php?action=newthread&;fid=1&extra=page%3D1';
my $name='木JJ'; #落伍ID
my $passwd='123456'; #Password

#---------------> Login:
my $response=$browser->post($login_url,
[
formhash=>'6a49b97f',
loginmode=>'normal',
styleid=>'',
cookietime=>'3600',
username=>$name,
password=>$passwd,
questionid=>0,
loginsubmit=>'提 交',
]
);
die $response->message unless $response->is_success;

#-------------->Post:
$response=$browser->post($post_url,
[
formhash=>'9654580e',
readperm=>0,
typeid=>44,
subject=>'这里就是帖子的标题啦',
iconid=>0,
mode=>2,
message=>'这里就是帖子的内容啦,呵呵',
parseurloff=>0,
smileyoff=>0,
bbcodeoff=>0,
usesig=>1,
emailnotify=>0,
addoblog=>0,
topicsubmit=>'发新话题',
]
);
die $response->message unless $response->is_success;
print "Post: [OK]n";

补充再指定楼层发帖代码
#------------->开始抢了:
my $louceng=80; #比如要抢80楼
my $next=$louceng-1; #关注80前一楼
my $key=">#$next

# :
# 如果你抢整数楼的话,比如(80楼),那么下面的那个页面就要跳到第7页,因为你要找到79层
# 如果是别的楼层的话,比如(86楼),直接到第8页就OK了!
my $page;
if (($louceng%10) eq 0) {
$page=($louceng/10)-1; }
else {
$page=int($louceng/10); }

#你关注的帖子
my $read_url="http://www.baidu.com/viewthread.php?tid=1622190&;extra=page%3D1&page=$page";
#一直循环,没找到不罢休. 呵呵!
while(1) {
$response=$browser->get($read_url);
die $response->message unless $response->is_success;

#如果找到了关键字
if($response->content=~ /$key/) {

# 提交你的帖子啦 ...
# 处理post那部分的信息..
# 当然需要改动少许 ..
# $post_url 改成回复的地址

last; #找到了就不跟它玩了, 跳出循环

}
}

文章来源于lcx.cc:【PHP】Discuz 发贴机器人源码

相关推荐: 【VB技巧】VB用空格填充字符串到指定位数

    VB用空格填充字符串到指定位数,VB用空格填充字符串指定位数,VB用空格填充字符到指定位数,VB用空格填充字符指定位数,VB用空格填充到指定位数,VB用空格填充指定位数,VB 空格 填充字符 指定位数,VB 空格 填充到指定位数,VB 空格 填充 指定…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: