Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Fetch a cookie to disable X10 popup ads

by RhetTbull (Curate)
on Sep 10, 2002 at 03:19 UTC ( #196522=snippet: print w/ replies, xml ) Need Help??

Description: Use this script on Windows machines to fetch a cookie from x10.com that disables the annoying popup ads for 30 days. It's embarrassingly simple but does the job. You have to fetch a new cookie every 30 days so make this a Scheduled Task in Windows to run once a month. Make sure you have the script run as your user ID so the cookie goes to the right place.

Update: Well, they lied. Even though this successfully fetches the cookie, I still get the annoying pop-ups from time to time. It seems to happen less frequently but of course that's subjective so I'm not sure. Rotten scoundrels!

#!/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
+/x10ads1.htm';

#gimme an IE
my $ie = Win32::OLE->new('InternetExplorer.Application') 
    or die "Error getting IE instance: " . Win32::OLE->LastError();

#gimme a cookie, not sure about error checking on this
$ie->Navigate($x10_url);
Comment on Fetch a cookie to disable X10 popup ads
Download Code
Replies are listed 'Best First'.
Re: Fetch a cookie to disable X10 popup ads
by Mr. Muskrat (Abbot) on Sep 10, 2002 at 19:39 UTC

    ++
    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?

      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.
Re: Fetch a cookie to disable X10 popup ads
by warthurton (Sexton) on Sep 26, 2002 at 21:41 UTC
    I wish I could do the same with casino-on-net.

Back to Snippets Section

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2015-07-28 04:11 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 (252 votes), past polls