Okay, der folgende Bot loggt dich bei epvp ein (wenn du username und password auf die deinen setzt)
Und verschickt eine PM an die Person, die dir zuletzt eine PM geschickt hat.
Viel Spaß damit :p
Code:
use LWP;
my $username='';
my $password='';
my $browser;
*$browser = LWP::UserAgent->new( *) unless $browser;
*$browser->cookie_jar( {} );
my ($content, $message, $is_success) = do_POST(
*'http://www.elitepvpers.com/forum/index.php',
*[ 'CookieDate' => "1", 'act' => "Login", 'CODE' => "01", 'UserName' => $username, 'PassWord' => $password ],
);
@lines = split(/\n/,$content);
foreach $test(@lines){
*if($test =~ /^<meta.*url=(.*)'>.*/){
* *$weiterleitung=$1;
* *last;
*}
}
($content, $status, $is_success) = do_GET("http://www.elitepvpers.com/forum/index.php?s=&act=Msg&CODE=01");
@lines = split(/\n/,$content);
foreach $test(@lines){
*if($test=~/.*<td align='left'><a href='.*=Profile&MID=([0-9]*)'>(.*)<\/a> \[/){
* *print "userid: * $1\n";
* *print "username: $2\n";
* *$tehuserid=$1;
* *$tehusername=$2;
* *last;
*}
}
my ($content, $message, $is_success) = do_POST(
*'http://www.elitepvpers.com/forum/index.php',
*[ 'act' => "Msg", 'CODE' => "04", 'MODE' => "01",
* *'OID' => "", 's' => "", 'entered_name'=>$tehusername,
* *'msg_title' => "BOT MESSAGE LOL",'Post'=> "Dies ist eine automatisierte Nachricht\n und sie vollkommen ohne Sinn :o"]
);
sub do_POST {
*# Parameters:
*# *the URL,
*# *an arrayref or hashref for the key/value pairs,
*# *and then, optionally, any header lines: (key,value, key,value)
# *$browser = LWP::UserAgent->new( *) unless $browser;
*my $resp = $browser->post(@_);
*return ($resp->content, $resp->status_line, $resp->is_success, $resp)
* *if wantarray;
*return unless $resp->is_success;
*return $resp->content;
}
sub do_GET {
# *$browser = LWP::UserAgent->new unless $browser;
*my $resp = $browser->get(@_);
*return ($resp->content, $resp->status_line, $resp->is_success, $resp)
* *if wantarray;
*return unless $resp->is_success;
*return $resp->content;
}
Falls du irgendwas nicht verstehst empfiehlt es sich die Seiten die ich oben verlinkt habe zu besuchen :p
Das sollte auf jeder Plattform lauffähig sein, für welche der Perl Interpreter zur Verfügung steht und wo du eine Internetverbindung hast, namentlich wären das:
Quote:
|
Acorn | AIX | Amiga | Apollo | Apple | Atari | AtheOS | BeOS | BSD | BSD/OS | Coherent | Compaq | Concurrent | Cygwin | Darwin | DG/UX | Digital | Digital UNIX | DEC OSF/1 | Domain/OS | DragonFlyBSD | DYNIX/ptx | Embedix | EMC | EPOC | FreeBSD | Fujitsu | GNU Darwin | Guardian | HP | HP-UX | IBM | IRIX | Japanese | JPerl | Linux | LynxOS | Mac OS | Mac OS X | Macintosh | MachTen | MinGW | Minix | MiNT | MorphOS | MPE/iX | MS-DOS | MVS | NetBSD | NetWare | NEWS-OS | NextStep | NonStop | NonStop-UX | Novell | ODT | Open UNIX | OpenBSD | OpenVMS | OS/2 | OS/390 | OS/400 | OSF/1 | OSR | Plan 9 | Pocket PC | PowerMAX | Psion | QNX | Reliant UNIX | RISCOS | SCO | Sequent | SGI | Sharp | Siemens | SINIX | Solaris | SONY | Stratus | Sun | Syllable | Symbian | Tandem | Tivo | Tru64 | Ultrix | UNIX | Unixware | U/WIN | VMS | VOS | Win32 | WinCE | Windows 3.1 | Windows 95/98/Me/NT/2000/XP | z/OS
|
Quelle:
[Only registered and activated users can see links. Click Here To Register...]
Such dir eine aus