Perl script for IE automation

最新推荐文章于 2026-06-10 09:02:53 发布

原创最新推荐文章于 2026-06-10 09:02:53 发布 · 1.7k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#ie #perl #server #warnings #url

C & Perl 专栏收录该内容

22 篇文章

订阅专栏

本文介绍了一个使用Perl编写的脚本，该脚本能够自动设置IE浏览器的代理服务器，并随机选择网址进行浏览。脚本首先从指定文件中读取代理服务器列表，验证代理的有效性后配置到IE中。

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