Autoit.ES

Código: Seleccionar todo

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("TrayIconHide", 1)

;Instalar Axialis Iconworkshop
dim $txt1, $txt2, $txt3, $txt4, $txt5, $txt6, $txt7, $txt8, $txt9, $txt10, $txt11

$txt1 = "Axialis IconWorkshop 6.0 Installation"
$txt2 = "Axialis Installation - User License Agreement"
$txt3 = "Axialis Installation - Important Information"
$txt4 = "Axialis Installation - Destination Folder"
$txt5 = "Axialis Installation - Installation Successfully Completed"
$txt6 = "Warning: File Associations"
$txt7 = "Axialis IconWorkshop 6.0 - Congratulations!"
$txt8 = "Online Registration Using Internet"
$txt9 = "Axialis IconWorkshop 6.0"
$txt10 = "Axialis IconWorkshop 6.0"
$txt11 = "Welcome to IconWorkshop - Tip of the day"

run("iconworkshop.exe")

WinWait($txt1 ,"Welcome to Axialis IconWorkshop 6.0 Installation!")
If Not WinActive($txt1 ,"Welcome to Axialis IconWorkshop 6.0 Installation!") Then WinActivate($txt1 ,"Welcome to Axialis IconWorkshop 6.0 Installation!")
WinWaitActive($txt1 ,"Welcome to Axialis IconWorkshop 6.0 Installation!")
ControlClick ($txt1 ,"Welcome to Axialis IconWorkshop 6.0 Installation!", "Button1" )

WinWait($txt2 ,"Do you accept all the terms of this User License Agreement?")
If Not WinActive($txt2 ,"Do you accept all the terms of this User License Agreement?") Then WinActivate($txt2 ,"Do you accept all the terms of this User License Agreement?")
WinWaitActive($txt2 ,"Do you accept all the terms of this User License Agreement?")
ControlClick ($txt2 ,"Do you accept all the terms of this User License Agreement?", "Button4" )
ControlClick ($txt2 ,"Do you accept all the terms of this User License Agreement?", "Button1" )

WinWait($txt3 ,"Important Information")
If Not WinActive($txt3 ,"Important Information") Then WinActivate($txt3 ,"Important Information")
WinWaitActive($txt3 ,"Important Information")
ControlClick ($txt3 ,"Important Information", "Button1" )

WinWait($txt4 ,"Destination Folder")
If Not WinActive($txt4 ,"Destination Folder") Then WinActivate($txt4 ,"Destination Folder")
WinWaitActive($txt4 ,"Destination Folder")
ControlClick ($txt4 ,"Destination Folder", "Button2" )

WinWait($txt5 ,"Installation Successfully Completed!")
If Not WinActive($txt5 ,"Installation Successfully Completed!") Then WinActivate($txt5 ,"Installation Successfully Completed!")
WinWaitActive($txt5 ,"Installation Successfully Completed!")
ControlClick ($txt5 ,"Installation Successfully Completed!", "Button1" )

WinWait($txt6 ,"The Icon and Library files can be associated")
If Not WinActive($txt6 ,"The Icon and Library files can be associated") Then WinActivate($txt6 ,"The Icon and Library files can be associated")
WinWaitActive($txt6 ,"The Icon and Library files can be associated")
ControlClick ($txt6 ,"The Icon and Library files can be associated", "Button4" )
ControlClick ($txt6 ,"The Icon and Library files can be associated", "Button7" )

WinWait($txt7 ,"This is the first time you launch Axialis IconWorkshop")
If Not WinActive($txt7 ,"This is the first time you launch Axialis IconWorkshop") Then WinActivate($txt7 ,"This is the first time you launch Axialis IconWorkshop")
WinWaitActive($txt7 ,"This is the first time you launch Axialis IconWorkshop")
ControlSend($txt7 ,"This is the first time you launch Axialis IconWorkshop", "Edit1", "xxxx")
ControlSend($txt7 ,"This is the first time you launch Axialis IconWorkshop", "Edit2", "xxxxxx")
ControlSend($txt7 ,"This is the first time you launch Axialis IconWorkshop", "Edit3", "xxxxxxxx-xxxxx-xxxxx-xxxxx-xxxxx")
ControlClick ($txt7 ,"This is the first time you launch Axialis IconWorkshop", "Button2" )

WinWait($txt8 ,"Join the family of registered Axialis Software ")
If Not WinActive($txt8 ,"Join the family of registered Axialis Software ") Then WinActivate($txt8 ,"Join the family of registered Axialis Software ")
WinWaitActive($txt8 ,"Join the family of registered Axialis Software ")
ControlClick ($txt8 ,"Join the family of registered Axialis Software ", "Button3" )

WinWait($txt9 ,"Yes")
If Not WinActive($txt9 ,"Decline") Then WinActivate($txt9 ,"Yes")
WinWaitActive($txt9 ,"Yes")
ControlClick ($txt9 ,"Yes", "Button1" )

WinWait($txt10 ,"OK")
If Not WinActive($txt10 ,"OK") Then WinActivate($txt10 ,"OK")
WinWaitActive($txt10 ,"OK")
ControlClick ($txt10 ,"OK", "Button1" )

WinWait($txt11 ,"Tip of the day")
If Not WinActive($txt11 ,"Tip of the day") Then WinActivate($txt11 ,"Tip of the day")
WinWaitActive($txt11 ,"Tip of the day")
ControlClick ($txt11 ,"Tip of the day", "Button6" )
ControlClick ($txt11 ,"Tip of the day", "Button1" )

;Cierra Aplicacion
Sleep("200")
ProcessWait("iconworkshop.exe", 10)
ProcessClose("iconworkshop.exe")
Exit