BotSMF [SPAM]

#!c:/perl/bin
#c0dex by m0x.lk || Fucker Team
#Greetz: RemoteExecution | Friends
#SpamerForo Priv8

use Win32::OLE;
use Win32::SAM;

my $pass;
my $user;
my $host;
my $post;
my $title;
my $cont;

system ("clear");
system ("cls");
system ("color f3");

print "\n[+]c0dex by m0x.lk || Fucker Team\n";
print "[+]Greetz: RemoteExecution | Friends\n";
print "[+]SpamerForo Priv8\n";
sleep 1;

$| = 1;

$Win32::OLE::Warn = 3;

print "[+]Host: ";
$host=<STDIN>;
print "[+]User: ";
$user=<STDIN>;
print "[+]Pass: ";
$pass=<stdin>;

print "[+]Login...\n";

StartIE();


Navigate("$host/index.php?action=logout");
SetEditBox("user","$user");
SetEditBox("passwrd","$pass");
ClickFormButton("Ingresar");

print "[+]Link Post: ";
$post=<STDIN>;
print "[+]Asunto Post: ";
$title=<STDI>;
print "[+]Mensaje Post: ";
$cont=<STDIN>;

print "\n[+]Spaming...\n";

spam:;
Navigate("$host/$postz");
SetEditBox("subject","$title");
SetEditBox("message","$cont");
ClickFormButton("Publicar")
goto spammm;