Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Fetch a cookie to disable X10 popup ads

by Mr. Muskrat (Abbot)
on Sep 10, 2002 at 19:39 UTC ( #196792=note: print w/ replies, xml ) Need Help??


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?


Comment on Re: Fetch a cookie to disable X10 popup ads
Download Code
Re: Re: Fetch a cookie to disable X10 popup ads
by RhetTbull (Curate) on Sep 11, 2002 at 00:35 UTC
    Thanks Mr. Muskrat -- I certainly don't mind! I was playing with this after I posted and wondered why sometimes it got the cookie and sometimes it didn't. I didn't realize that Navigate() might return before the page was loaded.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://196792]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2015-07-06 06:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (70 votes), past polls