iSiloX 4.37
Notes:
Save as a .au3 file in the same folder as the original installer and compile to have a working passive installer.
Read the script at least once to see if you want to change the customizations options, this script
changes the default options for components, install location and shortcut creation.
CODE
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.12.0
Author: JC
Script Function:
Automate iSiloX 4.3.7 Install.
#ce ----------------------------------------------------------------------------
#NoTrayIcon
Opt("TrayIconHide", 1)
Dim $aOptTxt[3] = ['&Create a shortcut to iSiloX on the desktop','Install iSiloX Clipper for Internet &Explorer 5.0 or later','Make iSiloX available for &all users on this computer']
Dim $aOptCID[3] = [1006, 1013, 1012]
Dim $aOpt[3] = [False,False,True]
Dim $aOrgOpt[3] = [True,True,False]
Dim $aOptC[3]
For $i = 0 To 2
If $aOpt[$i] <> $aOrgOpt[$i] Then
$aOptC[$i] = True
Else
$aOptC[$i] = False
EndIf
Next
$ParentPrgGrp = 'Palm'
$InstallDir = @ProgramFilesDir & '\Utilities\Palm\iSiloX'
FileInstall("iSiloX437Setup.exe", @TempDir & "\")
Run(@TempDir & "\" & "iSiloX437Setup.exe")
$WinTitle = 'iSiloX Setup: Welcome'
$WinText = 'Welcome to iSiloX Setup.'
WinWait($WinTitle, $WinText)
WinActivate($WinTitle, $WinText)
ControlClick($WinTitle, $WinText, 1)
$WinTitle = 'iSiloX Setup: Software License Agreement'
$WinText = 'Please read the following license agrement. Scroll to see the rest of the agreement.'
WinWait($WinTitle, $WinText)
WinActivate($WinTitle, $WinText)
ControlClick($WinTitle, $WinText, 1)
$WinTitle = 'iSiloX Setup: Options'
$WinText = 'Destination Folder'
WinWaitActive($WinTitle, $WinText)
WinActivate($WinTitle, $WinText)
ControlSetText($WinTitle, $WinText, 1004, $InstallDir)
For $i = 0 To 2
If $aOptC[$i] == True Then
ControlClick($WinTitle,$WinText,$aOptCID[$i])
EndIf
Next
ControlClick($WinTitle, $WinText, 1)
$WinTitle = 'iSiloX Setup: Complete'
$WinText = 'Congratulations! Setup successfully installed iSiloX onto your computer.'
WinWait($WinTitle, $WinText)
WinActivate($WinTitle, $WinText)
ControlClick($WinTitle, $WinText, 1)
ProcessWaitClose("iSiloX437Setup.exe", 180)
If FileExists (@ProgramsCommonDir & "\" & "\iSiloX") Then
If Not FileExists (@ProgramsCommonDir & "\" & $ParentPrgGrp) Then
DirCreate (@ProgramsCommonDir & "\" & $ParentPrgGrp)
EndIf
DirMove (@ProgramsCommonDir & "\iSiloX", @ProgramsCommonDir & "\" & $ParentPrgGrp, 1)
EndIf
If FileExists (@ProgramsDir & "\" & "\iSiloX") Then
If Not FileExists (@ProgramsDir & "\" & $ParentPrgGrp) Then
DirCreate (@ProgramsDir & "\" & $ParentPrgGrp)
EndIf
DirMove (@ProgramsDir & "\iSiloX", @ProgramsDir & "\" & $ParentPrgGrp, 1)
EndIf
If FileExists (@TempDir & "\" & "iSiloX437Setup.exe") Then FileDelete (@TempDir & "\" & "iSiloX437Setup.exe")
Edit: attached script file.