; ----------------------------------------------------------------------------
; SERIALS
; ----------------------------------------------------------------------------
;PROGRAM SERIAL
$SN_A1 = "serial"							; Serial Number #1
$SN_A2 = ""
$SN_A3 = ""
$SN_A4 = ""
$SN_A5 = ""
$SN_A6 = ""

;CPRM Pack
$SN_B1 = ""
$SN_B2 = ""
$SN_B3 = ""
$SN_B4 = ""
$SN_B5 = ""
$SN_B6 = ""

;DIVX Pack
$SN_C1 = ""
$SN_C2 = ""
$SN_C3 = ""
$SN_C4 = ""
$SN_C5 = ""
$SN_C6 = ""

;DTS Pack
$SN_D1 = ""
$SN_D2 = ""
$SN_D3 = ""
$SN_D4 = ""
$SN_D5 = ""
$SN_D6 = ""

;DTS 96/24 Pack
$SN_E1 = ""
$SN_E2 = ""
$SN_E3 = ""
$SN_E4 = ""
$SN_E5 = ""
$SN_E6 = ""

;DVD-Audio Pack
$SN_F1 = ""
$SN_F2 = ""
$SN_F3 = ""
$SN_F4 = ""
$SN_F5 = ""
$SN_F6 = ""

;EXPRESS Pack
$SN_G1 = ""
$SN_G2 = ""
$SN_G3 = ""
$SN_G4 = ""
$SN_G5 = ""
$SN_G6 = ""

;INTERACTUAL Pack
$SN_H1 = ""
$SN_H2 = ""
$SN_H3 = ""
$SN_H4 = ""
$SN_H5 = ""
$SN_H6 = ""

;MOBILITY Pack
$SN_I1 = ""
$SN_I2 = ""
$SN_I3 = ""
$SN_I4 = ""
$SN_I5 = ""
$SN_I6 = ""

;MPEG4 AVC Pack
$SN_J1 = ""
$SN_J2 = ""
$SN_J3 = ""
$SN_J4 = ""
$SN_J5 = ""
$SN_J6 = ""


; ----------------------------------------------------------------------------
; Registration
; ----------------------------------------------------------------------------
;PROGRAM SERIAL
Run("c:/progra~1/CyberLink/PowerDVD/PowerDVD.exe")
WinWaitActive("Key Activation")
ControlSetText	( "Key Activation", "", "Edit1", $SN_A1 )
ControlSetText	( "Key Activation", "", "Edit2", $SN_A2 )
ControlSetText	( "Key Activation", "", "Edit3", $SN_A3 )
ControlSetText	( "Key Activation", "", "Edit4", $SN_A4 )
ControlSetText	( "Key Activation", "", "Edit5", $SN_A5 )
ControlSetText	( "Key Activation", "", "Edit6", $SN_A6 )
Send("{TAB 7}")
Send("{SPACE}")
WinWaitActive("Activate now")
Send("{SPACE}")
Sleep(3000)

;CPRM Pack
Run("c:/progra~1/CyberLink/PowerDVD/PowerDVD.exe")
WinWaitActive("PowerDVD")
Send("^a")   ;CTRL+A
WinWaitActive("About PowerDVD")
ControlClick	( "About PowerDVD", "", "Button2" )
WinWaitActive("Upgrade Information")
ControlSetText	( "Upgrade Information", "", "Edit1", $SN_B1 )
ControlSetText	( "Upgrade Information", "", "Edit2", $SN_B2 )
ControlSetText	( "Upgrade Information", "", "Edit3", $SN_B3 )
ControlSetText	( "Upgrade Information", "", "Edit4", $SN_B4 )
ControlSetText	( "Upgrade Information", "", "Edit5", $SN_B5 )
ControlSetText	( "Upgrade Information", "", "Edit6", $SN_B6 )
Send("{TAB 7}")
Send("{SPACE}")
WinWaitActive("Activate now")
Send("{SPACE}")
Sleep(3000)

;DIVX Pack
Run("c:/progra~1/CyberLink/PowerDVD/PowerDVD.exe")
WinWaitActive("PowerDVD")
Send("^a")   ;CTRL+A
WinWaitActive("About PowerDVD")
ControlClick	( "About PowerDVD", "", "Button2" )
WinWaitActive("Upgrade Information")
ControlSetText	( "Upgrade Information", "", "Edit1", $SN_C1 )
ControlSetText	( "Upgrade Information", "", "Edit2", $SN_C2 )
ControlSetText	( "Upgrade Information", "", "Edit3", $SN_C3 )
ControlSetText	( "Upgrade Information", "", "Edit4", $SN_C4 )
ControlSetText	( "Upgrade Information", "", "Edit5", $SN_C5 )
ControlSetText	( "Upgrade Information", "", "Edit6", $SN_C6 )
Send("{TAB 7}")
Send("{SPACE}")
WinWaitActive("Activate now")
Send("{SPACE}")
Sleep(3000)

;DTS Pack
Run("c:/progra~1/CyberLink/PowerDVD/PowerDVD.exe")
WinWaitActive("PowerDVD")
Send("^a")   ;CTRL+A
WinWaitActive("About PowerDVD")
ControlClick	( "About PowerDVD", "", "Button2" )
WinWaitActive("Upgrade Information")
ControlSetText	( "Upgrade Information", "", "Edit1", $SN_D1 )
ControlSetText	( "Upgrade Information", "", "Edit2", $SN_D2 )
ControlSetText	( "Upgrade Information", "", "Edit3", $SN_D3 )
ControlSetText	( "Upgrade Information", "", "Edit4", $SN_D4 )
ControlSetText	( "Upgrade Information", "", "Edit5", $SN_D5 )
ControlSetText	( "Upgrade Information", "", "Edit6", $SN_D6 )
Send("{TAB 7}")
Send("{SPACE}")
WinWaitActive("Activate now")
Send("{SPACE}")
Sleep(3000)

;DTS 96/24 Pack
Run("c:/progra~1/CyberLink/PowerDVD/PowerDVD.exe")
WinWaitActive("PowerDVD")
Send("^a")   ;CTRL+A
WinWaitActive("About PowerDVD")
ControlClick	( "About PowerDVD", "", "Button2" )
WinWaitActive("Upgrade Information")
ControlSetText	( "Upgrade Information", "", "Edit1", $SN_E1 )
ControlSetText	( "Upgrade Information", "", "Edit2", $SN_E2 )
ControlSetText	( "Upgrade Information", "", "Edit3", $SN_E3 )
ControlSetText	( "Upgrade Information", "", "Edit4", $SN_E4 )
ControlSetText	( "Upgrade Information", "", "Edit5", $SN_E5 )
ControlSetText	( "Upgrade Information", "", "Edit6", $SN_E6 )
Send("{TAB 7}")
Send("{SPACE}")
WinWaitActive("Activate now")
Send("{SPACE}")
Sleep(3000)

;DVD-Audio Pack
Run("c:/progra~1/CyberLink/PowerDVD/PowerDVD.exe")
WinWaitActive("PowerDVD")
Send("^a")   ;CTRL+A
WinWaitActive("About PowerDVD")
ControlClick	( "About PowerDVD", "", "Button2" )
WinWaitActive("Upgrade Information")
ControlSetText	( "Upgrade Information", "", "Edit1", $SN_F1 )
ControlSetText	( "Upgrade Information", "", "Edit2", $SN_F2 )
ControlSetText	( "Upgrade Information", "", "Edit3", $SN_F3 )
ControlSetText	( "Upgrade Information", "", "Edit4", $SN_F4 )
ControlSetText	( "Upgrade Information", "", "Edit5", $SN_F5 )
ControlSetText	( "Upgrade Information", "", "Edit6", $SN_F6 )
Send("{TAB 7}")
Send("{SPACE}")
WinWaitActive("Activate now")
Send("{SPACE}")
Sleep(3000)

;EXPRESS Pack
Run("c:/progra~1/CyberLink/PowerDVD/PowerDVD.exe")
WinWaitActive("PowerDVD")
Send("^a")   ;CTRL+A
WinWaitActive("About PowerDVD")
ControlClick	( "About PowerDVD", "", "Button2" )
WinWaitActive("Upgrade Information")
ControlSetText	( "Upgrade Information", "", "Edit1", $SN_G1 )
ControlSetText	( "Upgrade Information", "", "Edit2", $SN_G2 )
ControlSetText	( "Upgrade Information", "", "Edit3", $SN_G3 )
ControlSetText	( "Upgrade Information", "", "Edit4", $SN_G4 )
ControlSetText	( "Upgrade Information", "", "Edit5", $SN_G5 )
ControlSetText	( "Upgrade Information", "", "Edit6", $SN_G6 )
Send("{TAB 7}")
Send("{SPACE}")
WinWaitActive("Activate now")
Send("{SPACE}")
Sleep(3000)

;INTERACTUAL Pack
Run("c:/progra~1/CyberLink/PowerDVD/PowerDVD.exe")
WinWaitActive("PowerDVD")
Send("^a")   ;CTRL+A
WinWaitActive("About PowerDVD")
ControlClick	( "About PowerDVD", "", "Button2" )
WinWaitActive("Upgrade Information")
ControlSetText	( "Upgrade Information", "", "Edit1", $SN_H1 )
ControlSetText	( "Upgrade Information", "", "Edit2", $SN_H2 )
ControlSetText	( "Upgrade Information", "", "Edit3", $SN_H3 )
ControlSetText	( "Upgrade Information", "", "Edit4", $SN_H4 )
ControlSetText	( "Upgrade Information", "", "Edit5", $SN_H5 )
ControlSetText	( "Upgrade Information", "", "Edit6", $SN_H6 )
Send("{TAB 7}")
Send("{SPACE}")
WinWaitActive("Activate now")
Send("{SPACE}")
Sleep(3000)

;MOBILITY Pack
Run("c:/progra~1/CyberLink/PowerDVD/PowerDVD.exe")
WinWaitActive("PowerDVD")
Send("^a")   ;CTRL+A
WinWaitActive("About PowerDVD")
ControlClick	( "About PowerDVD", "", "Button2" )
WinWaitActive("Upgrade Information")
ControlSetText	( "Upgrade Information", "", "Edit1", $SN_I1 )
ControlSetText	( "Upgrade Information", "", "Edit2", $SN_I2 )
ControlSetText	( "Upgrade Information", "", "Edit3", $SN_I3 )
ControlSetText	( "Upgrade Information", "", "Edit4", $SN_I4 )
ControlSetText	( "Upgrade Information", "", "Edit5", $SN_I5 )
ControlSetText	( "Upgrade Information", "", "Edit6", $SN_I6 )
Send("{TAB 7}")
Send("{SPACE}")
WinWaitActive("Activate now")
Send("{SPACE}")
Sleep(3000)

;MPEG4 AVC Pack
Run("c:/progra~1/CyberLink/PowerDVD/PowerDVD.exe")
WinWaitActive("PowerDVD")
Send("^a")   ;CTRL+A
WinWaitActive("About PowerDVD")
ControlClick	( "About PowerDVD", "", "Button2" )
WinWaitActive("Upgrade Information")
ControlSetText	( "Upgrade Information", "", "Edit1", $SN_J1 )
ControlSetText	( "Upgrade Information", "", "Edit2", $SN_J2 )
ControlSetText	( "Upgrade Information", "", "Edit3", $SN_J3 )
ControlSetText	( "Upgrade Information", "", "Edit4", $SN_J4 )
ControlSetText	( "Upgrade Information", "", "Edit5", $SN_J5 )
ControlSetText	( "Upgrade Information", "", "Edit6", $SN_J6 )
Send("{TAB 7}")
Send("{SPACE}")
WinWaitActive("Activate now")
Send("{SPACE}")
Sleep(3000)
exit