;Version 0.1b of my Microsoft CD SP2 Spammer! 
;Made by NinjaTaiken! Do not steal motherfuckers! www.blizzhackers.com if you wanna meet the almighty NinjaTaiken! 
;or spam me at [email protected] 
;works only with IE!! 
Opt("MouseClickDelay", 3000) 
AutoItSetOption("MouseCoordMode", 0) 
AutoItSetOption("PixelCoordMode", 0) 
AutoItSetOption("RunErrorsFatal", 0) 
Dim $country,$Lang , $EmailNum, $FirstName, $LastName, $Address1, $Address2, $PostalCode, $City, $Phone 
IniRead ( $country, "settings.ini", "general", "Country" ) 
IniRead ( $Lang, "settings.ini", "general", "Language" ) 
IniRead ( $EmailNum, "settings.ini", "general", "EmailNum" ) 
IniRead ( $FirstName, "settings.ini", "address", "FirstName" ) 
IniRead ( $LastName, "settings.ini", "address", "LastName" ) 
IniRead ( $Address1, "settings.ini", "address", "Address1" ) 
IniRead ( $Address2, "settings.ini", "address", "Address2" ) 
IniRead ( $PostalCode, "settings.ini", "address", "PostalCode" ) 
IniRead ( $City, "settings.ini", "address", "City" ) 
IniRead ( $Phone, "settings.ini", "address", "Phone" ) 
$Site="http://www.microsoft.com/windowsxp/downloads/updates/sp2/cdorder/en_us/default.mspx" 
;Start of actions 
Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE", "", @SW_MAXIMIZE) 
sleep(5000) 
ClipPut( $Site ) 
sleep(1000) 
MouseClick("left", 140, 106, 1, 0) 
sleep(1000) 
Send( "^V" ) 
sleep(1000) 
Send( "{ENTER}" ) 
sleep(5000) 
MouseClickDrag( "left", 1016, 262, 1016, 313) 
sleep(1000) 
MouseClick("left", 685, 595, 1, 0) 
Select 
         Case $country=0 
                  MouseClickDrag( "left", 685, 150, 685, 295) 
                  MouseClick("left", 353, 525, 1, 0) 
         Case $country=1 
                  MouseClickDrag( "left", 685, 150, 685, 546) 
                  MouseClick("left", 407, 402, 1, 0) 
         Case $country=2 
                  MouseClickDrag( "left", 685, 150, 685, 169) 
                  MouseClick("left", 421, 526, 1, 0) 
EndSelect 
sleep(500) 
MouseClick("left", 645, 635, 1, 0) 
Select 
         Case $lang=0 
                  MouseClick("left", 535, 580, 1, 0) 
         Case $lang=1 
                  MouseClick("left", 520, 670, 1, 0) 
         Case $lang=2 
                  MouseClick("left", 500, 690, 1, 0) 
         Case $lang=3 
                  MouseClick("left", 435, 325, 1, 0) 
         Case $lang=4 
                  MouseClick("left", 500, 670, 1, 0) 
EndSelect