little samie

Index   Next   Previous

use Win32::OLE;
use Win32::SAM;
#use Win32::Slingshot;

$| = 1;
my $URL = "http://www.google.com/";
my $seconds;

$Win32::OLE::Warn = 3;

StartIE();
$seconds = Navigate($URL);
print "Google Page took $seconds seconds to load\n";
SetEditBox("q","Presidents");
$seconds = ClickFormButton("btnG");
print "Query Page took $seconds seconds to load\n";


Going through the code line by line...

#use Win32::Slingshot

The only interesting thing about this line of code is that it contains a comment.  Comments are started with the pound sign (#).  The PERL interpreter ignores any lines of code that are started with the pound sign (#).

The Slingshot module contains a samie GUI that I am giving away for an $11 donation.

Index   Next   Previous

little samie