[新技术]Perl写的灌水机（转载）

最新推荐文章于 2018-08-13 21:14:04 发布

ThinkHY

最新推荐文章于 2018-08-13 21:14:04 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏：新技术 WEB技术 Perl 代码之美文章标签： perl url ie events apache 2010

本文链接：https://blog.youkuaiyun.com/ThinkHY/article/details/5615321

新技术同时被 3 个专栏收录

45 篇文章

订阅专栏

Perl

44 篇文章

订阅专栏

代码之美

43 篇文章

订阅专栏

本文介绍了一种使用Perl编程语言结合OLE自动化技术的方法，实现对特定论坛页面的自动浏览及发帖功能。通过创建InternetExplorer.Application对象并监听其事件，实现了网页加载完成后的自动填写表单和提交操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!perl
# Demonstrate the programming using OLE with Perl 
# earn money at eetop.cn/bbs
# By Alan
# 2010-05-15

use warnings;
use strict;
use Data::Dumper;
use Win32::OLE qw( EVENTS );

 

my $time;
$|=1;
open LOG,">>guanshui.txt" or die $!;
my $j = 0;
my $url='http://www.eetop.cn/bbs/thread-252321-1-2.html';


Win32::OLE->Initialize(Win32::OLE::COINIT_OLEINITIALIZE);
my $ie = Win32::OLE->new( 'InternetExplorer.Application' ) or die "error starting IE";

$ie->{visible} = 0;
Win32::OLE->WithEvents( $ie, \&Event, 'DWebBrowserEvents2' );
Win32::OLE->Option( Warn => 3 );

 

for (0..1000) {
    $j++;
    print "Nagivate to $url\n";
    $ie->navigate($url);
    Win32::OLE->MessageLoop();
    sleep 65;
}

$ie->Quit() if (defined $ie);

 
sub Event
{
    my ($obj,$Event,@Args) = @_;
    my $IEObject = shift @Args;
 
    #print "$obj $Event @Args/n";
    if ($Event eq 'DocumentComplete') {
        my $Doc = $IEObject->{Document};
        if ( $Doc->{URL} =~ "$url" ) {
            my $elem= $Doc->getElementById('fastpostmessage');
            my $form = $Doc->getElementById('fastpostform');

            $time = localtime();
            $elem->{value} = '我是来灌水挣钱的...,, 拿分走人...By uestc_apache @ '.$time;
            $form->submit();
            print " $j 灌水成功 @ $time\n";
            print LOG "灌水成功 $j \n";
            Win32::OLE->QuitMessageLoop();
        }
    }

    Win32::OLE->QuitMessageLoop() if $Event eq "OnQuit" ;
}