Note: To see a content of the demonstrated script click on "Read more" link.
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
AutoItSetOption("TrayIconDebug", 1)
; AutoItSetOption("SendKeyDelay", 20)
global $title='Avira AntiVir Personal - Free Antivirus', $file='avira_antivir_personal_en.exe'
Run ( @ScriptDir&'\'&$file )
WinWaitActive("Avira AntiVir Personal - Free Antivirus", "")
ControlClick ($title, "Continue", "Button1")
WinWaitActive("Avira AntiVir Personal - Free Antivirus", "This wizard will install Avira AntiVir Personal on your computer.")
send ("!n")
WinWaitActive("Avira AntiVir Personal - Free Antivirus", "")
ControlClick ($title, "&Next >", "Button2")
WinWaitActive("Avira AntiVir Personal - Free Antivirus", "Licence agreement Avira AntiVir Personal - Free AntiVirus")
send ("!a")
ControlClick ($title, "&Next >", "Button3")
WinWaitActive("Avira AntiVir Personal - Free Antivirus", "Please confirm that you will use the Avira AntiVir Personal - Free Antivirus only for private and not for commercial purposes.")
ControlClick ($title, "", "Button2")
ControlClick ($title, "&Next >", "Button5")
WinWaitActive("Avira AntiVir Personal - Free Antivirus", "Select the program features you want to install")
ControlClick ($title, "C&omplete", "Button1")
ControlClick ($title, "&Next >", "Button7")
WinWaitActive("Avira AntiVir Personal - Free Antivirus", "Yes, I would like to subscribe to the Avira newsletter")
ControlClick ($title, "", "Button2")
ControlClick ($title, "&Next >", "Button5")
WinWaitActive("Avira AntiVir Personal - Free Antivirus", "Installation complete")
ControlClick ($title, "Show readme.txt", "Button1")
ControlClick ($title, "Finish", "Button12")
Do
WinWait("Configuration wizard")
ControlClick("Configuration wizard", "", "Button2")
WinWaitActive("Configuration wizard", "")
ControlClick("Configuration wizard", "", "Button6")
WinWaitActive("Configuration wizard", "")
ControlClick("Configuration wizard", "", "Button8")
WinWaitActive("Configuration wizard", "")
ControlClick("Configuration wizard", "", "Button10")
WinWaitActive("Configuration wizard", "")
ControlClick("Configuration wizard", "", "Button1")
WinWaitActive("Configuration wizard", "")
ControlClick("Configuration wizard", "", "Button11")
WinWaitActive("Configuration wizard", "You have now specified the basic configuration of Avira AntiVir Personal - Free Antivirus")
ControlClick("Configuration wizard", "", "Button12")
Until 1=2
If you enjoyed this post consider subscribing via or Email
Ok, but you could make it more robust in case another screen tries to take focus during the install. For every call of WinWaitActive("title") you should rewrite it to
ReplyDeleteWinwait("title")
If Not WinActive("title") Then WinActivate("tle")
WinWaitActive("title")
Only use ("title", "visible text") for cases where screens are identical in title from one to next.
Other than that I believe you could make this install invisible and still be successful. When using the Run command be sure to use it like this:
Run("Program", "Working Dir", @SW_HIDE)
This way the windows can be still interacted with using AutoIt, but not visible to the user. Go a step further to make it invisible by using the #NoTrayIcon directive so nothing shows up in the task bar.
The Internet- - because it could present a radical new universe of accommodations for everybody who utilizes it, has additionally impelled the making of many noxious online dangers; one of them being infections. mcafee antivirus program for business
ReplyDeleteBefore running any tidy up program, ensure you have a present information reinforcement. best antivirus 2018
ReplyDeletePretty good post. I just stumbled upon your blog and wanted to say that I have really enjoyed reading your blog posts. Any way I'll be subscribing to your feed and I hope you post again soon. Big thanks for the useful info. Webroot Install
ReplyDeleteIn the event that you don't have any antivirus software right now introduced on your PC and you have been surfing the web,similar webpage
ReplyDeleteWith regards to identification and cancellation of all current malware and for in general elite and convenience, Kaspersky Internet Security 2010 has been given the most elevated scores. Windows USA
ReplyDeletehere are such a large number of computer antivirus programming items accessible today that occasionally it is difficult to realize where to begin. computer problems
ReplyDelete