1 2 3 4 5 6 7 8 9 10 11 12
use strict; use warnings; use Win32::IE::Mechanize; my $ie = Win32::IE::Mechanize->new( visible => 1 ); $ie->get( "http://google.de" ); $ie->set_property( fullscreen => 1 ); sleep(5); $ie->close;
use Win32::IE::Mechanize ':api';
use Win32::IE::Mechanize 'BringWindowToTop';
use Win32::Screenshot 'BringWindowToTop';
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
use strict; use Win32::Screenshot qw(:api :default); use Win32::IE::Mechanize; my $ie = Win32::IE::Mechanize->new( visible => 1 ); $ie->get( "http://google.de" ); for ( ListWindows( ) ) { print $_->{hwnd}.'->'.$_->{title}."\n"; if ( $_->{title} =~ /Windows Internet Explorer/ ) { BringWindowToTop($_->{hwnd}); print "TOP\n"; } } sleep(5); $ie->close;
2011-08-26T13:54:41 KeanDu meinst
Code (perl): (dl )use Win32::Screenshot 'BringWindowToTop';
Das hab ich probiert und es kommt nicht mehr die Fehlermeldung, dass die Funktion nicht vorhanden ist.
Aber es bringt das Fenster leider auch nicht in den Vordergrund.
2011-08-30T13:59:02 GUIfreundIch melde mich wieder, wenn ich etwas zu vermelden habe.