AVG Antivirus + Anti-Spyware v8.0.100 free desatendido.

Info de Softonic.
Potente antivirus gratuito para estar bien protegido y evitar así infecciones de los numerosos virus que circulan hoy en día por la red y, en caso de ser infectado, actuar contra ellos.

Un detalle positivo y del que no pueden presumir todos los programas antivirus es que AVG permite pausar un escaneo para reanudarlo en otro momento.

También es muy cómodo el modo "Custom test" en el que podrás seleccionar las carpetas que desees comprobar a través de un práctico sistema de checkboxes.

AVG Anti-Virus System Free Edition incluye:

    * AVG Resident Protection: monitorización constante del sistema
    * AVG Email Scanner: escanea tu correo electrónico
    * AVG On-Demand Scanner: analiza lo que desees
    * Escaneos preprogramados por fechas u horas
    * Actualización gratuita de la base de datos de virus
    * Función de actualización automática
    * Desinfección automática de archivos infectados
    * AVG Virus Vault: sistema para manejar de forma segura ficheros infectados

Aqui el link para descargar.
http://www.zshare.net/download/14510014bbefe2bc/

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

dim $txt1 ,$txt2

$txt1 = "AVG Free"
$txt2 = "Configuring your AVG protection"

;Instalar AVG antivirus v8.0.1
Run("AVGv8.exe")

WinWait($txt1 ,"Choose your setup language")
If Not WinActive($txt1 ,"Choose your setup language") Then WinActivate($txt1 ,"Choose your setup language")
WinWaitActive($txt1 ,"Choose your setup language")
ControlClick ($txt1 ,"Choose your setup language", "Button1" )

WinWait($txt1,"Don't accept")
If Not WinActive($txt1,"Don't accept") Then WinActivate($txt1,"Don't accept")
WinWaitActive($txt1,"Don't accept")
ControlClick ($txt1,"Don't accept","Button3")

WinWait($txt1,"END USER SOFTWARE LICENSE AGREEMENT")
If Not WinActive($txt1,"END USER SOFTWARE LICENSE AGREEMENT") Then WinActivate($txt1,"END USER SOFTWARE LICENSE AGREEMENT")
WinWaitActive($txt1,"END USER SOFTWARE LICENSE AGREEMENT")
ControlClick ($txt1,"END USER SOFTWARE LICENSE AGREEMENT","Button3")

WinWait($txt1,"Select Installation Type")
If Not WinActive($txt1,"Select Installation Type") Then WinActivate($txt1,"Select Installation Type")
WinWaitActive($txt1,"Select Installation Type")
ControlClick ($txt1,"Select Installation Type","Button5")

WinWait($txt1,"License number:")
If Not WinActive($txt1,"License number:") Then WinActivate($txt1,"License number:")
WinWaitActive($txt1,"License number:")
ControlClick ($txt1,"License number:","Button1")
 
WinWait($txt1,"AVG Security Toolbar")
If Not WinActive($txt1,"AVG Security Toolbar") Then WinActivate($txt1,"AVG Security Toolbar")
WinWaitActive($txt1,"AVG Security Toolbar")
ControlClick ($txt1,"AVG Security Toolbar","Button3")
ControlClick ($txt1,"AVG Security Toolbar","Button1")

WinWait($txt1,"Licensed user:")
If Not WinActive($txt1,"Licensed user:") Then WinActivate($txt1,"Licensed user:")
WinWaitActive($txt1,"Licensed user:")
ControlClick ($txt1,"Licensed user:","Button1")

WinWait($txt1,"Installation is complete!")
If Not WinActive($txt1,"Installation is complete!") Then WinActivate($txt1,"Installation is complete!")
WinWaitActive($txt1,"Installation is complete!")
ControlClick ($txt1,"Installation is complete!","Button3")

WinWait($txt2,"Congratulations")
If Not WinActive($txt2,"Congratulations") Then WinActivate($txt2,"Congratulations")
WinWaitActive($txt2,"Congratulations")
ControlClick ($txt2,"Congratulations","Button7")

WinWait($txt2,"Every 4 hours")
If Not WinActive($txt2,"Every 4 hours") Then WinActivate($txt2,"Every 4 hours")
WinWaitActive($txt2,"Every 4 hours")
ControlClick ($txt2,"Every 4 hours","Button7")

WinWait($txt2,"Read AVG Privacy Policy")
If Not WinActive($txt2,"Read AVG Privacy Policy") Then WinActivate($txt2,"Read AVG Privacy Policy")
WinWaitActive($txt2,"Read AVG Privacy Policy")
ControlClick ($txt2,"Read AVG Privacy Policy","Button7")

WinWait($txt2,"New threats are appearing all the time")
If Not WinActive($txt2,"New threats are appearing all the time") Then WinActivate($txt2,"New threats are appearing all the time")
WinWaitActive($txt2,"New threats are appearing all the time")
ControlClick ($txt2,"New threats are appearing all the time","Button8")

WinWait($txt2,"Register AVG Anti-Virus Free")
If Not WinActive($txt2,"Register AVG Anti-Virus Free") Then WinActivate($txt2,"Register AVG Anti-Virus Free")
WinWaitActive($txt2,"Register AVG Anti-Virus Free")
ControlClick ($txt2,"Register AVG Anti-Virus Free","Button7")

WinWait($txt2,"Congratulations")
If Not WinActive($txt2,"Congratulations") Then WinActivate($txt2,"Congratulations")
WinWaitActive($txt2,"Congratulations")
ControlClick ($txt2,"Congratulations","Button7")

;Cierra Aplicaciones
Sleep("2000")
ProcessWait("avgtray.exe", 10)
ProcessClose("avgtray.exe.exe")
ProcessWait("avgemc.exe", 10)
ProcessClose("avgemc.exe.exe")
ProcessWait("avgwdsvc.exe", 10)
ProcessClose("avgwdsvc.exe.exe")
ProcessWait("avgrsx.exe", 10)
ProcessClose("avgrsx.exe.exe")

Exit