tengo un problema con K-Lite Mega Codec Pack 1.61
trate de hacer una instalacion desatendida
Al final me aparece una ventana de internet explorer que no puedo serrar al menos que cargue y ahi lo hago (la quiero integrar a la instalacion desatendida que estoy haciendo para mi y supuestamente cuando se instalara no tendre internet) cuando desconecto mi pc de internet no pudo eliminar esta ventana. Puede ser que con lo que explicaste podre solucionarlo....
aca te mando mi .au3
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.0.1
Autor: Vladyk
Programa: K-Lite Mega Codec Pack 1.61
Data: 06.12.2006
Funcion Script
#ce ----------------------------------------------------------------------------
$title = "Setup - K-Lite Mega Codec Pack"
Run("klmcodec161.exe")
WinWait($title, "Click Next to continue, or Cancel to exit Setup.")
ControlClick($title, "K-Lite Mega Codec Pack 1.61", "&Next >", "Button1")
WinWait($title, "Information")
ControlClick($title, "Information", "&Next >", "Button3")
WinWait($title, "Select Destination Location")
ControlClick($title, "Select Destination Location", "&Next >", "Button2")
WinWait($title, "Select Components")
ControlClick($title, "Select Components", "&Next >", "Button2")
WinWait($title, "Select Start Menu Folder")
ControlClick($title, "Select Start Menu Folder", "&Next >", "Button4")
WinWait($title, "Select Additional Tasks")
ControlClick($title, "Select Additional Tasks", "&Next >", "Button2")
WinWait($title, "Ready to Install")
ControlClick($title, "Ready to Install", "&Install", "Button2")
WinWait("Setup", "")
Send("{ENTER}")
WinWait("Codec Guide: K-Lite Mega Codec Pack | QuickTime and Real Alternative - Windows Internet Explorer", "") ;aca esta el problema
WinClose("Codec Guide: K-Lite Mega Codec Pack | QuickTime and Real Alternative - Windows Internet Explorer") ;y por supuesto aca
WinWait($title, "Done!")
ControlClick($title, "Done!", "&Finish", "Button1")
estoy asi pero espero estar asi
salu2
Auto-Instalación de K-Lite Mega Codec Pack 1.61
- BasicOs
- Site Admin
- Mensajes: 2085
- Registrado: 21 Nov 2006, 19:24
- Ubicación: El Internet - (Canarias, España)
- Contactar:
Link para bajar el K-Lite Mega
Ya tá, te probe el tema lo del Winclose puedes acortarlo como está abajo.
Por otro lado no has tenido en cuenta que al instalar el K-Lite se para porque desinstala otros codec s y programas incompatibles, te busqué una solución:
Te hice un bucle donde revisas los títulos para que hagas para cada programa una desinstalación individualizada, si hay alguna la desinstalas y luego vuelve a revisar desde el principio si hay más. Una vez desinstalados todos, la instalación sigue normal.
Ya tá, te probe el tema lo del Winclose puedes acortarlo como está abajo.
Por otro lado no has tenido en cuenta que al instalar el K-Lite se para porque desinstala otros codec s y programas incompatibles, te busqué una solución:
Te hice un bucle donde revisas los títulos para que hagas para cada programa una desinstalación individualizada, si hay alguna la desinstalas y luego vuelve a revisar desde el principio si hay más. Una vez desinstalados todos, la instalación sigue normal.
Código: Seleccionar todo
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.0.1
Autor: Vladyk - Basicos
Programa: K-Lite Mega Codec Pack 1.61
Data: 06.12.2006
#ce ----------------------------------------------------------------------------
$aProgramas=StringSplit("titulo1","texto1","titulo2","texto3","titulo3","texto3")
$title = "Setup - K-Lite Mega Codec Pack"
Run("klmcodec161.exe")
sleep(5000)
For $i=1 to UBound($aProgramas)-1 step 2
if desinstala($aProgramas[$i],$aProgramas[$i+1]) then $i=1
sleep(2000)
Next
WinWait($title, "Click Next to continue, or Cancel to exit Setup.")
ControlClick($title, "K-Lite Mega Codec Pack 1.61", "&Next >")
WinWait($title, "Information")
ControlClick($title, "Information", "&Next >")
WinWait($title, "Select Destination Location")
ControlClick($title, "Select Destination Location", "&Next >")
WinWait($title, "Select Components")
ControlClick($title, "Select Components", "&Next >")
WinWait($title, "Select Start Menu Folder")
ControlClick($title, "Select Start Menu Folder", "&Next >")
WinWait($title, "Select Additional Tasks")
ControlClick($title, "Select Additional Tasks", "&Next >")
WinWait($title, "Ready to Install")
ControlClick($title, "Ready to Install", "&Install")
WinWait("Setup", "")
Send("{ENTER}")
WinWait("Codec Guide")
WinClose("Codec Guide")
WinWait($title, "Done!")
ControlClick($title, "Done!", "&Finish")
Func Desinstala($titulo,$texto)
select
case $titulo=$aProgramas[1] and $texto=$aProgramas[2])
if WinExists($aProgramas[1],$aProgramas[2]) then
;aqui el codigo para desinstalar el programa
return 1
endif
case $titulo=$aProgramas[3] and $texto=$aProgramas[4])
if WinExists($aProgramas[3],$aProgramas[4) then
;aqui el codigo para desinstalar el programa
return 1
endif
case $titulo=$aProgramas[5] and $texto=$aProgramas[6])
if WinExists($aProgramas[1],$aProgramas[2,) then
;aqui el codigo para desinstalar el programa
return 1
endif
EndSelect
return 0
EndFunc