in reply to How to Refresh iexplore
use Win32::OLE; my $sh = new Win32::OLE 'Shell.Application' or die "new Shell.App"; my $wins = $sh->Windows; for ( in $wins ) { if ( Win32::OLE->QueryObjectType($_) eq 'IWebBrowser2' ) { if ( $_->FullName =~ /IEXPLORE.EXE/ and $_->LocationName =~ /Welcome to my world/ # page's title # $_->LocationURL =~ /perlmonks.org.*jdporter/ # page's UR +L ) { $_->Refresh; } } }
|
|---|