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