in reply to Fetch a cookie to disable X10 popup ads
++
I had forgotten about the magic cookie.
I've modified your script slightly RhetTbull. I hope that you don't mind. ;)
#!/usr/bin/perl use strict; use warnings; use Win32::OLE; # URL to get the cookie my $x10_url = 'http://www.x10.com/home/optout.cgi?DAY=30&PAGE=http://www.x10.com/x10 +ads1.htm'; # Start IE my $ie = Win32::OLE->new('InternetExplorer.Application') or die "Error getting IE instance: " . Win32::OLE->LastError(); # Show me IE, otherwise I won't know if it worked $ie->{Visible} = 1; # Navigate to the URL $ie->Navigate($x10_url); # sleep until the page is loaded do { sleep(1); } until ($ie->{ReadyState} == 4); $ie->quit;
Anyone care to do it with LWP?
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Fetch a cookie to disable X10 popup ads
by RhetTbull (Curate) on Sep 11, 2002 at 00:35 UTC |
In Section
Cool Uses for Perl