ejes consulting

Techincal Consulting Design and Automation

airmiles.vbs

Copy and paste the following code into a text file and rename it to “airmiles.vbs”  double click and magic.

This script is released for educational purposes only, to use it would break your agreement with Air Miles, and therefore put you at risk for legal action.

Const ForReading=1
Const TristateUseDefault=-2
Const Delay=120
Set objIE=CreateObject("InternetExplorer.Application")
Set objFS=CreateObject("Scripting.FileSystemObject")
Set objFile=objFS.GetFile("dictionary.txt")
Set objStream=objFile.OpenAsTextStream(ForReading,TristateUseDefault)
objIE.Visible=1
Do While Not objStream.AtEndOfStream
 sDictionaryItem=objStream.ReadLine
 objIE.Navigate sDictionaryItem
 WScript.Sleep(Delay*1000)
Loop
objStream.Close
Advertisements

Written by ejes

June 8, 2009 at 2:19 pm

One Response

Subscribe to comments with RSS.


Comments are closed.

%d bloggers like this: