用Perl下载RapidShare上的File.

Go to to see more instructions. 欢迎大家提改进的建议.

Quick start:
copy rapid share links to @rsURL

use strict;
use Win32::IEAutomation::RapidShare;

my @rsURL = qw(
#
);

my $ie = Win32::IEAutomation::RapidShare->new(
    visible => 0,
    debug => 1,
    loopServer => 'yes',
    links => \@rsURL,
    stopIfBroken => 'yes'
);

#$ie->add_rslinks( file => 'rsList.txt' );
#my $url = '';
#$ie->add_rslinks( url => $url );




$ie->check_rslinks();
$ie->downloadrs();