Usuario y compañia

Pregunta Sin Miedo no te cortes cualquier cosa para empezar - Autoit se comienza facilmente.Para Ordenes o Comandos sueltos. Ver nota como preguntar.
Responder
dekra
Mensajes: 4
Registrado: 04 Feb 2009, 23:04

Usuario y compañia

Mensaje por dekra »

Hola este es mi primer post y espero que no sea el ultimo. La pregunta es, que estoy hacindo mi primer programa desatendido con autoit y llega hasta la pantalla de usuario y compañia, pero no se como rellenar esos campos. Espero me puedan ayudar, Gracias :smt039
Avatar de Usuario
XPyro
Profesional del Autoit
Mensajes: 542
Registrado: 04 Mar 2007, 10:12
Ubicación: México
Contactar:

Re: Usuario y compañia

Mensaje por XPyro »

Recuerda que tienes el AU3Recorder y AutoItMacrogenerator en el menú herramientas de SciTe y de hay puedes modificar el código resultante :smt023 :smt006
Imagen
dekra
Mensajes: 4
Registrado: 04 Feb 2009, 23:04

Re: Usuario y compañia

Mensaje por dekra »

Gracias pero el AU3Recorder me funciona solo para el ordenador donde lo hago, cuando lo intento instalar en otro me falla al final, me podrias decir algun comando para insertar el nombre y demas
Avatar de Usuario
Chefito
Profesional del Autoit
Mensajes: 2035
Registrado: 21 Feb 2008, 18:42
Ubicación: Albacete/Cuenca (España)

Re: Usuario y compañia

Mensaje por Chefito »

Mira el comando ControlSetText (es para introducir texto en cualquier control), ControlClick (para cliquear cualquier control), etc etc.....busca en la ayuda todos los comandos que empiecen por Control..... son los que te interesan para hacer estas cosas de forma muy limpia.
Para conseguir información de los controles y ventanas, utiliza el programa suplementario AutoIt Window Info.

Saludos.
Cita vista en algún lugar de la red: En este mundo hay 10 tipos de personas, los que saben binario y los que no ;).
dekra
Mensajes: 4
Registrado: 04 Feb 2009, 23:04

Re: Usuario y compañia

Mensaje por dekra »

Adjunto el scrip que he hecho y el problema es que se instala todo correcto, pero al iniciar el programa me vuelve a pedir el numero de serie y si lo pogo manualmente funciona bien:

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
Responder