ejes consulting

Techincal Consulting Design and Automation


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)
Do While Not objStream.AtEndOfStream
 objIE.Navigate sDictionaryItem

Written by ejes

June 8, 2009 at 2:19 pm

One Response

Subscribe to comments with RSS.

Comments are closed.

%d bloggers like this: