Jump to content

AutoIT Script Collection - Contributions Only


FuzzBall

Recommended Posts

AutoIt script for [b]'Nero 7.2.3.2b'[/b]

The script was put together by the initial efforts of 'salavinder' & 'glowy' and some input from myself.

[attachment=13522:attachment] Edited by Sanjay
Link to comment
Share on other sites

  • 3 weeks later...

This is my first Auto it Script, so I hope every thing could work fine for you as it is worked for me

Webroot SpySweeper 5
-----------------------------------
Setup file name must be: SpySweeper.exe
use the following script:
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('SpySweeper.exe')
WinWait("Setup - Spy Sweeper","Welcome to the Spy S")
If Not WinActive("Setup - Spy Sweeper","Welcome to the Spy S") Then WinActivate("Setup - Spy Sweeper","Welcome to the Spy S")
WinWaitActive("Setup - Spy Sweeper","Welcome to the Spy S")
Send("{ENTER}")
WinWait("Version Guard","&Check for Updates")
If Not WinActive("Version Guard","&Check for Updates") Then WinActivate("Version Guard","&Check for Updates")
WinWaitActive("Version Guard","&Check for Updates")
Send("{RIGHT}{ENTER}")
WinWait("Setup - Spy Sweeper","Please read the foll")
If Not WinActive("Setup - Spy Sweeper","Please read the foll") Then WinActivate("Setup - Spy Sweeper","Please read the foll")
WinWaitActive("Setup - Spy Sweeper","Please read the foll")
Send("{TAB}{UP}{TAB}{TAB}{ENTER}")
WinWait("Setup - Spy Sweeper","Select Your Install ")
If Not WinActive("Setup - Spy Sweeper","Select Your Install ") Then WinActivate("Setup - Spy Sweeper","Select Your Install ")
WinWaitActive("Setup - Spy Sweeper","Select Your Install ")
Send("{DOWN}{TAB}{TAB}{ENTER}")
WinWait("Setup - Spy Sweeper","Select Destination L")
If Not WinActive("Setup - Spy Sweeper","Select Destination L") Then WinActivate("Setup - Spy Sweeper","Select Destination L")
WinWaitActive("Setup - Spy Sweeper","Select Destination L")
Send("{TAB}{TAB}{TAB}{ENTER}")
WinWait("Setup - Spy Sweeper","Select Additional Ta")
If Not WinActive("Setup - Spy Sweeper","Select Additional Ta") Then WinActivate("Setup - Spy Sweeper","Select Additional Ta")
WinWaitActive("Setup - Spy Sweeper","Select Additional Ta")
Send("{DOWN}{SPACE}{TAB}{TAB}{TAB}{TAB}{ENTER}")
WinWait("Setup - Spy Sweeper","Setup is now ready t")
If Not WinActive("Setup - Spy Sweeper","Setup is now ready t") Then WinActivate("Setup - Spy Sweeper","Setup is now ready t")
WinWaitActive("Setup - Spy Sweeper","Setup is now ready t")
Send("{TAB}{TAB}{TAB}{TAB}{ENTER}")
WinWait("Setup - Spy Sweeper","Completing the Spy S")
If Not WinActive("Setup - Spy Sweeper","Completing the Spy S") Then WinActivate("Setup - Spy Sweeper","Completing the Spy S")
WinWaitActive("Setup - Spy Sweeper","Completing the Spy S")
Send("{DOWN}{ENTER}")[/codebox]
Daemon Tools 4.3
---------------------------
SPTD must be installed before run this one
you can run it from SVCPACK before the last restart
then you can run this script:
Setup file must be named: DAEMONTools.exe
the script is:
[codebox]Run('DAEMONTools.exe')
WinWait("DAEMON Tools 4.03HE (32 bit)","Welcome to the DAEMO")
If Not WinActive("DAEMON Tools 4.03HE (32 bit)","Welcome to the DAEMO") Then WinActivate("DAEMON Tools 4.03HE (32 bit)","Welcome to the DAEMO")
WinWaitActive("DAEMON Tools 4.03HE (32 bit)","Welcome to the DAEMO")
Send("{ENTER}")
WinWait("DAEMON Tools 4.03HE (32 bit) ","Please review the li")
If Not WinActive("DAEMON Tools 4.03HE (32 bit) ","Please review the li") Then WinActivate("DAEMON Tools 4.03HE (32 bit) ","Please review the li")
WinWaitActive("DAEMON Tools 4.03HE (32 bit) ","Please review the li")
Send("{TAB}{TAB}{ENTER}")
WinWait("DAEMON Tools 4.03HE (32 bit) ","Choose which feature")
If Not WinActive("DAEMON Tools 4.03HE (32 bit) ","Choose which feature") Then WinActivate("DAEMON Tools 4.03HE (32 bit) ","Choose which feature")
WinWaitActive("DAEMON Tools 4.03HE (32 bit) ","Choose which feature")
Send("{DOWN}{SPACE}{DOWN}{SPACE}{TAB}{TAB}{ENTER}")
WinWait("DAEMON Tools 4.03HE (32 bit) ","Choose Install Locat")
If Not WinActive("DAEMON Tools 4.03HE (32 bit) ","Choose Install Locat") Then WinActivate("DAEMON Tools 4.03HE (32 bit) ","Choose Install Locat")
WinWaitActive("DAEMON Tools 4.03HE (32 bit) ","Choose Install Locat")
Send("{TAB}{TAB}{TAB}{ENTER}")
WinWait("DAEMON Tools 4.03HE (32 bit) ","Completing the DAEMO")
If Not WinActive("DAEMON Tools 4.03HE (32 bit) ","Completing the DAEMO") Then WinActivate("DAEMON Tools 4.03HE (32 bit) ","Completing the DAEMO")
WinWaitActive("DAEMON Tools 4.03HE (32 bit) ","Completing the DAEMO")
Send("{SPACE}{TAB}{TAB}{ENTER}")[/codebox]
[url="http://www.free-codeboxcs.com/download/Cole2k_Media_Nero_Audio_Plugin_Pack.htm"][color="#5d7695"]Cole2k Media Nero Audio Plugin Pack 1.5.3[/color][/url]
--------------------------------------------------------------------------
This package features a number of plugins to allow [url="http://www.free-codeboxcs.com/download/Nero_Burning_ROM.htm"][color="#5d7695"]any[/color][/url] nero version to burn a variety of formats to disc which it doesn't normally support.
download from [url="http://www.free-codeboxcs.com/download_soft.php?d=991&s=457"]here[/url]
Setup files must be named (Setup)
then use the following codebox:
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('Setup.exe')
WinWait("Cole2k Media - Nero Audio Plugin Pack Setup "," Cole2k Media © 200")
If Not WinActive("Cole2k Media - Nero Audio Plugin Pack Setup "," Cole2k Media © 200") Then WinActivate("Cole2k Media - Nero Audio Plugin Pack Setup "," Cole2k Media © 200")
WinWaitActive("Cole2k Media - Nero Audio Plugin Pack Setup "," Cole2k Media © 200")
Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{SPACE}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOW
N}{DOWN}{DOWN}{TAB}{ENTER}")
WinWait("Cole2k Media - Nero Audio Plugin Pack Setup ","Installation complet")
If Not WinActive("Cole2k Media - Nero Audio Plugin Pack Setup ","Installation complet") Then WinActivate("Cole2k Media - Nero Audio Plugin Pack Setup ","Installation complet")
WinWaitActive("Cole2k Media - Nero Audio Plugin Pack Setup ","Installation complet")
Send("{ENTER}")[/codebox]
Incredmail Latest version
--------------------------------------
this application really was a little bit hard to crack it
any way, this application has many features that I really like, so I made my auto it for it ;)
it will be more then one in sequence:
- Main application
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('IncrediMailSetup.exe')
WinWait("Welcome","Welcome to IncrediMa")
If Not WinActive("Welcome","Welcome to IncrediMa") Then WinActivate("Welcome","Welcome to IncrediMa")
WinWaitActive("Welcome","Welcome to IncrediMa")
Send("{ENTER}")
WinWait("License Agreement","I Agree")
If Not WinActive("License Agreement","I Agree") Then WinActivate("License Agreement","I Agree")
WinWaitActive("License Agreement","I Agree")
Send("{TAB}{TAB}{ENTER}")
WinWait("Choose Destination Location","Setup will install I")
If Not WinActive("Choose Destination Location","Setup will install I") Then WinActivate("Choose Destination Location","Setup will install I")
WinWaitActive("Choose Destination Location","Setup will install I")
Send("{ENTER}")
WinWait("Installation Complete","IncrediMail Xe has b")
If Not WinActive("Installation Complete","IncrediMail Xe has b") Then WinActivate("Installation Complete","IncrediMail Xe has b")
WinWaitActive("Installation Complete","IncrediMail Xe has b")
Send("{TAB}{SPACE}{TAB}{ENTER}")
[/codebox]
- JunkFilter
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('JunkFilterPlusSetup.exe')
WinWait("IncrediMail JunkFilter Plus","Welcome to IncrediMa")
If Not WinActive("IncrediMail JunkFilter Plus","Welcome to IncrediMa") Then WinActivate("IncrediMail JunkFilter Plus","Welcome to IncrediMa")
WinWaitActive("IncrediMail JunkFilter Plus","Welcome to IncrediMa")
Send("{ENTER}")
WinWait("License Agreement","I Agree")
If Not WinActive("License Agreement","I Agree") Then WinActivate("License Agreement","I Agree")
WinWaitActive("License Agreement","I Agree")
Send("{ENTER}")
WinWait("IncrediMail Xe","The action couldn't ")
If Not WinActive("IncrediMail Xe","The action couldn't ") Then WinActivate("IncrediMail Xe","The action couldn't ")
WinWaitActive("IncrediMail Xe","The action couldn't ")
Send("{ENTER}")
WinWait("Account Wizard","To use your new emai")
If Not WinActive("Account Wizard","To use your new emai") Then WinActivate("Account Wizard","To use your new emai")
WinWaitActive("Account Wizard","To use your new emai")
Send("{ESC}")
[/codebox]
- 3DMagic-Setup ... Let this one be the last one to run ;)
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('3DMagicSetup.exe')
WinWait("3D Magic","Welcome to 3D Magic ")
If Not WinActive("3D Magic","Welcome to 3D Magic ") Then WinActivate("3D Magic","Welcome to 3D Magic ")
WinWaitActive("3D Magic","Welcome to 3D Magic ")
Send("{ENTER}")
WinWait("3D Magic","<b> Choose Action: <")
If Not WinActive("3D Magic","<b> Choose Action: <") Then WinActivate("3D Magic","<b> Choose Action: <")
WinWaitActive("3D Magic","<b> Choose Action: <")
Send("{ESC}")
WinWait("IncrediMail Xe","The action couldn't ")
If Not WinActive("IncrediMail Xe","The action couldn't ") Then WinActivate("IncrediMail Xe","The action couldn't ")
WinWaitActive("IncrediMail Xe","The action couldn't ")
Send("{ENTER}")
WinWait("Account Wizard","To use your new emai")
If Not WinActive("Account Wizard","To use your new emai") Then WinActivate("Account Wizard","To use your new emai")
WinWaitActive("Account Wizard","To use your new emai")
Send("{ESC}")
WinWait("New Message","")
If Not WinActive("New Message","") Then WinActivate("New Message","")
WinWaitActive("New Message","")
Send("{ALTDOWN}{F4}{ALTUP}")
WinWait("Inbox - IncrediMail Premium","Key Contacts")
If Not WinActive("Inbox - IncrediMail Premium","Key Contacts") Then WinActivate("Inbox - IncrediMail Premium","Key Contacts")
WinWaitActive("Inbox - IncrediMail Premium","Key Contacts")
Send("{ALTDOWN}{F4}")
ProcessWait("IMApp.exe")
Sleep(2000)
ProcessClose("IMApp.exe")
Sleep(5000)
Exit
[/codebox]
Opanda Photo Filter 1.0 :
-----------------------------------
setup file must be = OpandaPhotoFilter.exe
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('OpandaPhotoFilter.exe')
WinWait("InstallShield Wizard","The InstallShield® W")
If Not WinActive("InstallShield Wizard","The InstallShield® W") Then WinActivate("InstallShield Wizard","The InstallShield® W")
WinWaitActive("InstallShield Wizard","The InstallShield® W")
Send("{TAB}{TAB}{ENTER}")
WinWait("InstallShield Wizard","Press the PAGE DOWN ")
If Not WinActive("InstallShield Wizard","Press the PAGE DOWN ") Then WinActivate("InstallShield Wizard","Press the PAGE DOWN ")
WinWaitActive("InstallShield Wizard","Press the PAGE DOWN ")
Send("{TAB}{TAB}{ENTER}")
WinWait("InstallShield Wizard","Setup will install P")
If Not WinActive("InstallShield Wizard","Setup will install P") Then WinActivate("InstallShield Wizard","Setup will install P")
WinWaitActive("InstallShield Wizard","Setup will install P")
Send("{TAB}{TAB}{TAB}{TAB}{ENTER}")
WinWait("InstallShield Wizard","Setup will add progr")
If Not WinActive("InstallShield Wizard","Setup will add progr") Then WinActivate("InstallShield Wizard","Setup will add progr")
WinWaitActive("InstallShield Wizard","Setup will add progr")
Send("{TAB}{TAB}{TAB}{ENTER}")
WinWait("InstallShield Wizard","Setup has finished i")
If Not WinActive("InstallShield Wizard","Setup has finished i") Then WinActivate("InstallShield Wizard","Setup has finished i")
WinWaitActive("InstallShield Wizard","Setup has finished i")
Send("{ENTER}")[/codebox]
Netsccape Navigator 8.1
-------------------------------------
setup file must be = nsb-install-8-1.exe
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('nsb-install-8-1.exe')
WinWait("Netscape Browser Setup","Thank you for choosi")
If Not WinActive("Netscape Browser Setup","Thank you for choosi") Then WinActivate("Netscape Browser Setup","Thank you for choosi")
WinWaitActive("Netscape Browser Setup","Thank you for choosi")
Send("{ENTER}")
WinWait("Netscape Browser Setup ","Please review the li")
If Not WinActive("Netscape Browser Setup ","Please review the li") Then WinActivate("Netscape Browser Setup ","Please review the li")
WinWaitActive("Netscape Browser Setup ","Please review the li")
Send("{TAB}{SPACE}{TAB}{TAB}{ENTER}")
WinWait("Netscape Browser Setup ","Choose Install Locat")
If Not WinActive("Netscape Browser Setup ","Choose Install Locat") Then WinActivate("Netscape Browser Setup ","Choose Install Locat")
WinWaitActive("Netscape Browser Setup ","Choose Install Locat")
Send("{ENTER}")
WinWait("Netscape Browser Setup","Configure your Brows")
If Not WinActive("Netscape Browser Setup","Configure your Brows") Then WinActivate("Netscape Browser Setup","Configure your Brows")
WinWaitActive("Netscape Browser Setup","Configure your Brows")
Send("{TAB}{RIGHT}{SPACE}{RIGHT}{SPACE}{TAB}{DOWN}{TAB}{TAB}{TAB}{TAB}{ENTER}{RIGHT}{TAB}{TAB}{ENTER}
")
WinWait("Netscape Browser Setup ","Installation Complet")
If Not WinActive("Netscape Browser Setup ","Installation Complet") Then WinActivate("Netscape Browser Setup ","Installation Complet")
WinWaitActive("Netscape Browser Setup ","Installation Complet")
Send("{ENTER}")[/codebox]
mIRC 6.2
---------------
setup file must be = mirc62.exe
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('mirc62.exe')
WinWait("mIRC Setup","Welcome to the mIRC ")
If Not WinActive("mIRC Setup","Welcome to the mIRC ") Then WinActivate("mIRC Setup","Welcome to the mIRC ")
WinWaitActive("mIRC Setup","Welcome to the mIRC ")
Send("{TAB}{TAB}{ENTER}")
WinWait("mIRC Setup ","Please review the li")
If Not WinActive("mIRC Setup ","Please review the li") Then WinActivate("mIRC Setup ","Please review the li")
WinWaitActive("mIRC Setup ","Please review the li")
Send("{TAB}{TAB}{ENTER}")
WinWait("mIRC Setup ","Choose which feature")
If Not WinActive("mIRC Setup ","Choose which feature") Then WinActivate("mIRC Setup ","Choose which feature")
WinWaitActive("mIRC Setup ","Choose which feature")
Send("{TAB}{TAB}{TAB}{ENTER}")
WinWait("mIRC Setup ","Choose Install Locat")
If Not WinActive("mIRC Setup ","Choose Install Locat") Then WinActivate("mIRC Setup ","Choose Install Locat")
WinWaitActive("mIRC Setup ","Choose Install Locat")
Send("{TAB}{TAB}{TAB}{ENTER}")
WinWait("mIRC Setup ","Choose Start Menu Fo")
If Not WinActive("mIRC Setup ","Choose Start Menu Fo") Then WinActivate("mIRC Setup ","Choose Start Menu Fo")
WinWaitActive("mIRC Setup ","Choose Start Menu Fo")
Send("{TAB}{TAB}{TAB}{TAB}{ENTER}")
WinWait("mIRC Setup ","Completing the mIRC ")
If Not WinActive("mIRC Setup ","Completing the mIRC ") Then WinActivate("mIRC Setup ","Completing the mIRC ")
WinWaitActive("mIRC Setup ","Completing the mIRC ")
Send("{TAB}{TAB}{ENTER}")[/codebox]
Yahoo messenger 8:
-----------------------------------
Setup file = ymsgr8us.exe
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('ymsgr8us.exe')
WinWait("Yahoo! Messenger Installation","This installation pr")
If Not WinActive("Yahoo! Messenger Installation","This installation pr") Then WinActivate("Yahoo! Messenger Installation","This installation pr")
WinWaitActive("Yahoo! Messenger Installation","This installation pr")
Send("{ENTER}")
WinWait("Yahoo! Messenger Installation","Do you accept the Ya")
If Not WinActive("Yahoo! Messenger Installation","Do you accept the Ya") Then WinActivate("Yahoo! Messenger Installation","Do you accept the Ya")
WinWaitActive("Yahoo! Messenger Installation","Do you accept the Ya")
Send("{SPACE}{TAB}{ENTER}")
WinWait("Yahoo! Messenger Installation","Yahoo! Messenger col")
If Not WinActive("Yahoo! Messenger Installation","Yahoo! Messenger col") Then WinActivate("Yahoo! Messenger Installation","Yahoo! Messenger col")
WinWaitActive("Yahoo! Messenger Installation","Yahoo! Messenger col")
Send("{ENTER}")
WinWait("Yahoo! Messenger Installation","You can also listen ")
If Not WinActive("Yahoo! Messenger Installation","You can also listen ") Then WinActivate("Yahoo! Messenger Installation","You can also listen ")
WinWaitActive("Yahoo! Messenger Installation","You can also listen ")
Send("{ENTER}")
WinWait("Yahoo! Messenger Installation","Select Destination D")
If Not WinActive("Yahoo! Messenger Installation","Select Destination D") Then WinActivate("Yahoo! Messenger Installation","Select Destination D")
WinWaitActive("Yahoo! Messenger Installation","Select Destination D")
Send("{ENTER}")
WinWait("Yahoo! Messenger Installation","You are now ready to")
If Not WinActive("Yahoo! Messenger Installation","You are now ready to") Then WinActivate("Yahoo! Messenger Installation","You are now ready to")
WinWaitActive("Yahoo! Messenger Installation","You are now ready to")
Send("{ENTER}")
WinWait("Yahoo! Messenger Installation","Installation Complet")
If Not WinActive("Yahoo! Messenger Installation","Installation Complet") Then WinActivate("Yahoo! Messenger Installation","Installation Complet")
WinWaitActive("Yahoo! Messenger Installation","Installation Complet")
Send("{ENTER}")
WinWait("Yahoo! Messenger with Voice","&Remember my ID && p")
If Not WinActive("Yahoo! Messenger with Voice","&Remember my ID && p") Then WinActivate("Yahoo! Messenger with Voice","&Remember my ID && p")
WinWaitActive("Yahoo! Messenger with Voice","&Remember my ID && p")
Send("{ALTDOWN}{F4}{ALTUP}")
WinWait("Exit Yahoo! Messenger?","Are you sure you wan")
If Not WinActive("Exit Yahoo! Messenger?","Are you sure you wan") Then WinActivate("Exit Yahoo! Messenger?","Are you sure you wan")
WinWaitActive("Exit Yahoo! Messenger?","Are you sure you wan")
Send("{ENTER}")
ProcessWait("Ymsgr_tray.EXE")
Sleep(2000)
ProcessClose("Ymsgr_tray.EXE")
Sleep(5000)
Exit[/codebox]
Camtasia studio v3.1.2
-----------------------------------
[codebox][size=3][font="Times"]Opt("WinWaitDelay",100)[/font][/size]

[size=3][font="Times"]Opt("WinTitleMatchMode",4)[/font][/size]

[size=3][font="Times"]Opt("WinDetectHiddenText",1)[/font][/size]

[size=3][font="Times"]Opt("MouseCoordMode",0)[/font][/size]

[size=3][font="Times"]Run('camtasiaf.exe')[/font][/size]

[size=3][font="Times"]WinWait("Camtasia Studio Installation [EVALUATION]","Welcome to the Camta")[/font][/size]

[size=3][font="Times"]If Not WinActive("Camtasia Studio Installation [EVALUATION]","Welcome to the Camta") Then WinActivate("Camtasia Studio Installation [EVALUATION]","Welcome to the Camta")[/font][/size]

[size=3][font="Times"]WinWaitActive("Camtasia Studio Installation [EVALUATION]","Welcome to the Camta")[/font][/size]

[size=3][font="Times"]Send("{TAB}{ENTER}")[/font][/size]

[size=3][font="Times"]WinWait("Camtasia Studio Installation [EVALUATION]","THIS SOFTWARE AND TH")[/font][/size]

[size=3][font="Times"]If Not WinActive("Camtasia Studio Installation [EVALUATION]","THIS SOFTWARE AND TH") Then WinActivate("Camtasia Studio Installation [EVALUATION]","THIS SOFTWARE AND TH")[/font][/size]

[size=3][font="Times"]WinWaitActive("Camtasia Studio Installation [EVALUATION]","THIS SOFTWARE AND TH")[/font][/size]

[size=3][font="Times"]Send("{ENTER}")[/font][/size]

[size=3][font="Times"]WinWait("Camtasia Studio Installation [EVALUATION]","If you have received")[/font][/size]

[size=3][font="Times"]If Not WinActive("Camtasia Studio Installation [EVALUATION]","If you have received") Then WinActivate("Camtasia Studio Installation [EVALUATION]","If you have received")[/font][/size]

[size=3][font="Times"]WinWaitActive("Camtasia Studio Installation [EVALUATION]","If you have received")[/font][/size]

[size=3][font="Times"]Send("{TAB}{TAB}{TAB}{DOWN}{TAB}[b][u]USERNAME HERE[/u][/b]{TAB}[b][u]SERIAL NUMBER HERE[/u][/b]{TAB}{TAB}{ENTER}")[/font][/size]

[size=3][font="Times"]WinWait("Camtasia Studio Installation [EVALUATION]","Setup will install C")[/font][/size]

[size=3][font="Times"]If Not WinActive("Camtasia Studio Installation [EVALUATION]","Setup will install C") Then WinActivate("Camtasia Studio Installation [EVALUATION]","Setup will install C")[/font][/size]

[size=3][font="Times"]WinWaitActive("Camtasia Studio Installation [EVALUATION]","Setup will install C")[/font][/size]

[size=3][font="Times"]Send("{ENTER}")[/font][/size]

[size=3][font="Times"]WinWait("Camtasia Studio Installation [EVALUATION]","Camtasia Studio Add-")[/font][/size]

[size=3][font="Times"]If Not WinActive("Camtasia Studio Installation [EVALUATION]","Camtasia Studio Add-") Then WinActivate("Camtasia Studio Installation [EVALUATION]","Camtasia Studio Add-")[/font][/size]

[size=3][font="Times"]WinWaitActive("Camtasia Studio Installation [EVALUATION]","Camtasia Studio Add-")[/font][/size]

[size=3][font="Times"]Send("{ENTER}")[/font][/size]

[size=3][font="Times"]WinWait("Camtasia Studio Installation [EVALUATION]","The selections below")[/font][/size]

[size=3][font="Times"]If Not WinActive("Camtasia Studio Installation [EVALUATION]","The selections below") Then WinActivate("Camtasia Studio Installation [EVALUATION]","The selections below")[/font][/size]

[size=3][font="Times"]WinWaitActive("Camtasia Studio Installation [EVALUATION]","The selections below")[/font][/size]

[size=3][font="Times"]Send("{TAB}{TAB}{TAB}{SPACE}{TAB}{ENTER}")[/font][/size]

[size=3][font="Times"]WinWait("Camtasia Studio Installation [EVALUATION]","You are now ready to")[/font][/size]

[size=3][font="Times"]If Not WinActive("Camtasia Studio Installation [EVALUATION]","You are now ready to") Then WinActivate("Camtasia Studio Installation [EVALUATION]","You are now ready to")[/font][/size]

[size=3][font="Times"]WinWaitActive("Camtasia Studio Installation [EVALUATION]","You are now ready to")[/font][/size]

[size=3][font="Times"]Send("{TAB}{TAB}{TAB}{DOWN}{SPACE}{DOWN}{SPACE}{TAB}{ENTER}")[/font][/size]

[size=3][font="Times"]WinWait("Camtasia Studio Installation [EVALUATION]","Camtasia Studio has ")[/font][/size]

[size=3][font="Times"]If Not WinActive("Camtasia Studio Installation [EVALUATION]","Camtasia Studio has ") Then WinActivate("Camtasia Studio Installation [EVALUATION]","Camtasia Studio has ")[/font][/size]

[size=3][font="Times"]WinWaitActive("Camtasia Studio Installation [EVALUATION]","Camtasia Studio has ")[/font][/size]

[size=3][font="Times"]Send("{ENTER}")[/font][/size]

[/codebox]
Diskeeper Pro Premier 10.0
------------------------------------
Setup file = DiskeeperProPremier.msi
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('setup.exe')
WinWait("Diskeeper Professional Premier Edition - InstallShield Wizard","WARNING: This progra")
If Not WinActive("Diskeeper Professional Premier Edition - InstallShield Wizard","WARNING: This progra") Then WinActivate("Diskeeper Professional Premier Edition - InstallShield Wizard","WARNING: This progra")
WinWaitActive("Diskeeper Professional Premier Edition - InstallShield Wizard","WARNING: This progra")
Send("{TAB}{TAB}{ENTER}")
WinWait("Diskeeper Professional Premier Edition - InstallShield Wizard","Windows XP SP2 Infor")
If Not WinActive("Diskeeper Professional Premier Edition - InstallShield Wizard","Windows XP SP2 Infor") Then WinActivate("Diskeeper Professional Premier Edition - InstallShield Wizard","Windows XP SP2 Infor")
WinWaitActive("Diskeeper Professional Premier Edition - InstallShield Wizard","Windows XP SP2 Infor")
Send("{ENTER}")
WinWait("Diskeeper Professional Premier Edition - InstallShield Wizard","Previous Installatio")
If Not WinActive("Diskeeper Professional Premier Edition - InstallShield Wizard","Previous Installatio") Then WinActivate("Diskeeper Professional Premier Edition - InstallShield Wizard","Previous Installatio")
WinWaitActive("Diskeeper Professional Premier Edition - InstallShield Wizard","Previous Installatio")
Send("{TAB}{TAB}{ENTER}")
WinWait("Diskeeper Professional Premier Edition - InstallShield Wizard","I &do not accept the")
If Not WinActive("Diskeeper Professional Premier Edition - InstallShield Wizard","I &do not accept the") Then WinActivate("Diskeeper Professional Premier Edition - InstallShield Wizard","I &do not accept the")
WinWaitActive("Diskeeper Professional Premier Edition - InstallShield Wizard","I &do not accept the")
Send("{UP}{TAB}{TAB}{ENTER}")
WinWait("Diskeeper Professional Premier Edition - InstallShield Wizard","Create Desktop Short")
If Not WinActive("Diskeeper Professional Premier Edition - InstallShield Wizard","Create Desktop Short") Then WinActivate("Diskeeper Professional Premier Edition - InstallShield Wizard","Create Desktop Short")
WinWaitActive("Diskeeper Professional Premier Edition - InstallShield Wizard","Create Desktop Short")
Send("{TAB}{TAB}{TAB}{TAB}{ENTER}")
WinWait("Diskeeper Professional Premier Edition - InstallShield Wizard","If you want to revie")
If Not WinActive("Diskeeper Professional Premier Edition - InstallShield Wizard","If you want to revie") Then WinActivate("Diskeeper Professional Premier Edition - InstallShield Wizard","If you want to revie")
WinWaitActive("Diskeeper Professional Premier Edition - InstallShield Wizard","If you want to revie")
Send("{ENTER}")
WinWait("Diskeeper Professional Premier Edition - InstallShield Wizard","The InstallShield Wi")
If Not WinActive("Diskeeper Professional Premier Edition - InstallShield Wizard","The InstallShield Wi") Then WinActivate("Diskeeper Professional Premier Edition - InstallShield Wizard","The InstallShield Wi")
WinWaitActive("Diskeeper Professional Premier Edition - InstallShield Wizard","The InstallShield Wi")
Send("{ENTER}")[/codebox]
Crystal Clear Theme 1.0:
----------------------------------
Setp file = CrystalClear.exe
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('CrystalClear.exe')
WinWait("Installer Language","Please select a lang")
If Not WinActive("Installer Language","Please select a lang") Then WinActivate("Installer Language","Please select a lang")
WinWaitActive("Installer Language","Please select a lang")
Send("{ENTER}")
WinWait("Crystal Clear 1.0 Setup","Welcome to the Cryst")
If Not WinActive("Crystal Clear 1.0 Setup","Welcome to the Cryst") Then WinActivate("Crystal Clear 1.0 Setup","Welcome to the Cryst")
WinWaitActive("Crystal Clear 1.0 Setup","Welcome to the Cryst")
Send("{ENTER}")
WinWait("Crystal Clear 1.0 Setup ","BricoPack System 1.1")
If Not WinActive("Crystal Clear 1.0 Setup ","BricoPack System 1.1") Then WinActivate("Crystal Clear 1.0 Setup ","BricoPack System 1.1")
WinWaitActive("Crystal Clear 1.0 Setup ","BricoPack System 1.1")
Send("{TAB}{SPACE}{ENTER}")
WinWait("Crystal Clear 1.0 Setup","BricoPack System 1.1")
If Not WinActive("Crystal Clear 1.0 Setup","BricoPack System 1.1") Then WinActivate("Crystal Clear 1.0 Setup","BricoPack System 1.1")
WinWaitActive("Crystal Clear 1.0 Setup","BricoPack System 1.1")
Send("{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")
WinWait("Crystal Clear 1.0 Setup ","BricoPack System 1.1")
If Not WinActive("Crystal Clear 1.0 Setup ","BricoPack System 1.1") Then WinActivate("Crystal Clear 1.0 Setup ","BricoPack System 1.1")
WinWaitActive("Crystal Clear 1.0 Setup ","BricoPack System 1.1")
Send("{DOWN}{DOWN}{ENTER}{ENTER}{ENTER}")
WinWait("RocketDock","")
If Not WinActive("RocketDock","") Then WinActivate("RocketDock","")
WinWaitActive("RocketDock","")
Send("{DOWN}{ALTDOWN}{TAB}{ALTUP}")
WinWait("Crystal Clear 1.0 Setup ","Completing the Cryst")
If Not WinActive("Crystal Clear 1.0 Setup ","Completing the Cryst") Then WinActivate("Crystal Clear 1.0 Setup ","Completing the Cryst")
WinWaitActive("Crystal Clear 1.0 Setup ","Completing the Cryst")
Send("{DOWN}{ENTER}")[/codebox]
Crystal XP RC1:
-----------------
Setup file = CrystalXP.exe
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('CrystalXP.exe')
WinWait("Installer Language","Please select a lang")
If Not WinActive("Installer Language","Please select a lang") Then WinActivate("Installer Language","Please select a lang")
WinWaitActive("Installer Language","Please select a lang")
Send("{ENTER}")
WinWait("Crystal XP 3.0 Setup","Welcome to the Cryst")
If Not WinActive("Crystal XP 3.0 Setup","Welcome to the Cryst") Then WinActivate("Crystal XP 3.0 Setup","Welcome to the Cryst")
WinWaitActive("Crystal XP 3.0 Setup","Welcome to the Cryst")
Send("{ENTER}")
WinWait("Crystal XP 3.0 Setup ","BricoPack System 1.0")
If Not WinActive("Crystal XP 3.0 Setup ","BricoPack System 1.0") Then WinActivate("Crystal XP 3.0 Setup ","BricoPack System 1.0")
WinWaitActive("Crystal XP 3.0 Setup ","BricoPack System 1.0")
Send("{TAB}{SPACE}{ENTER}{ENTER}{ENTER}{ENTER}")
WinWait("Crystal XP 3.0 Setup ","Completing the Cryst")
If Not WinActive("Crystal XP 3.0 Setup ","Completing the Cryst") Then WinActivate("Crystal XP 3.0 Setup ","Completing the Cryst")
WinWaitActive("Crystal XP 3.0 Setup ","Completing the Cryst")
Send("{DOWN}{ENTER}")[/codebox]
Longhorn Inspirat 1.0:
---------------------------
Setup File = LonghornInspirat.exe
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('LonghornInspirat.exe')
WinWait("Installer Language","Please select a lang")
If Not WinActive("Installer Language","Please select a lang") Then WinActivate("Installer Language","Please select a lang")
WinWaitActive("Installer Language","Please select a lang")
Send("e{ENTER}")
WinWait("Longhorn Inspirat 1.0 Setup","Welcome to the Longh")
If Not WinActive("Longhorn Inspirat 1.0 Setup","Welcome to the Longh") Then WinActivate("Longhorn Inspirat 1.0 Setup","Welcome to the Longh")
WinWaitActive("Longhorn Inspirat 1.0 Setup","Welcome to the Longh")
Send("{ENTER}")
WinWait("Longhorn Inspirat 1.0 Setup ","BricoPack System 1.1")
If Not WinActive("Longhorn Inspirat 1.0 Setup ","BricoPack System 1.1") Then WinActivate("Longhorn Inspirat 1.0 Setup ","BricoPack System 1.1")
WinWaitActive("Longhorn Inspirat 1.0 Setup ","BricoPack System 1.1")
Send("{TAB}{SPACE}{ENTER}{ENTER}{ENTER}{ENTER}")
WinWait("Longhorn Inspirat 1.0 Setup ","Completing the Longh")
If Not WinActive("Longhorn Inspirat 1.0 Setup ","Completing the Longh") Then WinActivate("Longhorn Inspirat 1.0 Setup ","Completing the Longh")
WinWaitActive("Longhorn Inspirat 1.0 Setup ","Completing the Longh")
Send("{DOWN}{ENTER}")[/codebox]
Vista Inspirat 1.1:
--------------------------
Setup file = VistaInspirat.exe
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('VistaInspirat.exe')
WinWait("Installer Language","Please select a lang")
If Not WinActive("Installer Language","Please select a lang") Then WinActivate("Installer Language","Please select a lang")
WinWaitActive("Installer Language","Please select a lang")
Send("e{ENTER}")
WinWait("Vista Inspirat 1.1 Setup","Welcome to the Vista")
If Not WinActive("Vista Inspirat 1.1 Setup","Welcome to the Vista") Then WinActivate("Vista Inspirat 1.1 Setup","Welcome to the Vista")
WinWaitActive("Vista Inspirat 1.1 Setup","Welcome to the Vista")
Send("{ENTER}")
WinWait("Vista Inspirat 1.1 Setup ","BricoPack System 1.1")
If Not WinActive("Vista Inspirat 1.1 Setup ","BricoPack System 1.1") Then WinActivate("Vista Inspirat 1.1 Setup ","BricoPack System 1.1")
WinWaitActive("Vista Inspirat 1.1 Setup ","BricoPack System 1.1")
Send("{TAB}{SPACE}{ENTER}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RIGHT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{SP
ACE}{DOWN}{SPACE}{ENTER}{ENTER}{ENTER}")
WinWait("Vista Inspirat 1.1 Setup ","Completing the Vista")
If Not WinActive("Vista Inspirat 1.1 Setup ","Completing the Vista") Then WinActivate("Vista Inspirat 1.1 Setup ","Completing the Vista")
WinWaitActive("Vista Inspirat 1.1 Setup ","Completing the Vista")
Send("{DOWN}{ENTER}")[/codebox]
Webshots 5:
----------------
Setup file = wbsamp5.exe
[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('wbsamp5.exe')
WinWait("Setup - Webshots Desktop","Welcome to the Websh")
If Not WinActive("Setup - Webshots Desktop","Welcome to the Websh") Then WinActivate("Setup - Webshots Desktop","Welcome to the Websh")
WinWaitActive("Setup - Webshots Desktop","Welcome to the Websh")
Send("{ENTER}")
WinWait("Setup - Webshots Desktop","Please read the foll")
If Not WinActive("Setup - Webshots Desktop","Please read the foll") Then WinActivate("Setup - Webshots Desktop","Please read the foll")
WinWaitActive("Setup - Webshots Desktop","Please read the foll")
Send("{TAB}{UP}{TAB}{TAB}{ENTER}")
WinWait("Setup - Webshots Desktop","Select Destination L")
If Not WinActive("Setup - Webshots Desktop","Select Destination L") Then WinActivate("Setup - Webshots Desktop","Select Destination L")
WinWaitActive("Setup - Webshots Desktop","Select Destination L")
Send("{ENTER}")
WinWait("Setup - Webshots Desktop","Which components sho")
If Not WinActive("Setup - Webshots Desktop","Which components sho") Then WinActivate("Setup - Webshots Desktop","Which components sho")
WinWaitActive("Setup - Webshots Desktop","Which components sho")
Send("{DOWN}{DOWN}{TAB}{TAB}{TAB}{ENTER}")
WinWait("Setup - Webshots Desktop","Select Start Menu Fo")
If Not WinActive("Setup - Webshots Desktop","Select Start Menu Fo") Then WinActivate("Setup - Webshots Desktop","Select Start Menu Fo")
WinWaitActive("Setup - Webshots Desktop","Select Start Menu Fo")
Send("{ENTER}")
WinWait("Setup - Webshots Desktop","Select Additional Ta")
If Not WinActive("Setup - Webshots Desktop","Select Additional Ta") Then WinActivate("Setup - Webshots Desktop","Select Additional Ta")
WinWaitActive("Setup - Webshots Desktop","Select Additional Ta")
Send("{SPACE}{TAB}{TAB}{TAB}{TAB}{ENTER}")
WinWait("classname=#32770","Show this screen on ")
If Not WinActive("classname=#32770","Show this screen on ") Then WinActivate("classname=#32770","Show this screen on ")
WinWaitActive("classname=#32770","Show this screen on ")
Send("{ENTER}")
WinWait("The Webshots Desktop - [url="http://www.webshots.com"]www.webshots.com","Remember[/url] my password")
If Not WinActive("The Webshots Desktop - [url="http://www.webshots.com"]www.webshots.com","Remember[/url] my password") Then WinActivate("The Webshots Desktop - [url="http://www.webshots.com"]www.webshots.com","Remember[/url] my password")
WinWaitActive("The Webshots Desktop - [url="http://www.webshots.com"]www.webshots.com","Remember[/url] my password")
Send("{ALTDOWN}{F4}{ALTUP}")
ProcessWait("Webshots.scr")
Sleep(2000)
ProcessClose("Webshots.scr")
Sleep(5000)
Exit[/codebox]

Edited by Shark007
Link to comment
Share on other sites

  • 3 weeks later...
[b][u]Flash Get 1.73[/u][/b]

[b][u][color="#ff0000"]Without Google ToolBar
[/color][/u][/b]

[codebox]Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('fgf173.exe')
WinWait("Welcome","Welcome to FlashGet(")
If Not WinActive("Welcome","Welcome to FlashGet(") Then WinActivate("Welcome","Welcome to FlashGet(")
WinWaitActive("Welcome","Welcome to FlashGet(")
Send("{ENTER}")
WinWait("Software license","&Do Not Agree")
If Not WinActive("Software license","&Do Not Agree") Then WinActivate("Software license","&Do Not Agree")
WinWaitActive("Software license","&Do Not Agree")
Send("{ENTER}")
WinWait("Choose Destination Location","Setup will install F")
If Not WinActive("Choose Destination Location","Setup will install F") Then WinActivate("Choose Destination Location","Setup will install F")
WinWaitActive("Choose Destination Location","Setup will install F")
Send("{ENTER}")
WinWait("Select Program Manager Group","Enter the name of th")
If Not WinActive("Select Program Manager Group","Enter the name of th") Then WinActivate("Select Program Manager Group","Enter the name of th")
WinWaitActive("Select Program Manager Group","Enter the name of th")
Send("{ENTER}")
WinWait("Start Installation","You are now ready to")
If Not WinActive("Start Installation","You are now ready to") Then WinActivate("Start Installation","You are now ready to")
WinWaitActive("Start Installation","You are now ready to")
Send("{ENTER}")
WinWait("FlashGet"," FlashGet File Mi")
If Not WinActive("FlashGet"," FlashGet File Mi") Then WinActivate("FlashGet"," FlashGet File Mi")
WinWaitActive("FlashGet"," FlashGet File Mi")
Send("{DOWN}{SPACE}{TAB}{ENTER}")
WinWait("Google Toolbar","* You can search Int")
If Not WinActive("Google Toolbar","* You can search Int") Then WinActivate("Google Toolbar","* You can search Int")
WinWaitActive("Google Toolbar","* You can search Int")
Send("{SPACE}{TAB}{ENTER}")
WinWait("Installation Complete","FlashGet(JetCar) has")
If Not WinActive("Installation Complete","FlashGet(JetCar) has") Then WinActivate("Installation Complete","FlashGet(JetCar) has")
WinWaitActive("Installation Complete","FlashGet(JetCar) has")
Send("{ENTER}")[/codebox] Edited by Shark007
Link to comment
Share on other sites

  • 2 weeks later...

[quote name='redfive19' post='526818' date='Jun 30 2006, 08:22 PM'][b]Fraps v2.7.3[/b]
For some reason, this new Fraps won't install via /S like every other nullsoft app. So I wrote this little script to automate it. change to your liking.[/quote]

I couldn't get the AutoIt v3 script to work, but this one does (its AutoIt v2)...

[code]Run, setup.exe
WinWait, Fraps 2.7.4, Fraps License Agreement
WinActivate, Fraps 2.7.4, Fraps License Agreement
Send, {ENTER}
WinWait, Fraps 2.7.4, Choose a directory to install
WinActivate, Fraps 2.7.4, Choose a directory to install
Send, {TAB}
Send, {TAB}
Send, {TAB}
Send, n
WinWait, Fraps 2.7.4, Select the Start Menu folder
WinActivate, Fraps 2.7.4, Select the Start Menu folder
Send, {TAB}
Send, {TAB}
Send, {TAB}
Send, i
WinWait, Fraps 2.7.4, Completed
WinActivate, Fraps 2.7.4, Completed
Send, c[/code]

The problem is, when you run this from a CMD or BAT file it does
not run "setup.exe" but run manually, it does work! Oh dear :(

Why can't they just make it [b]/S[/b]

Because that would be too easy!

Link to comment
Share on other sites

  • 3 weeks later...

[b]Daemon Tools 4.06 HE[/b]
Updated script from 4.00 script.

[codebox]#region - Daemon Tools v4.06HE install script - (Automated with WinExists functions)

Opt('TrayIconDebug', 1)

; Installer.
$executable = 'daemon406-x86.exe'

; Show progess.
$splash = 0

; Default catagory folder in startmenu.
$group = 'Burning software'

; New catagory to move the default folder into.
$catagory = ''

; Installation folder in Program Files.
; $directory = 'DAEMON Tools'
$directory = 'Daemon Tools'

; Allowed time for installation.
$allowed = 300 * 1000

; The next setting should be 0 unless you want to reboot imediately.
; Auto or manual reboot. (either choice will runonce the installer at next reboot).
$auto_reboot = 0

; The next setting is not used if $auto_reboot = 1.
; Desktop Reboot. (Set to 1 if you want the script to handle the reboot into the 2nd part of install)
$desktop_reboot = 0

; ** README ""
; Check values above and "Remove shortcuts" section below are correct.
; This is a 2 part install. The 2nd part automatically happens on reboot at HKCU\RunOnce
; which is when the Startup folder is processed and the Desktop is active. This script
; is set to manage both parts of installation automagically.
; Spyware is unchecked for installation.;)

; Main Window Titles.
$title_dtools = 'DAEMON Tools 4.06HE'
$title_sptd = 'SPTD setup V1.29'

; Run the installer.
If $auto_reboot And StringInStr($cmdlineraw, '/postrun') Then
If WinWait($title_dtools, 'Welcome to the DAEMON Tools', 30) Then
$pid = $executable
Else
$pid = _Install()
EndIf
Else
$pid = _Install()
EndIf

$time = TimerInit()
Do
Select; 1st 3 windows are messageboxes.
Case WinExists($title_sptd, 'This program will install SCSI Pass Through Direct')
Sleep(1000)
ControlClick($title_sptd, 'This program will install SCSI Pass Through Direct', 'Button1')
WinWaitClose($title_sptd, 'This program will install SCSI Pass Through Direct', 10)
WinWait($title_dtools, 'Setup must restart Windows', 5)

Case WinExists($title_dtools, 'Setup must restart Windows')
_RunOnce()
If $auto_reboot Then
$choice = 'Button1'
Else
$choice = 'Button2'
EndIf
ControlClick($title_dtools, 'Setup must restart Windows', $choice)
WinWaitClose($title_dtools, 'Setup must restart Windows', 5)
Exit

Case WinExists($title_dtools, 'You must reboot after previous operation')
_RunOnce()
ControlClick($title_dtools, 'You must reboot after previous operation', 'Button1')
; Desktop Reboot after 20 seconds if set above.
If $desktop_reboot Then
Sleep(15*1000)
MsgBox(262144, $title_dtools, 'System restart commencing now', 5)
Shutdown(2)
EndIf
Exit

Case WinExists($title_dtools, 'Welcome to the DAEMON Tools')
ControlClick($title_dtools, 'Welcome to the DAEMON Tools', 'Button2')

Case WinExists($title_dtools, 'License Agreement')
If WinWait($title_sptd, 'This program will install SCSI Pass Through Direct', 2) Then
ContinueLoop
EndIf
ControlClick($title_dtools, 'License Agreement', 'Button2')

Case WinExists($title_dtools, 'Already Installed')
$text = 'Update the automated installation script for uninstall or upgrade support'
MsgBox(262144, $title_dtools, $text, 5)
_Abort()

Case WinExists($title_dtools, 'Choose Components')
ControlFocus($title_dtools, 'Choose Components', 'SysTreeView321')
ControlSend($title_dtools, 'Choose Components', 'SysTreeView321', '{DOWN}{SPACE}')
ControlClick($title_dtools, 'Choose Components', 'Button2')

Case WinExists($title_dtools, 'Choose Install Location')
ControlSend($title_dtools, 'Choose Install Location', 'Edit1', @ProgramFilesDir & '\' & $directory)
ControlClick($title_dtools, 'Choose Install Location', 'Button2')

Case WinExists($title_dtools, 'Completing the DAEMON Tools')
ControlCommand($title_dtools, 'Completing the DAEMON Tools', 'Button4', 'UnCheck', '')
ControlClick($title_dtools, 'Completing the DAEMON Tools', 'Button2')
ExitLoop
EndSelect
Sleep(1000)
If TimerDiff($time) > $allowed Then _Abort()
Until Not ProcessExists($pid)

; Remove shortcuts.
If _MainShortcut('DAEMON Tools.lnk') Then
FileDelete('Uninstall.lnk')
_Desktop('DAEMON Tools.lnk')
EndIf

; Delete spyware installer.
If FileExists(@ProgramFilesDir & '\' & $directory & '\SetupDTSB.exe') Then
FileDelete(@ProgramFilesDir & '\' & $directory & '\SetupDTSB.exe')
EndIf

; Remove Autorun entry.
RegDelete('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', 'DAEMON Tools')

#endregion

Exit

Func _Install($path = 'Default')
; Run the installer in Default Script directory.
Dim $splash, $processblock
If $path = 'Default' Then $path = @ScriptDir
If StringRight($path, 1) <> '\' Then $path = $path & '\'
If StringInStr($executable, '\') Then $path = ''
If Not FileExists($path & $executable) Then Exit(1)
If $processblock <> '' Then Call('_' & 'ProcessBlock')
If $splash Then _Splash('Installing:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4))
If StringRight($executable, 3) = 'msi' Then
Return Run(@SystemDir & '\msiexec /i "' & $path & $executable & '"')
Else
Return Run($path & $executable)
EndIf
EndFunc

Func _Abort()
; close process if exists then exit.
Dim $pid
If ProcessExists($pid) Then
ProcessClose($pid)
Exit(2)
Else
Exit(3)
EndIf
EndFunc

Func _Desktop($shortcut)
; Delete a Desktop shortcut.
If FileExists(@DesktopDir & '\' & $shortcut) Then
Return FileChangeDir(@DesktopDir) And FileDelete($shortcut)
ElseIf FileExists(@DesktopCommonDir & '\' & $shortcut) Then
Return FileChangeDir(@DesktopCommonDir) And FileDelete($shortcut)
EndIf
EndFunc

Func _MainShortcut($shortcut, $rename = '')
; Change working directory to correct StartMenu\Group directory.
Dim $group, $catagory, $splash
If $group = '' Then Return 0
If FileExists(@ProgramsDir & '\' & $group) Then
FileChangeDir(@ProgramsDir & '\' & $group)
ElseIf FileExists(@ProgramsCommonDir & '\' & $group) Then
FileChangeDir(@ProgramsCommonDir & '\' & $group)
Else
Return 0
EndIf
; Wait for main shortcut.
If $splash Then _Splash('Waiting for shortcuts')
For $i = 1 To 20
If FileExists($shortcut) Then ExitLoop
Sleep(500)
Next
If $splash Then _Splash('Cleaning up:' & StringTrimRight(StringReplace(@ScriptName, '_', ' '), 4))
; If catagory not assigned anything, then return.
If $catagory = '' Then Return 1
; Move the group folder into the catagory folder.
If FileChangeDir('..') And DirCopy($group, $catagory & '\' & $group, 1) Then
If DirRemove($group, 1) Then
; If optional rename parameter is used, then rename the group folder.
If $rename <> '' And FileChangeDir($catagory) Then
If DirCopy($group, $rename, 1) And DirRemove($group, 1) Then
Return FileChangeDir($rename)
EndIf
Else
Return FileChangeDir($catagory & '\' & $group)
EndIf
EndIf
EndIf
EndFunc

Func _QuickLaunch($shortcut)
; Delete a Quicklaunch shortcut.
Local $subdirs = '\Microsoft\Internet Explorer\Quick Launch'
If FileExists(@AppDataDir & $subdirs & '\' & $shortcut) Then
Return FileChangeDir(@AppDataDir & $subdirs) And FileDelete($shortcut)
ElseIf FileExists(@AppDataCommonDir & $subdirs & '\' & $shortcut) Then
Return FileChangeDir(@AppDataCommonDir & $subdirs) And FileDelete($shortcut)
EndIf
EndFunc

Func _Splash($text = '')
; Shows a small borderless splash message.
Dim $splash
If $splash Then
If $text Then
SplashTextOn('', $text, 500, 25, -1, 5, 1, '', 14)
Else
SplashOff()
EndIf
EndIf
EndFunc

Func _WinClose($title, $text = '')
; Close a window with further attempts.
For $i = 1 To 10
WinClose($title, $text)
If Not WinExists($title) Then Return 1
Sleep(500)
Next
EndFunc

Func OnAutoItStart()
; A 2nd script instance will exit.
Local $interpreter
If StringInStr($cmdlineraw, '/dummy') Then Exit
$interpreter = StringTrimRight(@ScriptName, 4) & ' Script Interpreter'
If WinExists($interpreter) Then Exit
AutoItWinSetTitle($interpreter)
EndFunc

Func _RunOnce()
; Add 2nd part to installation.
Local $key = 'HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce'
If @Compiled Then
RegWrite($key, '_DTools', 'Reg_sz', '"' & @ScriptFullPath & '" /postrun')
Else
RegWrite($key, '_DTools', 'Reg_sz', '"' & @AutoItExe & '" "' & @ScriptFullPath & '" /postrun')
EndIf
EndFunc
[/codebox]

Link to comment
Share on other sites

  • 2 weeks later...

[b][color="#3333ff"] FlashGet 1.81+
[/color][/b]
[color="#3333ff"][url="http://www.flashget.com/"]Homepage[/url][/color]

Why another script ???
The first script that i wrote did have more then 9000 downloads :thumbup .
So i decided to make an new one :wub:

[b][color="#3333ff"]Changelog
[/color][/b]1.31
-Script updated for the new installer (1.8.1.1002 version)

1.3
-Script updated for the new installer (1.81 version)
-added new options

1.2
-Script updated for the new installer (1.80 version)

1.1
- Script updated for the new installer
- Google Toolbar automatic deleted if installed before and also wont install :D
- logo added

1.0
- Start Script


[b][color="#3333ff"]Features:[/color][/b]
- autodetected setup file (must be in setup folder)
- custom Install dir
- custom Start Menu Folder
- NONE Google Toolbar
- registration (i know its FREE SOFTWARE)
- enable or disable FlashGet shareurl service (no option since 1.80)
- Make FlashGet as default download manager of IE
- Modify the restricton of connection number for TCP/IP
- Launch FlashGet on startup
- Add desktop shortcut
- Add to Quick Launch

[b][color="#3333ff"]How to use:[/color][/b]
- copy installation file (*.exe) to SETUP folder
- add your registration info into register.reg
- change custom messages if u like

Dont just run check the source, modify it to your need.
Script will work for newer versions if the installer will not change.
If any problems contact me via PM (dont send emails).

1.8.1.1002 version download [attachment=16339:flashget1.8.1.1002.zip]
1.81 version download [attachment=16135:flashget1.81.zip]
1.8 version download [attachment=15607:attachment]
1.73 version download [attachment=15058:attachment]

Edited by --=ddSHADOW=--
Link to comment
Share on other sites

[b][color="#3333ff"]Remove existing Google Toolbar[/color][/b]
[color="#3333ff"]
Features:[/color]
- Google Toolbar automatic deleted if installed
- remove Google folder

[color="#3333ff"]How to use:[/color]
- extract and run
- change custom messages if u like

If any problems contact me via PM (dont send emails).
Link to comment
Share on other sites

[size=3][b]DivX 6.4 Create Bundle[/b][/size]
Credit to MHz for the help

[url="http://www.divx.com/divx/windows/"]Info + Download[/url]

This script support English and French langage, tested working.
[color="#CC0000"]Works with computer connected or not connected to the Internet.[/color]

Enjoy
coucou Edited by coucou
Link to comment
Share on other sites

[b][color="#3333ff"]Nero 7 Lite[/color][/b][b][color="#3333ff"]
[/color][/b]
[b][color="#3333ff"][url="http://www.msfn.org/board/index.php?showtopic=69886"]Offical thread[/url][/color][/b]

[b][color="#3333ff"]Changelog
[/color][/b]1.0
- Start Script

[b][color="#3333ff"]Features:[/color][/b]
- sillent install

[color="#3333ff"][b]How to use:[/b][/color]
- copy installation file (*.exe) to installers folder
- add your registration info into registration.reg and plugins.reg
- change custom messages if u like

[b][color="#3333ff"]TO DO:[/color][/b]
-selectable language and all installers options

Dont just run check the source, modify it to your need.
Script will work for newer versions if the installer will not change.
If any problems contact me via PM (dont send emails).
Link to comment
Share on other sites

[quote name='Alanoll' post='213498' date='Oct 29 2004, 01:19 AM']Alrighty, finally got around to MASS pruning, a total of 3 pages at 25 posts a page....yeah....

Let's try and keep this thread free from as much discussion as possible.[/quote]

Well that was 2 years ago..

Cleaned up again today, Lets keep it clean.

[b]SUBMISSIONS ONLY - PM THE AUTHORS IF SOMETHING DOESNT WORK[/b]

shark
Link to comment
Share on other sites

  • 4 weeks later...
[attachment=15803:Nero_7.x.rar]

AutoIT script for Nero 7.5.9.0A
Original Authors: Salavinder, Glowy and Sanjay for Nero 7.2.3.2b
Now properly handles DirectX installation. Thanks goes to urie
for pointing out the error.
Also You'll have to edit the script to add your information.
Serial # etc.

Fixed if you choose to install InCD it didn't change the default ''no' to a 'yes'
Fixed If you already had directX installed, it would hang at the DirectX install
Had a report that Incd was still broke
Sorry about that 'sys' typo Edited by jbm
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...