Auto-Instalación de K-Lite Mega Codec Pack 1.61

[vladyk]

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

[BasicOs]

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.

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

[vladyk]

lo estoy

salu2