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

#!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" ;

}