- UID
- 15321
- 热情
- 1674
- 人气
- 2300
- 主题
- 17
- 帖子
- 13722
- 精华
- 10
- 积分
- 9005
- 分享
- 0
- 记录
- 0
- 相册
- 0
- 好友
- 4
- 日志
- 0
- 在线时间
- 12868 小时
- 注册时间
- 2003-4-23
- 阅读权限
- 30
- 最后登录
- 2022-8-14
   
升级   80.1% - UID
- 15321
- 热情
- 1674
- 人气
- 2300
- 主题
- 17
- 帖子
- 13722
- 精华
- 10
- 积分
- 9005
- 阅读权限
- 30
- 注册时间
- 2003-4-23
|
本帖最后由 pAtrick 于 2009-11-5 11:26 编辑
pAtrick 的机器人很强大阿,能发给玩玩么~~~
无过 发表于 2009-11-5 11:15  - #!/usr/bin/perl -w
- use strict;
- use WWW::Mechanize;
- my $mech = WWW::Mechanize->new(autocheck => 1);
- $mech->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1');
- $mech->cookie_jar({file => "cookie-jar", autosave => 1});
- die "Please tell me the thread number." if ($#ARGV == -1);
- my $page = 'http://bbs.skykiwi.com/viewthread.php?tid=' . $ARGV[0] . '&extra=page%3D1&frameon=no';
- $mech->get($page);
- my @forms = $mech->forms;
- my $count = @forms;
- if ($count < 2) {
- $mech->get('http://bbs.skykiwi.com/logging.php?action=login');
- $mech->form_name('login');
- $mech->field('username', 'username');
- $mech->field('password', 'password');
- $mech->click('loginsubmit');
- $mech->get($page);
- }
- $mech->form_number(2);
- $mech->field('message', 'Any message you want here');
- $mech->submit();
复制代码 用法:xxxxxx是帖子id |
|