Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
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 musing on the Monastery: (9)
As of 2014-07-31 11:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (248 votes), past polls