Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: Fetch a cookie to disable X10 popup ads

by Mr. Muskrat (Canon)
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 = ' +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
    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?

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2020-01-29 12:17 GMT
Find Nodes?
    Voting Booth?