Perl script for IE automation

# Here is a little script that I wrote to do some automatic URL browsing using IE
# what it does is to read proxy server and port from a text named "proxylist.txt", under the same dir,
# then test if that port is active, if it is, then set it as IE's proxy, then it fires IE and browse the url picked #randomly from an array @url; then close IE.
#
# This script runs on Winodws with activestate perl installed. Also you need to install #Win32::IEAutomation module.
#
# proxylist.txt formate should be like the following:
#145.123.202.56 3128
#234.80.225.37 8080

    use Win32::IEAutomation::WinClicker;


use Win32::IEAutomation;


use strict;


use Win32::TieRegistry ( Delimiter=>"/", ArrayValues=>1 );


use Net::Ping;


my $path = "proxylist.txt";


my $ie = Win32::IEAutomation->new( visible => 1, maximize => 1);


my @url = (


    "http://blog.csdn.net/bsdplus/",


    "http://blog.csdn.net/bsdplus/archive/2008/04/16/2296812.aspx",


    "http://alan.blogcn.com",


    "http://alan0203.blogspot.com",


    "http://blog.csdn.net/bsdplus/archive/2007/10/22/1836987.aspx",


    "http://blog.csdn.net/bsdplus/archive/2008/04/13/2289361.aspx",


    "http://blog.csdn.net/bsdplus/archive/2008/04/14/2290446.aspx",


    "http://alan0203.blogspot.com/2008/04/use-proxy-authentication-with-perl.html",


    "http://alan0203.blogspot.com/2007/05/pcbsd-intel.html",


    "http://alan0203.blogspot.com/2007/05/fcitx-pcbsd.html",


    "http://alan0203.blogspot.com/2007/05/pcbsd_08.html",


    "http://alan0203.blogspot.com/2007/05/windowswinxppcbsd.html",


    "http://alan0203.blogspot.com/2007/05/winxppcbsd.html",


    "http://alan0203.blogspot.com/2007/05/blog-post.html"


    ); # end of url array






open(P_SOURCE, "<", $path)


            or die "Couldn't open $path for reading: $! "; #open txt file to read proxy list;


our @proxys = <P_SOURCE>;


    


my $waitSeconds = 2;


my $proxy_title = "Connect to myproxy.org";


my $wait_time = 1;




&set_IE_Proxy();




# start Site navigation


       my $myurl = @url[int(rand(9))]; #pick a url at random;


       sleep(int(rand(120)));


        $ie->gotoURL($myurl,$waitSeconds);

       # uncomment the following if your proxy requires username/password and if ALREADY has them cached.


    # my $clicker = Win32::IEAutomation::WinClicker->new( warnings => 1);


    # $clicker->push_confirm_button_ok($proxy_title, $wait_time);


    $ie->WaitforDone();


    print " URL is: $myurl  ";


    sleep(15);


    $ie->closeIE();




# close(P_SOURCE);






sub set_IE_Proxy() {




        my $proxy_pick = 1 + int(rand(@proxys));


        print " $proxy_pick is $proxy_pick ";


        my @SvrPtCn = split(" ", $proxys[$proxy_pick]); # split line into words;


        print "Proxy server pick is : $SvrPtCn[0]:$SvrPtCn[1] ";    


            my $server = $SvrPtCn[0];


           my $port = $SvrPtCn[1];


           my $enable= 1 ;


            my $override= "127.0.0.1;<local>";


        


        ################################################################


        # start TCP PING to see if the proxy is active on specified port




        my $test = Net::Ping->new('tcp', 5);


        $test->{port_num} =$port;




        if (! $test->ping($server)) {


              print "$server:$port isn't serving HTTP! ";


             &set_IE_Proxy();#next;


        } else {


        print "TCP Ping test ok! Setting IE proxy to $server:$port...... ";


        my $rkey=$Registry->{"CUser/Software/Microsoft/Windows/CurrentVersion/Internet Settings"};


            $rkey->SetValue("ProxyServer", "$server:$port", "REG_SZ");


           $rkey->SetValue("ProxyEnable",pack("L",$enable), "REG_DWORD");


           $rkey->SetValue("ProxyOverride", $override, "REG_SZ");


        print "IE proxy set.  ";


    };


    }; # end of sub set_IE_proxy();