; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x / NT
; Author:         A.N.Other <myemail@nowhere.com>
;
; Script Function:
;	Template AutoIt script.
;
; ----------------------------------------------------------------------------


; ----------------------------------------------------------------------------
; Set up our defaults
; ----------------------------------------------------------------------------

;AutoItSetOption("MustDeclareVars", 1)
;AutoItSetOption("MouseCoordMode", 0)
;AutoItSetOption("PixelCoordMode", 0)
;AutoItSetOption("RunErrorsFatal", 0)
;AutoItSetOption("TrayIconDebug", 1)
;AutoItSetOption("WinTitleMatchMode", 4)


; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------

Run("pdvd6dlx_1102.exe")
WinWaitActive("PowerDVD - InstallShield Wizard", "Extracting Files")
WinWaitActive("InstallShield Wizard","")
WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...","&Next")
Send("!n")
WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...","License Agreement")
Send("!y")
WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...","Installing Following Programs")
Send("!n")
WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...","Customer Information")
Send("!n")
WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...","Choose Destination Location")
Send("!n")
WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...","Select Program Folder")
ControlSetText	( "Select Program Folder", "", "Edit1", "Power DVD" )
Send("!n")
WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...","&Next")
Send("!n")
WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...", "Setup Status")
WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...", "Setup Complete")
Send("{TAB}")
Send("{SPACE}")
Send("{TAB}")
Send("{SPACE}")
Send("{TAB}")
Send("{SPACE}")	
WinWaitActive("CyberLink Registration", "")
MouseClick("left",677, 484, 2)
Run("C:\Arquivos de programas\CyberLink\PowerDVD\PowerDVD.exe")
winWait("Key Activation.","", 2000)
WinActivate("Key Activation.", "")
WinWaitActive("Key Activation.","")
ControlSetText("Key Activation.", "", "Edit1","DXUNB")
Send("{TAB}")
ControlSetText("Key Activation.", "", "Edit2","LH8HF")
Send("{TAB}")
ControlSetText("Key Activation.", "", "Edit3","DAZHF")
Send("{TAB}")
ControlSetText("Key Activation.", "", "Edit4","HDUR5")
Send("{TAB}")
ControlSetText("Key Activation.", "", "Edit5","K9FPR")
Send("{TAB}")
ControlSetText("Key Activation.", "", "Edit6","7E23E")
Send("{TAB}")
Send("{TAB}")
Send("{SPACE}")
WinWaitActive("Activate now","You have updated to the Deluxe version.") 
MouseClick("left",518, 429, 2)