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();