Drive IE via OLE
use strict;
use Win32;
use Win32::OLE;
my $ie = Win32::OLE->new('InternetExplorer.Application');
$ie->Navigate("about:blank");
$ie->{Toolbar} = 0;
$ie->{StatusBar} = 0;
$ie->{Width} = 800;
$ie->{Height} = 400;
$ie->{Left} = 0;
$ie->{Top} = 0;
while( $ie->{Busy} ) {
Win32::Sleep(200);
}
$ie->{Visible} = 1;
$ie->Document->Body->{InnerHTML} = '<h1>Please Wait...</h1><img
src="file://c:\gifs\peasant.jpg">';
# Rem put your code here. For testing, we 'll just sleep for a while
sleep(10);
$ie->Quit;
exit 0;
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
henry
Sent: Wednesday, February 23, 2005 5:23 PM
To: perl-win32-users@listserv.ActiveState.com;
perl-win32-admin@listserv.ActiveState.com
Subject: Bitmap Display
OK folks, here's my dilemma. I'm not a TK or Win32:GUI user and am not
sure if they are the right tools for this. I'm trying to display a
bitmap with a JPG/BMP/GIF file to tell people to wait while the script
runs. I'd also like to include a little caption below the pic. I guess
I'm looking to make it look like some of those application startup
splash screens. If anyone knows what's a nice quick way to do this (one
that doesn't include becoming a TK guru) I'd appreciate any help or
pointer. Thanks in advance.
-Henry
_______________________________________________
Perl-Win32-Admin mailing list
Perl-Win32-Admin@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
