[Pureblood]

#!/usr/bin/perl -w
use strict;
use Win32::OLE;
use Win32::Console::ANSI;

#Variables
my  $URL    =   undef;#website URL
my  $nTAB   =   undef;#Numbre of {Tab}
my  $tEND   =   undef;#Time, end of Prgramme
my  $NUM    =   1;
my  $IE     =   undef;

#Init
my  $Shell  =   Win32::OLE->new("WScript.Shell");

#Main
print "\n\t-------------------------------------------------\n";
print "\t|\tGoogle Adsense Auto cliCK![GA2CK]\t|\n";
print "\t|\tBy \e[1;37mZ3vil\e[m, [ 'HellSoft' ] Team!\t\t|\n";
print "\t|\tWin32 Only !\t\t\t\t|\n";
print "\t|\t\e[32;41;1m * \e[m Darija & \e[31;44;1m>|<\e[m English\t\t|\n";
print "\n\t'''''''''''''''''''''''''''''''''''''''''''''''''\n";

URL:
print "\e[1;33mGA2CK -\\>\e[m Ktab site/ write your siteweb : ";
chomp($URL=<STDIN>);
goto URL if(!$URL || $URL !~/http:.*/gi);

nTAB:
print "\e[1;33mGA2CK -\\>\e[m Ch7al man TAB/ Number of Keyboard TAB : ";
chomp($nTAB=<STDIN>);
goto nTAB if(!$nTAB || $nTAB !~/\d{1,2}/gi || $nTAB =~/[a-z\s]/gi);

tEND:
print "\e[1;33mGA2CK -\\>\e[m M3ayach bari tsdo?/End time? [HH:MM] : ";
chomp($tEND=<STDIN>);
goto tEND if(!$tEND || $tEND !~/\d{1,2}:\d{1,2}/gi || $tEND =~/[a-z\s]/);

print "\n\t[+]Start Click !\n";
print "\t----------------\n";

while(1){
    print "\e[1;33m[-]\e[m Click [$NUM] at ".localtime()."\n";$NUM++;
    my($H,$M)=split(/:/,$tEND);
    my($s,$m,$h)=(localtime());
    exit if($h>=$H && $m>=$M);
    $IE =   Win32::OLE->new("InternetExplorer.Application");
    $IE->Navigate($URL);
    $IE->{Visible}=1;
    sleep 2;
    foreach(1..$nTAB){
        $Shell->SendKeys("{TAB}");
        sleep 1;
    }
    $Shell->SendKeys("~");
    sleep 3;
    $IE->Quit;
   
}

NOTE : you need the perl compiler to compile this script