little samie

sub GetCurrentListBoxItem{

Description: Returns the current list box item as text.

How To:

Just call the subroutine:


Cookbook recipe

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

$| = 1;
my $URL = "";
my $seconds;
my $item;

$Win32::OLE::Warn = 3;

$seconds = Navigate($URL);
print "listbox.html page took $seconds seconds to load\n";
$item = GetCurrentListBoxItem();
print "Here is the current item: $item\n";
Further Notes:
This function only returns the current list box item of the first list box it finds in the form.
little samie