Auto Installation using Autoit

[ngocdaica]

I create a setup file to install Kaspersky Anti-virus automatically.

Code here... but when it working for a half, the later steps is not work!

expandcollapse popup

#NoTrayIcon
Run("kav6.0.2.621en.exe")
WinWaitActive("Kaspersky Anti-Virus 6.0", "We advise you to close all other applications before continuing.")
Send("!n")
WinWaitActive("Kaspersky Anti-Virus 6.0", "Standard End User License Agreement")
Send("!a")
Send("!n")
WinWaitActive("Kaspersky Anti-Virus 6.0", "To install in this folder")
Send("!n")
WinWaitActive("Kaspersky Anti-Virus 6.0", "Choose the setup type that best suits your needs")
Send("{SPACE}")
WinWaitActive("Kaspersky Anti-Virus 6.0", "Click Install to begin the installation")
Send("!i")
WinWaitActive("Kaspersky Anti-Virus 6.0", "Installation in progress")
WinWaitActive("Kaspersky Anti-Virus 6.0", "Installation completed successfully")
Send("!n")

;It being disable from here....

WinWaitActive("Setup Wizard: Kaspersky Anti-Virus", "&Activate using the activation code")
Send("!k")
Send("!n")
WinWaitActive("Setup Wizard: Kaspersky Anti-Virus", "B&rowse")
Send("!r")
WinWaitActive("Please specify the license key file name", "Look &in:")
Send("KAV.key")
Send("!o")
WinWaitActive("Setup Wizard: Kaspersky Anti-Virus", "Qihoo Special Deal (14)")
Send("!n")
WinWaitActive("Setup Wizard: Kaspersky Anti-Virus", "License key information")
Send("!n")
WinWaitActive("Setup Wizard: Kaspersky Anti-Virus", "B&asic protection (recommended for most users)")
Send("!n")
WinWaitActive("Setup Wizard: Kaspersky Anti-Virus", "Au&tomatically")
Send("!m")
Send("!s")
WinWaitActive("Settings: Update", "LAN Settings")
Send("^{TAB}")
WinWaitActive("Settings: Update", "Update source")
Send("{TAB}")
Send("{SPACE}")
Send("!a")
WinWaitActive("Select update source", "C:\Documents and Settings")
Send("{DOWN}")
Send("{DOWN}")
Send("{RIGHT}")
Send("{DOWN}")
Send("{RIGHT}")
Send("{DOWN}")
Send("!o")
WinWaitActive("Settings: Update", "Update source")
Send("!o")
WinWaitActive("Setup Wizard: Kaspersky Anti-Virus", "Au&tomatically")
Send("!u")
Sleep(30000)
Send("!c")
WinWaitActive("Setup Wizard: Kaspersky Anti-Virus", "Au&tomatically")
Send("!n")
WinWaitActive("Setup Wizard: Kaspersky Anti-Virus", "At program &startup")
Send("!s")
Send("!n")
WinWaitActive("Setup Wizard: Kaspersky Anti-Virus", "Enable &password protection")
Send("!n")
WinWaitActive("Setup Wizard: Kaspersky Anti-Virus", "&Restart computer")
Send("!f")

Help me... Great thanks!

[MHz]

Paste the function below at the bottom of your script and then add an underscore in front of every WinWaitActive() function in your script. Give that a test and see how it goes.

Func _WinWaitActive($title, $text = '')
    WinWait($title, $text)
    WinActivate($title, $text)
    WinWaitActive($title, $text)
EndFunc

Edited April 10, 2007 by MHz

[ngocdaica]

Thank you very much. I will try again.

Meet you soon. Best regards!

[ngocdaica]

It still disable from there. Can you tell me another method? I don't know why?

Thank you very much!

[MHz]

I would use an easier method as discussed here. You can silent install the msi file and then add the registry entries. Just a few lines of code should do it fine.

Your current method is unreliable even if you remove the bug so try the one just mentioned.