Leaderboard

A small but mighty update found in the first post. I spent a lot of time on the selection handles AKA grippies. Now when you select multiple controls either by drag-selecting or Ctrl+select, each selected control will show a set of grippies. Conversely, holding Ctrl and clicking on a control that is already selected will DEselect that control. There are a few things I'd like to iron out, such as scaling the controls proportionally when dragging to resize multiple controls, but overall I am quite happy with where it is at now. Selecting and interacting with controls is much more stable now as well. Other than some miscellaneous bug fixes and maintenance items, you can now add menu items to the main menus. It is a little quirky and requires using the object explorer to add and delete items. But that was the best solution I could come up with without adding a ton more work. FIXED: Array subscript error when closing tool windows. FIXED: Multiple selection while holding Ctrl key now works properly. FIXED: Save/load GUI height with menus ADDED: Show grippies on each selected control! Each control object now has a built-in grippy object ADDED: Menu items can now be added and removed from the object explorer only REMOVED: Prompt to save to au3 file. User can always use File menu to save/export UPDATED: modified the About dialog text for a more detailed description and naming history MAINT: cleaned up more global variables MAINT: made control selection much more robust and consistent Also added a link to the Github repo per the suggestion of @mLipok

https://www.autoitscript.com/autoit3/files/beta/autoit/autoit-v3.3.16.1-rc1-setup.zip https://www.autoitscript.com/autoit3/files/beta/autoit/autoit-v3.3.16.1-rc1.zip 3.3.16.1 (xxx, 2022) (Release) AutoIt: - Fixed #3866: REGEXPCLASS broken in 3.3.16.0. - Fixed #3875: GUICtrlSetResizing() performance. - Fixed #3865: Image Control resizing behave as forced $GUI_DOCKWIDTH and $GUI_DOCKHEIGHT. - Fixed #3764: StringRegExp() crash with patterns that cause infinite recursion. - Fixed #3876: Hex Number Arithmetic is incorrect. - Fixed #3879: Dim Map to Array. UDFs: - Fixed #3867: Changes in 'SecurityConstants.au3' to avoid name conflict. THIS IS A SCRIPT BREAKING CHANGE - Added: UBound[2] example. - Added: StringRegExp[5] example. - Added: _GUICtrlEdit_SetPadding() function and example. - Fixed: Regression in 3.3.15.1, _WinAPI_RegCreateKey() and _WinAPI_RegOpenkey(). - Added: _WinAPI_RegDeleteKey() can use $hKey as in RegRead(). - Fixed: Regression of #3835 on _GDIPlus_GraphicsGet*(). - Fixed #3871: _ArrayDisplay() Hang sorted array with Null element. - Fixed: _FTP_FileGetSize() very big size. - Fixed #3872: FTP-Server in AutoIt Help no longer accessible. - Fixed #3877: GUICtrlCreateLabel() overlapping controls doc precision ($WS_CLIPSIBLINGS). - Added #3863: _WinAPI_GetCapture(). - Added: Allows _DebugArrayDisplay() to be used in UserFunc. - Added: _ArrayDisplay() and _DebugArrayDisplay() support Min Column width. - Added: _Array2DCreate() support 1D and/or 2D arrays. - Added: _DebugReportVar() display DllStruct content. - Fixed #3883: _DebugArrayDisplay() produces uncalled console message. - Added: _ArrayDisplay() and _DebugArrayDisplay() display {Array[dims]}, {Map[nentry]} and {Object}.

As of May 12th, 2020 - I no longer do much coding at all. If you have any questions about this software please post your questions in the main support forum. The Vollatran Project - Application Installer tool I've been running a PM thread for a while for a script that performs batch type application installs on PCs. I'm not the original author of the script (My hat goes off to Kennedy for the original work!) but I have taken his wonderful work and tweaked it to my needs. Screenshot example: Version of AutoIt required: 3.3.6.1. (or later) Main Script: ;Notes: I'm not the original writer of this code. I have taken the code and made changes to it to suit ;my purposes as well as maintaining it. The original writer is Kennedy. #include <file.au3> Opt("ExpandEnvStrings", 1) ;test Opt("TrayIconDebug", 1) Dim $Ver ;OS Version Dim $OS ;OS Version in more readable format ReturnOSVersion() _inicheck() ;if the INI for the OS is missing the script will error then exit Dim $InstallFile = @ScriptDir & "\config\" & $Ver & ".ini" ;default install file Dim $LogFile = IniRead(@ScriptDir & "\config\config.ini", "config", "LogFilePath", @TempDir) & "\Install_History\Install-" & @ComputerName & ".txt" Dim $Log = IniRead(@ScriptDir & "\config\config.ini", "config", "LogFile", "1") Dim $settings = "\config\config.ini" Dim $AvailableArray[1][1] ;array with all commands Dim $SelectedArray[1][1] ;array with commands to run Dim $Available ;list with all sections Dim $Selected ;list with selected sections Dim $DefaultProfile = "(none)" ;profile selected by default Dim $ProfilesList = "" ;list of all profiles Dim $SelectedProfile = "" ;currently selected profile Dim $Profile = "" ;profile to use in silent run Dim $Silent = 0 ;is it silent run? Dim $ForceGUI = 0 ;show GUI for non-standart file? Dim $Reboot = 1 ;reboot mode Dim $AutoLogon = 0 ;autologon selected? Dim $RebootCount = 0 ;number of reboots required Dim $Flag ;default flag for installation If IniRead(@ScriptDir & "\config\config.ini", "config", "WindowMode", "Minimize") = "Minimize" Then $Flag = @SW_MINIMIZE If IniRead(@ScriptDir & "\config\config.ini", "config", "WindowMode", "Minimize") = "Maximize" Then $Flag = @SW_MAXIMIZE If IniRead(@ScriptDir & "\config\config.ini", "config", "WindowMode", "Minimize") = "Hide" Then $Flag = @SW_HIDE Dim $NonSelectable = IniRead(@ScriptDir & "\config\config.ini", "config", "NonSelectable", "") Dim $RebootTimer = IniRead(@ScriptDir & "\config\config.ini", "config", "RebootTimer", "60") Dim $AdminWarning = IniRead(@ScriptDir & "\config\config.ini", "config", "AdminWarning", "1") Dim $ProgressType = IniRead(@ScriptDir & "\config\config.ini", "config", "ProgressType", "2") Dim $Logging = IniRead(@ScriptDir & "\config\config.ini", "config", "Logging", "1") Dim $Append = "" ;path to append to commands Dim $Description ;description for Progress2 items Dim $Context ;context for Progress2 Dim $SoftwareToInstall = 0 Dim $Subcommands = 0 Dim $CurrentSubCommand = 0 Dim $LabelDescription, $ProgressSubItems, $ProgressItem1, $ProgressItem2 ;;;;;;;;;;;;; ;MAIN If $AdminWarning = 1 Then CheckAdmin() CommandLine() FileToArray($AvailableArray, $InstallFile) If $Silent = 1 And $ForceGUI = 0 Then If $Profile <> "" Then $Selected = IniRead($InstallFile, "Profiles", $Profile, "") Else $Selected = $Available EndIf Else ReturnOSVersion() GUI() GUIDelete() EndIf ReadSelection() Install() GUIDelete() If $Reboot > 1 Then Reboot($RebootTimer) ;;;;;;;;;;;;; ;done Func ReturnOSVersion() ;Get OS version to readable format $Ver = @OSVersion Select Case $Ver = "WIN_7" If @OSArch = "X86" then $Ver = "WIN_7_32" $OS = "Windows 7 - 32Bit " EndIf If @OSArch = "X64" then $Ver = "WIN_7_64" $OS = "Windows 7 - 64Bit " EndIf Case $Ver = "WIN_2008R2" $OS = "Windows Server 2008" Case $Ver = "WIN_VISTA" $OS = "Windows Vista" Case $Ver = "WIN_2003" $OS = "Windows Server 2003" Case $Ver = "WIN_XP" If @OSArch = "X86" then $Ver = "WIN_XP_32" $OS = "Windows XP - 32Bit " EndIf If @OSArch = "X64" then $Ver = "WIN_XP_64" $OS = "Windows XP - 64Bit " EndIf Case $Ver = "WIN_2000" $OS = "Windows 2000" Case $Ver = "WIN_98" $OS = "Windows 98" Case $Ver = "WIN_ME" $OS = "Windows ME" Case $Ver = "WIN_95" $OS = "Windows 95" Case $Ver = "WIN_NT4" $OS = "Windows NT4" EndSelect EndFunc ;==>ReturnOSVersion ;done Func CommandLine() ; Read command line options For $i = 1 To UBound($CmdLine) - 1 Select Case $CmdLine[$i] = "?" Or $CmdLine[$i] = "/?" Or $CmdLine[$i] = "help" Or $CmdLine[$i] = "/help" MsgBox(0, "Help", "/? - Displays this message" & @LF & _ "filename - Specify file to read instructions from (Silent mode)" & @LF & _ " You can create such files in GUI mode" & @LF & _ "/GUI Forces GUI mode" & @LF & _ "Profile Profile to use" & @LF & _ "reboot 0 - Disable restarting the computer" & @LF & _ " 1 - Enable restarting the computer (default)" & @LF & _ " 2 - Disable but restart when finished" & @LF & _ " 3 - Enable and restart when finished" & @LF & @LF & _ "Example:" & @LF & _ " VollatranInstall.exe c:\VollatranInstall.ini 2") Exit Case StringIsDigit($CmdLine[$i]) Select Case $CmdLine[$i] = 0 $Reboot = 0 Case $CmdLine[$i] = 1 $Reboot = 1 Case $CmdLine[$i] = 2 $Reboot = 2 Case $CmdLine[$i] = 3 $Reboot = 3 EndSelect Case $CmdLine[$i] = "/GUI" $ForceGUI = 1 Case StringRight($CmdLine[$i], 4) = ".ini" $InstallFile = $CmdLine[$i] $Silent = 1 Case Else $Profile = $CmdLine[$i] EndSelect Next EndFunc ;==>CommandLine ;done Func Reboot($tSeconds) ;Reboot computer ProgressOn("Restarting", IniRead(@ScriptDir & "\config\config.ini", "Language", "Restarting", "Restarting"), "", -1, -1, 16) For $i = $tSeconds To 0 Step -1 Sleep(1000) ProgressSet((($tSeconds - $i) * 100) / $tSeconds, $i & " seconds") Next Shutdown(6) EndFunc ;==>Reboot ;done Func CheckAdmin() ;Check if user has administrator rights If IsAdmin() = 0 Then If MsgBox(4, "", "Administrator rights required. Continue?") = 7 Then Exit EndIf EndFunc ;==>CheckAdmin ;done Func FileToArray(ByRef $tArray, $tFile) ;Write all commands to array $i = 0 $ProfilesList = IniRead($tFile, "Config", "Profiles", "") $ProfilesList = $ProfilesList & "|All|(none)" $DefaultProfile = IniRead($tFile, "Config", "DefaultProfile", "(none)") $Append = IniRead($tFile, "Config", "Append", "") If $Append = "CD" Then $Append = @ScriptDir & "\" $tOpenFile = FileOpen($tFile, 0) While 1 $tLine = FileReadLine($tOpenFile) If @error = -1 Then ExitLoop $tLine = StringStripWS($tLine, 3) Select Case StringLeft($tLine, 1) = "[" If StringLeft($tLine, 8) <> "[Config]" And StringLeft($tLine, 10) <> "[Profiles]" Then FillArray($tArray, $tLine, "Section", $i) $tArray[$i - 1][0] = StringReplace($tArray[$i - 1][0], "[", "") $tArray[$i - 1][0] = StringReplace($tArray[$i - 1][0], "]", "") $Available = $Available & "|" & $tArray[$i - 1][0] EndIf Case StringLeft($tLine, 7) = "RunWait" FillArray($tArray, $tLine, "RunWait", $i) Case StringLeft($tLine, 3) = "Run" FillArray($tArray, $tLine, "Run", $i) Case StringLeft($tLine, 3) = "MSI" FillArray($tArray, $tLine, "MSI", $i) Case StringLeft($tLine, 3) = "DOS" FillArray($tArray, $tLine, "DOS", $i) Case StringLeft($tLine, 3) = "REG" FillArray($tArray, $tLine, "REG", $i) Case StringLeft($tLine, 11) = "WaitProcess" FillArray($tArray, $tLine, "WaitProcess", $i) Case StringLeft($tLine, 12) = "WinWaitClose" FillArray($tArray, $tLine, "WinWaitClose", $i) Case StringLeft($tLine, 6) = "Reboot" FillArray($tArray, $tLine, "Reboot", $i) Case StringLeft($tLine, 13) = "FolderCommand" FillArray($tArray, $tLine, "FolderCommand", $i) Case StringLeft($tLine, 11) = "FolderFiles" FillArray($tArray, $tLine, "FolderFiles", $i) Case StringLeft($tLine, 12) = "FolderSwitch" FillArray($tArray, $tLine, "FolderSwitch", $i) Case StringLeft($tLine, 6) = "Folder" FillArray($tArray, $tLine, "Folder", $i) Case StringLeft($tLine, 16) = "FileExistVersion" FillArray($tArray, $tLine, "FileExistVersion", $i) Case StringLeft($tLine, 15) = "FileExistAction" FillArray($tArray, $tLine, "FileExistAction", $i) Case StringLeft($tLine, 9) = "FileExist" FillArray($tArray, $tLine, "FileExist", $i) Case StringLeft($tLine, 18) = "FileNotExistAction" FillArray($tArray, $tLine, "FileNotExistAction", $i) Case StringLeft($tLine, 12) = "FileNotExist" FillArray($tArray, $tLine, "FileNotExist", $i) Case StringLeft($tLine, 11) = "Description" FillArray($tArray, $tLine, "Description", $i) Case StringLeft($tLine, 7) = "Context" FillArray($tArray, $tLine, "Context", $i) Case Else EndSelect WEnd FileClose($tOpenFile) EndFunc ;==>FileToArray ;done Func FillArray(ByRef $tArray, $tLine, $tCommand, ByRef $tCounter) ReDim $tArray[$tCounter + 1][2] $tPos = StringInStr($tLine, "=") $tLine = StringTrimLeft($tLine, $tPos) $tLine = StringStripWS($tLine, 3) $tArray[$tCounter][0] = $tLine $tArray[$tCounter][1] = $tCommand $tCounter = $tCounter + 1 EndFunc ;==>FillArray ;done Func DelFromList(ByRef $tList, $tItem) $tList = StringReplace($tList & "|", "|" & $tItem & "|", "|") $tList = StringTrimRight($tList, 1) EndFunc ;==>DelFromList ;done Func CheckList($tString, $tSubstring) ; Check if substring is in the list $tString = $tString & "|" If StringInStr($tString, "|" & $tSubstring & "|") > 0 Then Return 1 Else Return 0 EndIf EndFunc ;==>CheckList ;done Func ReadSelection() $tSelected = "" $Subcommands = 0 $SoftwareToInstall = 0 $tNumber = UBound($AvailableArray) $j = 1 $tTriger = 0 For $i = 0 To $tNumber - 1 If $AvailableArray[$i][1] = "Section" Then If CheckList($Selected, $AvailableArray[$i][0]) = 1 Then $SoftwareToInstall = $SoftwareToInstall + 1 $tTriger = 1 $tSelected = $tSelected & "|" & $AvailableArray[$i][0] Else $tTriger = 0 EndIf EndIf If $tTriger = 1 Then ReDim $SelectedArray[$j][2] $SelectedArray[$j - 1][0] = $AvailableArray[$i][0] $SelectedArray[$j - 1][1] = $AvailableArray[$i][1] If $AvailableArray[$i][1] = "Reboot" Then $RebootCount = $RebootCount + 1 $j = $j + 1 EndIf Next $Selected = $tSelected EndFunc ;==>ReadSelection ;done Func FindNextSection($tArray, $tCounter) For $i = $tCounter To UBound($tArray) - 1 If $tArray[$i][1] = "Section" Then Return $i Next Return -1 EndFunc ;==>FindNextSection ;done Func CountFiles($tFolder, $tFileType) $i = 0 $tFile = FileFindFirstFile($tFolder & "\*." & $tFileType) If $tFile = -1 Then Return 0 EndIf While 1 $tNextFile = FileFindNextFile($tFile) If @error Then Return $i $i = $i + 1 WEnd EndFunc ;==>CountFiles ;done Func GUI() $gui1 = GUICreate("Vollatran - " & $OS & " " & @OSServicePack, 510, 455) GUICtrlCreateTab(0, 0, 510, 455) GUICtrlCreateTabItem("Available Software") GUICtrlCreateLabel(IniRead(@ScriptDir & "\config\config.ini", "Language", "Available", "Available Programs"), 20, 30, 160, 20) GUICtrlSetFont(-1, 12, 646) GUICtrlCreateLabel(IniRead(@ScriptDir & "\config\config.ini", "Language", "Selected", "Selected Programs"), 210, 30, 160, 20) GUICtrlSetFont(-1, 12, 646) GUICtrlCreateLabel(@YEAR&" VP", 390, 420, 160, 20) $ListAvailable = GUICtrlCreateList("", 10, 50, 180, 400, 0x00a00001) GUICtrlSetData(-1, $Available) GUICtrlSetTip(-1, "Click on item to select it") $ListSelected = GUICtrlCreateList("", 200, 50, 180, 400, 0x00a00001) $Selected = IniRead($InstallFile, "Profiles", $DefaultProfile, "") GUICtrlSetData(-1, $Selected) GUICtrlSetTip(-1, "Click on item to remove it") $ButtonStart = GUICtrlCreateButton(IniRead(@ScriptDir & "\config\config.ini", "Language", "Start", "Start"), 390, 380, 110, 25, 0x0001) GUICtrlSetTip(-1, "Start Installation") $ComboProfiles = GUICtrlCreateCombo("", 390, 50, 110, 30, 0x00200142) GUICtrlSetData(-1, $ProfilesList, $DefaultProfile) GUICtrlSetTip(-1, "Select Profile to use") $ButtonSaveProf = GUICtrlCreateButton(IniRead(@ScriptDir & "\config\config.ini", "Language", "SaveProfile", "Save Profile"), 390, 80, 110, 25) GUICtrlSetTip(-1, "Save/Update selected profile") $ButtonDelProf = GUICtrlCreateButton(IniRead(@ScriptDir & "\config\config.ini", "Language", "DeleteProfile", "Delete Profile"), 390, 110, 110, 25) GUICtrlSetTip(-1, "Delete selected profile") $ButtonClear = GUICtrlCreateButton(IniRead(@ScriptDir & "\config\config.ini", "Language", "Clear", "Clear"), 390, 140, 110, 25) GUICtrlSetTip(-1, "Remove all selected items from list") $CheckReboot = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\config\config.ini", "Language", "Reboot", "Reboot"), 410, 305, 90, 20) GUICtrlSetTip(-1, "Reboot when finished") $CheckAutoLog = GUICtrlCreateCheckbox(IniRead(@ScriptDir & "\config\config.ini", "Language", "Autologon", "Autologon"), 410, 325, 90, 20) GUICtrlSetTip(-1, "Enable autologon") $ButtonSaveFile = GUICtrlCreateButton(IniRead(@ScriptDir & "\config\config.ini", "Language", "SaveToFile", "Save To File"), 390, 350, 110, 25) GUICtrlSetTip(-1, "Save selection to file") $logo1 = IniRead(@ScriptDir & $settings, "logo", "pic1", "") $logo2 = IniRead(@ScriptDir & $settings, "logo", "pic2", "") If $logo1 = "" Then ConsoleWrite('line: '&@ScriptLineNumber & ':'&@crlf&'GUICtrlCreatePic(@ScriptDir & $logo1, 390, 170, 110, 60) = You will need to insert pic to make it apppear'&@crlf) ;### Debug Console GUICtrlCreateLabel("No Logo defined. Edit config.ini> [logo]> pic1 to add logo", 390, 170, 110, 60) Else GUICtrlCreatePic(@ScriptDir & $logo1, 390, 170, 110, 60) EndIf If $logo2 = "" Then ConsoleWrite('line: '&@ScriptLineNumber & ':'&@crlf&'GUICtrlCreatePic(@ScriptDir & $logo2, 390, 240, 110, 60) = You will need to insert pic to make it apppear'&@crlf) ;### Debug Console GUICtrlCreateLabel("No Logo defined. Edit config.ini> [logo]> pic2 to add logo", 390, 240, 110, 60) Else GUICtrlCreatePic(@ScriptDir & $logo2, 390, 240, 110, 60) EndIf ;~ GUICtrlCreateTabItem("Currently Installed Software") ;~ ;Will use Big_daddy's code here to build section ;~ ;~ GUICtrlCreateTabItem("System Information") ;~ ;will need to research ;~ ;~ GUICtrlCreateTabItem("Log files") ;~ ;All logs will be here. Have buttons to open new child windows. ;~ ;~ GUICtrlCreateTabItem("Settings") ;~ ;All settings that are contained in config file will be controled here. ;~ ; GUISetState(@SW_SHOW, $gui1) While 1 $msg = GUIGetMsg() Select Case $msg = -3 Exit Case $msg = $ListAvailable $tItem = GUICtrlRead($ListAvailable) If $tItem <> "" And StringLeft($tItem, 1) <> $NonSelectable Then If CheckList($Selected, $tItem) = 0 Then $Selected = $Selected & "|" & $tItem GUICtrlSetData($ListSelected, $Selected) EndIf EndIf Case $msg = $ListSelected $tItem = GUICtrlRead($ListSelected) If $tItem <> "" Then $tString = $Selected & "|" $tString = StringReplace($tString, "|" & $tItem & "|", "|") $Selected = StringTrimRight($tString, 1) GUICtrlSetData($ListSelected, $Selected) EndIf Case $msg = $ButtonStart ExitLoop Case $msg = $ComboProfiles $SelectedProfile = GUICtrlRead($ComboProfiles) Select Case $SelectedProfile = "(none)" $Selected = "" GUICtrlSetData($ListSelected, $Selected) Case $SelectedProfile = "All" $Selected = "" $tArray = StringSplit($Available, "|") For $i = 1 To $tArray[0] If $tArray[$i] <> "" And StringLeft($tArray[$i], 1) <> $NonSelectable Then $Selected = $Selected & "|" & $tArray[$i] EndIf Next GUICtrlSetData($ListSelected, $Selected) Case Else $Selected = IniRead($InstallFile, "Profiles", $SelectedProfile, "") GUICtrlSetData($ListSelected, $Selected) EndSelect Case $msg = $ButtonSaveProf $tItem = GUICtrlRead($ComboProfiles) If StringIsDigit($tItem) = 1 Then MsgBox(0, "", "Profile name can't be a number") ContinueLoop EndIf If $tItem <> "(none)" And $tItem <> "All" And StringStripWS($tItem, 3) <> "" Then If CheckList($ProfilesList, $tItem) = 0 Then $ProfilesList = $ProfilesList & "|" & $tItem $tString = $ProfilesList DelFromList($tString, "(none)") DelFromList($tString, "All") IniWrite($InstallFile, "Config", "Profiles", $tString) EndIf IniWrite($InstallFile, "Profiles", $tItem, $Selected) GUICtrlSetData($ComboProfiles, "") GUICtrlSetData($ComboProfiles, $ProfilesList, $tItem) EndIf Case $msg = $ButtonDelProf $tItem = GUICtrlRead($ComboProfiles) If $tItem <> "(none)" And $tItem <> "All" And StringStripWS($tItem, 3) <> "" Then DelFromList($ProfilesList, $tItem) $tString = $ProfilesList DelFromList($tString, "(none)") DelFromList($tString, "All") IniWrite($InstallFile, "Config", "Profiles", $tString) IniDelete($InstallFile, "Profiles", $tItem) GUICtrlSetData($ComboProfiles, "") GUICtrlSetData($ComboProfiles, $ProfilesList) EndIf Case $msg = $ButtonClear $Selected = "" GUICtrlSetData($ListSelected, $Selected) Case $msg = $CheckReboot If $Reboot < 2 Then $Reboot = $Reboot + 2 ElseIf $Reboot > 1 Then $Reboot = $Reboot - 2 EndIf Case $msg = $CheckAutoLog If $AutoLogon = 0 Then $AutoLogon = 1 ElseIf $AutoLogon = 1 Then $AutoLogon = 0 EndIf Case $msg = $ButtonSaveFile ReadSelection() GUICtrlSetData($ListSelected, $Selected) SaveToFile("", 0) Case Else EndSelect WEnd EndFunc ;==>GUI ;win other Func AutoLogon() ;Write autologon information to registry If $Ver = "WIN_XP_32" Or $Ver = "WIN_XP_64" Or $Ver = "WIN_2000" Or $Ver = "WIN_NT4" Then ; ------------------------------------------------------------------------------------------------------- ; Note - I added support for 32 bit and 64 bit Windows XP. However I'm not able to test on all Operating systems. ;you will need to verify on your OS that the below RegWrite paths are correct. If not correct for your OS ; then you will need to make a new IF statement to cover the paths you need. RegWrite("HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\", "DefaultUserName", "REG_SZ", @UserName) $Password = InputBox("Password", "Enter password for autologon" & @CR & $RebootCount & " restart(s) required", "", "*") RegWrite("HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\", "DefaultPassword", "REG_SZ", $Password) RegWrite("HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\", "AutoAdminLogon", "REG_SZ", "1") RegWrite("HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\", "AutoLogonCount", "REG_DWORD", $RebootCount) RegWrite("HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\", "DefaultDomainName", "REG_SZ", @LogonDomain) EndIf If $Ver = "WIN_98" Or $Ver = "WIN_95" Or $Ver = "WIN_ME" Then MsgBox(0, "", "Autologon currently not avialable for " & $OS) EndIf EndFunc ;==>AutoLogon ;done Func FindNumberOfSubcommands($tCounter) $tSubCommands = 0 For $i = $tCounter To UBound($SelectedArray) - 1 If $SelectedArray[$i][1] = "Section" Or $i = UBound($SelectedArray) - 1 Then Return $tSubCommands EndIf If $SelectedArray[$i][1] = "Run" Or $SelectedArray[$i][1] = "RunWait" Or $SelectedArray[$i][1] = "DOS" Or _ $SelectedArray[$i][1] = "MSI" Or $SelectedArray[$i][1] = "REG" Or $SelectedArray[$i][1] = "WaitProcess" Then $tSubCommands = $tSubCommands + 1 EndIf If $SelectedArray[$i][1] = "Folder" Then If $SelectedArray[$i + 1][1] = "FolderFiles" Then $tSubCommands = $tSubCommands + CountFiles($SelectedArray[$i][0], $SelectedArray[$i + 1][0]) ElseIf $SelectedArray[$i + 2][1] = "FolderFiles" Then $tSubCommands = $tSubCommands + CountFiles($SelectedArray[$i][0], $SelectedArray[$i + 2][0]) ElseIf $SelectedArray[$i + 3][1] = "FolderFiles" Then $tSubCommands = $tSubCommands + CountFiles($SelectedArray[$i][0], $SelectedArray[$i + 3][0]) EndIf EndIf Next Return 0 EndFunc ;==>FindNumberOfSubcommands ;done Func WriteLog($tType, $tCommandType, $tCommand, $tError) Select Case $tType = 1 FileWriteLine($LogFile, " " & @HOUR & ":" & @MIN & ":" & @SEC & " Start " & $tCommandType & " = " & $tCommand) Case $tType = 2 If $tError = 1 Then FileWriteLine($LogFile, "!!!Error executing command!!!") EndIf FileWriteLine($LogFile, " " & @HOUR & ":" & @MIN & ":" & @SEC & " End " & $tCommandType & " = " & $tCommand) Case $tType = 0 FileWriteLine($LogFile, @YEAR & ":" & @MON & ":" & @MDAY & " Installation started") Case $tType = 3 FileWriteLine($LogFile, @YEAR & ":" & @MON & ":" & @MDAY & " Installation finished") Case $tType = 4 FileWriteLine($LogFile, " " & @HOUR & ":" & @MIN & ":" & @SEC & " Restarting") FileWriteLine($LogFile, "") Case Else EndSelect EndFunc ;==>WriteLog ;done Func Fileexist($tCondition, $tName, $tVersion) $tTrue = 0 If $tCondition = 0 Then If FileExists($tName) = 1 Then Return 0 Else Return 1 EndIf EndIf If $tCondition = 1 Then If FileExists($tName) = 1 Then If $tVersion = "" Then Return 1 Else $tEq = 0 If StringInStr("<=>", StringLeft($tVersion, 1)) > 0 Then $tEq = 2 ^ StringInStr("<=>", StringLeft($tVersion, 1)) $tVersion = StringTrimLeft($tVersion, 1) EndIf If StringInStr("<=>", StringLeft($tVersion, 1)) > 0 Then $tEq = $tEq + (2 ^ StringInStr("<=>", StringLeft($tVersion, 1))) $tVersion = StringTrimLeft($tVersion, 1) EndIf Select Case $tEq = 2 Return (FileGetVersion($tName) < $tVersion) Case $tEq = 4 Return (FileGetVersion($tName) = $tVersion) Case $tEq = 8 Return (FileGetVersion($tName) > $tVersion) Case $tEq = 6 Return (FileGetVersion($tName) <= $tVersion) Case $tEq = 10 Return (FileGetVersion($tName) <> $tVersion) Case $tEq = 12 Return (FileGetVersion($tName) >= $tVersion) Case Else Return 1 EndSelect EndIf EndIf Return 0 EndIf EndFunc ;==>Fileexist Func UpdateProgressBar($tItemStart, $tItemEnd, $tCurrentItem, $tArray, $tArrayItem, $tSubCommands) $j = 1 $k = 0 GUICtrlSetPos($LabelDescription, 60, 1000, 220, 15) GUICtrlSetPos($ProgressSubItems, 30, 1000, 240, 10) For $i = $tItemStart To $tCurrentItem - 1 GUICtrlSetPos($i, 30, 30 + ($j) * 15, 260, 15) GUICtrlSetFont($i, 10, 400) GUICtrlSetData($i, $tArray[$tArrayItem + $k]) $k = $k + 1 $j = $j + 1 Next GUICtrlSetPos($tCurrentItem, 30, 30 + ($j) * 15, 260, 25) GUICtrlSetData($tCurrentItem, $tArray[$tArrayItem + $k]) GUICtrlSetFont($tCurrentItem, 11, 646) $k = $k + 1 If $tSubCommands > 2 Then GUICtrlSetPos($LabelDescription, 60, 30 + ($j + 2) * 15, 220, 20) GUICtrlSetData($LabelDescription, "test") GUICtrlSetPos($ProgressSubItems, 30, 35 + ($j + 1) * 15, 240, 10) GUICtrlSetData($ProgressSubItems, 10) $j = $j + 3 Else $j = $j + 1 EndIf For $i = $tCurrentItem + 1 To $tItemEnd GUICtrlSetPos($i, 30, 35 + ($j) * 15, 260, 15) GUICtrlSetFont($i, 10, 400) GUICtrlSetData($i, $tArray[$tArrayItem + $k]) $k = $k + 1 $j = $j + 1 Next EndFunc ;==>UpdateProgressBar Func SaveToFile($tFile, $tFrom) ; Write selection to file If $tFile = "" Then $tFile = FileSaveDialog("title", "c:\", "INI files (*.ini)", 16, "VollatranInstall.ini") EndIf $tOpenFile = FileOpen($tFile, 2) If $tOpenFile = -1 Then MsgBox(0, "Error", "Unable to open file.") Return EndIf FileWriteLine($tOpenFile, "[Config]") FileWriteLine($tOpenFile, "Append = " & IniRead($InstallFile, "Config", "Append", "")) For $i = $tFrom To UBound($SelectedArray) - 1 Select Case $SelectedArray[$i][1] = "Section" FileWriteLine($tOpenFile, "") FileWriteLine($tOpenFile, "[" & $SelectedArray[$i][0] & "]") Case $SelectedArray[$i][1] = "Reboot" FileWriteLine($tOpenFile, "Reboot") Case Else FileWriteLine($tOpenFile, $SelectedArray[$i][1] & " = " & $SelectedArray[$i][0]) EndSelect Next FileClose($tOpenFile) EndFunc ;==>SaveToFile Func Install() WriteLog(0, 1, 1, 1) Dim $tItems = 0 If $SoftwareToInstall = 0 Then ;check if anything selected Exit EndIf If $AutoLogon = 1 And $RebootCount > 0 Then AutoLogon() ; $tContinue = StringSplit ( IniRead (@TempDir & "\VollatranInstall-temp.ini", "Config", "Continue", "" ), "|") ; $tComtinue[1]; $i ; $tComtinue[2]; $tSize ; $tComtinue[3]; $ProgressOwerall ; $tComtinue[4]; $tCounter ; $tComtinue[5]; $tPlacehold ; $tComtinue[6]; $tProgressItem ; $tComtinue[7]; $LabelContext If $ProgressType = 2 Then Dim $tSize Dim $SelectedSections = StringSplit(StringTrimLeft($Selected, 1), "|") If UBound($SelectedSections) - 1 < 18 Then $tSize = 15 * (UBound($SelectedSections) - 1) Else $tSize = 270 EndIf GUICreate("Installing Applications", 300, $tSize + 130, 20, 20, -1, 0x00000008) GUISetFont(10, -1, -1, "Times New Roman") $PLabel1 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel2 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel3 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel4 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel5 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel6 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel7 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel8 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel9 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel10 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel11 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel12 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel13 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel14 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel15 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel16 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel17 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $PLabel18 = GUICtrlCreateLabel("", 30, 1000, 260, 15) $Overall = GUICtrlCreateLabel("Overall Progress", 30, $tSize + 105, 260, 25) GUICtrlSetFont(-1, 10, 646) $ProgressOverall = GUICtrlCreateProgress(30, $tSize + 85, 240, 20, 0x01) $LabelContext = GUICtrlCreateLabel("Installing Applications", 10, 10, 260, 20) GUICtrlSetFont(-1, 12, 646) Global $LabelDescription = GUICtrlCreateLabel("", 60, 1000, 260, 15) GUICtrlSetFont(-1, 9, 646) Global $ProgressSubItems = GUICtrlCreateProgress(30, 1000, 240, 15, 0x01) Dim $ProgressArray[19] $ProgressArray[1] = $PLabel1 $ProgressArray[2] = $PLabel2 $ProgressArray[3] = $PLabel3 $ProgressArray[4] = $PLabel4 $ProgressArray[5] = $PLabel5 $ProgressArray[6] = $PLabel6 $ProgressArray[7] = $PLabel7 $ProgressArray[8] = $PLabel8 $ProgressArray[9] = $PLabel9 $ProgressArray[10] = $PLabel10 $ProgressArray[11] = $PLabel11 $ProgressArray[12] = $PLabel12 $ProgressArray[13] = $PLabel13 $ProgressArray[14] = $PLabel14 $ProgressArray[15] = $PLabel15 $ProgressArray[16] = $PLabel16 $ProgressArray[17] = $PLabel17 $ProgressArray[18] = $PLabel18 GUISetState() $tCounter1 = 0 $tPlacehold = 5 Global $ProgressItem1 = IniRead($InstallFile, "Config", "Progress1", "1") Global $ProgressItem2 = IniRead($InstallFile, "Config", "Progress2", UBound($SelectedSections) - 1) $tProgressItem = 1 For $i = 0 To UBound($SelectedArray) - 1 Select Case $SelectedArray[$i][1] = "Section" $Subcommands = FindNumberOfSubcommands($i + 1) $CurrentSubCommand = 0 GUICtrlSetData($ProgressOverall, 100 * ($ProgressItem1 - 1) / $ProgressItem2) Select Case UBound($SelectedSections) - 1 <= 18 UpdateProgressBar($PLabel1, $ProgressArray[UBound($SelectedSections) - 1], $ProgressArray[$tProgressItem], $SelectedSections, 1, $Subcommands) Case $tProgressItem < 5 UpdateProgressBar($PLabel1, $PLabel18, $ProgressArray[$tProgressItem], $SelectedSections, 1, $Subcommands) Case (UBound($SelectedSections) - 1) - $tProgressItem > 13 UpdateProgressBar($PLabel1, $PLabel18, $ProgressArray[5], $SelectedSections, 1 + $tCounter1, $Subcommands) $tCounter1 = $tCounter1 + 1 Case (UBound($SelectedSections) - 1) - $tProgressItem <= 13 UpdateProgressBar($PLabel1, $PLabel18, $ProgressArray[$tPlacehold], $SelectedSections, 1 + $tCounter1, $Subcommands) $tPlacehold = $tPlacehold + 1 EndSelect $tProgressItem = $tProgressItem + 1 $ProgressItem1 = $ProgressItem1 + 1 Case $SelectedArray[$i][1] = "Context" GUICtrlSetData($LabelContext, $SelectedArray[$i][0]) Case $SelectedArray[$i][1] = "Description" $Description = $SelectedArray[$i][0] GUICtrlSetData($LabelDescription, $SelectedArray[$i][0]) Case Else If $SelectedArray[$i][1] = "Run" Or $SelectedArray[$i][1] = "RunWait" Or $SelectedArray[$i][1] = "DOS" Or _ $SelectedArray[$i][1] = "MSI" Or $SelectedArray[$i][1] = "REG" Or $SelectedArray[$i][1] = "WaitProcess" Then If $Subcommands > 2 Then GUICtrlSetData($ProgressSubItems, 100 * ($CurrentSubCommand) / $Subcommands) $CurrentSubCommand = $CurrentSubCommand + 1 EndIf EndIf RunCommand($SelectedArray[$i][0], $SelectedArray[$i][1], $i) EndSelect Next EndIf If $ProgressType = 1 Then ProgressOn("Progress", "Software Installation", " Overall progress", -1, -1, 16) For $i = 0 To UBound($SelectedArray) - 1 If $SelectedArray[$i][1] = "Section" Then ProgressSet($tItems * 100 / $SoftwareToInstall, " Overall progress - " & Round($tItems * 100 / $SoftwareToInstall) & _ "%%", $SelectedArray[$i][0]) $tItems = $tItems + 1 Else RunCommand($SelectedArray[$i][0], $SelectedArray[$i][1], $i) EndIf Next ProgressSet(100, " Overall progress - 100%%", "Finished") Sleep(1000) EndIf WriteLog(3, 1, 1, 1) EndFunc ;==>Install ;save current status on reboot missing Func RunCommand($tCommand, $tType, ByRef $tCounter) Select Case $tType = "Run" If $Log = 1 Then WriteLog(1, "Run", $Append & $tCommand, 0) Run($Append & $tCommand, "", $Flag) If $Log = 1 Then WriteLog(2, "Run", $Append & $tCommand, @error) Case $tType = "RunWait" If $Log = 1 Then WriteLog(1, "RunWait", $Append & $tCommand, 0) RunWait($Append & $tCommand, "", $Flag) If $Log = 1 Then WriteLog(2, "RunWait", $Append & $tCommand, @error) Case $tType = "MSI" If $Log = 1 Then WriteLog(1, "MSI", 'msiexec /i "' & $Append & $tCommand, 0) RunWait('msiexec /i "' & $Append & $tCommand, "", $Flag) If $Log = 1 Then WriteLog(2, "MSI", 'msiexec /i "' & $Append & $tCommand, @error) Case $tType = "DOS" If $Log = 1 Then WriteLog(1, "DOS", @ComSpec & " /c " & $tCommand, 0) RunWait(@ComSpec & " /c " & $tCommand, "", $Flag) If $Log = 1 Then WriteLog(2, "DOS", @ComSpec & " /c " & $tCommand, @error) Case $tType = "REG" If $Log = 1 Then WriteLog(1, "REG", 'regedit /s "' & $Append & $tCommand & '"', 0) RunWait('regedit /s "' & $Append & $tCommand & '"', "", $Flag) If $Log = 1 Then WriteLog(2, "REG", 'regedit /s "' & $Append & $tCommand & '"', @error) Case $tType = "WaitProcess" If $Log = 1 Then WriteLog(1, "WaitProcess", $tCommand, 0) ProcessWaitClose($tCommand) If $Log = 1 Then WriteLog(2, "WaitProcess", $tCommand, 0) Case $tType = "WinWaitClose" If $Log = 1 Then WriteLog(1, "WinWaitClose", $tCommand, 0) WinWait($tCommand) WinWaitClose($tCommand) If $Log = 1 Then WriteLog(2, "WinWaitClose", $tCommand, 0) Case $tType = "Reboot" If Mod($Reboot, 2) <> 0 Then If FindNextSection($SelectedArray, $tCounter) <> -1 Then ;section <> last? SaveToFile(@TempDir & "\Install-temp.ini", $tCounter + 1) RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce", "Install", "REG_SZ", '"' & _ @ScriptFullPath & '" ' & @TempDir & "\Install-temp.ini 1") If $ProgressType = 2 Then IniWrite(@TempDir & "\Install-temp.ini", "Config", "Progress1", $ProgressItem1) IniWrite(@TempDir & "\Install-temp.ini", "Config", "Progress2", $ProgressItem2) EndIf EndIf WriteLog(4, 1, 1, 1) Reboot($RebootTimer) EndIf Case $tType = "Folder" $tFolder = $SelectedArray[$tCounter][0] $tSwitch = "" For $i = 1 To 3 Select Case $SelectedArray[$tCounter + 1][1] = "FolderCommand" $tFCommand = $SelectedArray[$tCounter + 1][0] $tCounter = $tCounter + 1 Case $SelectedArray[$tCounter + 1][1] = "FolderFiles" $tFileType = $SelectedArray[$tCounter + 1][0] $tCounter = $tCounter + 1 Case $SelectedArray[$tCounter + 1][1] = "FolderSwitch" $tSwitch = $SelectedArray[$tCounter + 1][0] $tCounter = $tCounter + 1 Case Else EndSelect Next If $tFolder <> "" And $tFileType <> "" And $tFCommand <> "" Then If $Log = 1 Then WriteLog(1, "Folder", $tFolder, 0) ProcessFolder($tFolder, $tFileType, $tFCommand, $tSwitch) If $Log = 1 Then WriteLog(2, "Folder", $tFolder, 0) EndIf Case $tType = "FileExist" $tVersion = "" $tFile = "" $tAction = "" $tCount = 0 If $SelectedArray[$tCounter + 1][1] = "FileExistVersion" Then $tVersion = $SelectedArray[$tCounter + 1][0] $tCount = $tCount + 1 EndIf If $SelectedArray[$tCounter + 1][1] = "FileExistAction" Then $tAction = $SelectedArray[$tCounter + 1][0] $tCount = $tCount + 1 EndIf If $SelectedArray[$tCounter + 2][1] = "FileExistVersion" Then $tVersion = $SelectedArray[$tCounter + 2][0] $tCount = $tCount + 1 EndIf If $SelectedArray[$tCounter + 2][1] = "FileExistAction" Then $tAction = $SelectedArray[$tCounter + 2][0] $tCount = $tCount + 1 EndIf If Fileexist(1, $SelectedArray[$tCounter][0], $tVersion) = 1 Then $tCounter = $tCounter + $tCount If $tAction = "Skip" Then $tCounter = $tCounter + 1 If $tAction = "SkipSection" Then $tCounter = FindNextSection($SelectedArray, $tCounter) EndIf Case $tType = "FileNotExist" If Fileexist(0, $SelectedArray[$tCounter][0], "") = 1 Then If $SelectedArray[$tCounter + 1][1] = "FileNotExistAction" Then $tAction = $SelectedArray[$tCounter + 1][0] $tCounter = $tCounter + 1 EndIf If $tAction = "Skip" Then $tCounter = $tCounter + 1 If $tAction = "SkipSection" Then $tCounter = FindNextSection($SelectedArray, $tCounter) EndIf Case Else EndSelect EndFunc ;==>RunCommand Func ProcessFolder($tFolder, $tFileType, $tCommand, $tSwitch) If $tCommand <> "RunWait" And $tCommand <> "MSI" And $tCommand <> "REG" Then Return $tFile = FileFindFirstFile($tFolder & "\*." & $tFileType) If $tFile = -1 Then Return EndIf While 1 $tNextFile = FileFindNextFile($tFile) If @error Then Return Select Case $tCommand = "RunWait" If $Log = 1 Then WriteLog(1, " RunWait", $tFolder & "\" & $tNextFile & " " & $tSwitch, 0) If $Subcommands > 2 Then GUICtrlSetData($LabelDescription, $Description & " " & $tNextFile) GUICtrlSetData($ProgressSubItems, 100 * ($CurrentSubCommand) / $Subcommands) $CurrentSubCommand = $CurrentSubCommand + 1 EndIf RunWait($tFolder & "\" & $tNextFile & " " & $tSwitch, "", $Flag) If $Log = 1 Then WriteLog(2, " RunWait", $tFolder & "\" & $tNextFile & " " & $tSwitch, @error) Case $tCommand = "MSI" If $Log = 1 Then WriteLog(1, " MSI", 'msiexec /i "' & $tFolder & "\" & $tNextFile & '" ' & $tSwitch, 0) If $Subcommands > 2 Then GUICtrlSetData($LabelDescription, $Description & " " & $tNextFile) GUICtrlSetData($ProgressSubItems, 100 * ($CurrentSubCommand) / $Subcommands) $CurrentSubCommand = $CurrentSubCommand + 1 EndIf RunWait('msiexec /i "' & $tFolder & "\" & $tNextFile & '" ' & $tSwitch, "", $Flag) If $Log = 1 Then WriteLog(2, " MSI", 'msiexec /i "' & $tFolder & "\" & $tNextFile & '" ' & $tSwitch, @error) Case $tCommand = "REG" If $Log = 1 Then WriteLog(1, " REG", 'regedit /s "' & $tFolder & "\" & $tNextFile & '" ' & $tSwitch, 0) If $Subcommands > 2 Then GUICtrlSetData($LabelDescription, $Description & " " & $tNextFile) GUICtrlSetData($ProgressSubItems, 100 * ($CurrentSubCommand) / $Subcommands) $CurrentSubCommand = $CurrentSubCommand + 1 EndIf RunWait('regedit /s "' & $tFolder & "\" & $tNextFile & '" ' & $tSwitch, "", $Flag) If $Log = 1 Then WriteLog(2, " REG", 'regedit /s "' & $tFolder & "\" & $tNextFile & '" ' & $tSwitch, @error) Case Else EndSelect WEnd EndFunc ;==>ProcessFolder Func RegCheck($tAction, $tRegPath, $tKey) EndFunc ;==>RegCheck ;continue after restart (save all items, where to start, owerall progress) ;regcheck ;----------------------------------------------------- Func _inicheck() $versioncheck1 = FileExists(@ScriptDir & "\config\" & $Ver & ".ini") if $versioncheck1 = 0 then MsgBox(0, "Error", "The INI file for this OS is not found. The supported OS are:"& @CRLF _ &""& @CRLF _ &" Windows 95"& @CRLF _ &" Windows 98"& @CRLF _ &" Windows ME"& @CRLF _ &" Windows NT4"& @CRLF _ &" Windows 2000"& @CRLF _ &" Windows XP 32 Bit"& @CRLF _ &" Windows XP 64 Bit"& @CRLF _ &" Windows Server 2003"& @CRLF _ &" Windows Vista"& @CRLF _ &" Windows Server 2008"& @CRLF _ &" Windows 7 32 Bit"& @CRLF _ &" Windows 7 64 Bit"& @CRLF _ &""& @CRLF _ &" Click OK to exit.") Exit EndIf EndFunc Additional files that are needed BEFORE you run the script: config.zip Warning: if you run the script without these files you will get an error then the script will exit. Supported Operating Systems: Windows 95 Windows NT4 Windows 98 Windows ME Windows 2000 Windows XP 32 Bit Windows XP 64 Bit Windows Server 2003 Windows Vista Windows Server 2008 Windows 7 32 Bit Windows 7 64 Bit Instructions to examine code and to run from SciTE: 1. Copy the code in the Main Script code box below to SciTE. Save the code in it's own folder and call it install.au3. 2. In the same folder where the install.au3 script is located create a new folder and call it "config". You will be placing the config files in this folder. 3. Download config.zip and unzip in the config folder. THERE SHOULD BE NO SUB FOLDERS IN THE CONFIG FOLDER. 4. Run the script in SciTE. Now, I coded it to support XP 32 and 64 bit, WIndows 7 32 and 64 bit as well as other operating systems. If you need other Operating systems added, it is easy to add. Do this: On line 80 you will find the function ReturnOSVersion(). This function is what you edit to add support for other operating systems. (Only Windows based, not Linux!) For example I want to add support for Windows Vista 64 bit. I will change: Case $Ver = "WIN_VISTA" $OS = "Windows Vista" to Case $Ver = "WIN_VISTA" If @OSArch = "X86" then $Ver = "WIN_VISTA_32" $OS = "Windows Vista - 32Bit " EndIf If @OSArch = "X64" then $Ver = "WIN_VISTA_64" $OS = "Windows Vista - 64Bit " EndIf Second: You also will need to create a ini file to go along with the new Windows version you want supported. In the above example I created support for 32 bit and 64 bit Windows Vista. You will find in the config folder an INI called "win_vista.ini". Simply create a copy of this file and call it win_vista_64.ini. Then rename "win_vista.ini" to "win_vista_32.ini". The important thing to remember here is the name of the INI file has to be the same as the $Ver you use. Now, to edit the INI file for the OS in question. When you want to add a app to install you need to have the package already built for it. In other words: for example if you wanted to install Office 2010 you will need to have produced the autoit installation script, compiled it, and have it ready to run if needed. To add the path to the install file you would do something like this: [ Office 2010] Context = Installing Office 2010 runwait = \\Server\APPS\Microsoft Products\MS_Office_2010\Office 2010\install.exe [] To explain the above example: [ Office 2010] - The first line is like a section header. It is what will be listed as the name of the application in your app list in the Right window. "Context" is what will be displayed in the popup window while the app is installing. "Runwait" is the command that launches the app. [] puts a row space in the list For the most part Runwait is usually what you will use for installing applications. The reason is you do not want multiple apps installing at once. This can cause issues. In other cases you can use "msiexec" if the package you have is a MSI package and you want to use command line switches as shown in the below example: [ Single Signon manager] context = Installing Single Signon manager runwait = msiexec /i "\\Server\APPS\Single_Signon_Manager\SSO_v6\NovellSecureLogin_6.0.msi" /passive /norestart runwait = msiexec /i "\\Server\APPS\Single_Signon_Manager\SSO_v6\NovellSecureLogin_6.0_Patch.msi" /passive /norestart [] The big thing to remember is this tool is in a nutshell a simple way to point to your install scripts, applications, or tools you want to run. As long as you run the tool from a place that the INI file's settings are correct the tool will work. We use ours from a server so we can access it from any PC in the building. Change Log: Version 1 posted Future plans (when I have time or if someone wants to contribute to the project): 1. Add a GUI tool to edit the INI files. (See 2nd port in this thread) 2. Add Software uninstall tool (See 3rd post in this thread) 3. Add Software license management support (see 4th post in this thread) 4. Add help file (See 5th post in this thread) 5. Add support for order the software gets installed 6. Add other ideas from other users. Disclaimer: Use this script and tools at your own risk. This script is opensource and by using this code in its current form you agree to hold the original author and all other contributors harmless. Release notes: At this time the script does not support the latest beta release of Windows 8.

Thank you for providing a test script. With your test script, I was able to recreate the issue. I have been able to determine that there is a difference between the way WinHTTP (DLL or COM) sends POST requests and the way cURL or API testing tools like RESTer and Postman send POST requests. When sending your request using an API testing tool like RESTer or Postman, or when sending the request using cURL, the request has an EntityCount of 1 and the body of the request is successfully processed. However, for some yet unknown reason, when the request is sent using WinHTTP (DLL API's or the COM object), the request gets sent differently. The EntityCount comes across as 0, which bypasses the processing of the body of the request (as you have pointed out). I will need to take a deeper dive into the root differences and come up with a better way to identify and retrieve the content of the body of the request (regardless of how the request is sent). Examples using cURL & RESTer: cURL command: curl http://127.0.0.1:9000/a3server/posttest -d "name=Some Name&email=some.email@something.com" Hello from the AutoIt HTTP Server. POST request received!<br><br><pre>POST Request Info: Request struct size = 4960 Bytes received = 210 Full URL = http://127.0.0.1:9000/a3server/posttest Host = 127.0.0.1:9000 AbsPath = /a3server/posttest QueryString = Verb = 6 EntityChunkCount = 1 Request Headers: Accept: */* Content-Length: 45 Content-Type: application/x-www-form-urlencoded Host: 127.0.0.1:9000 User-Agent: curl/7.83.1 Request Body: name=Some Name&email=some.email@something.com </pre> Requests data can be sent data in several different forms (search "Global Data Chunk Structures/Unions" in the HTTPAPI UDF). Currently, the _HTTPAPI_GetRequestBody() function only identifies and processes body content sent as Entities (EntityCount > 0). I need to rework the _HTTPAPI_GetRequestBody() function and make it a little more generic/flexible in the way it identifies and retrieves body content. I haven't look closely your proposed solution yet, but I will. If it turns out to be a good solution, I'll definitely add it to the UDF lib. However, I think the ultimate solution will most likely include the interrogation of the DataChunkType field. It identifies in what form the data was sent and the structure needed to process it. In any case, when I do come up with a solution, I will definitely give you credit for identifying and helping to resolve the issue. Thanks for bringing this to my attention.

1. It's right, You could even remove "Ready hresult();" and handle it in invoke. 2. Maybe You could create a property in the object where you can store the Http object statically. No sure if it's possible it's just a mind. Saludos

Today I was shocked. Chilkat began to officially support AutoIt - through the examples on this page: http://www.example-code.com/ https://www.example-code.com/autoit/ And I am impressed. Good work Chilkat team 👍 btw. And it really isn't an expensive component at all. I can recommend it with a clear conscience. There are tons of API and technologies that you can use with this component:

Github Repository:https://github.com/KurtisLiggett/GuiBuilderPlus

Not something that I've tried, but this is how I would approach it -- _WD_Startup returns the PID of the webdriver console Obtain an array of child processes by calling _WinAPI_EnumChildProcess with this PID Find the desired browser instance within this array Edit: It's even easier with Firefox. Just grab the value associated with "moz:processID" from $_WD_SESSION_DETAILS, which contains the JSON response from the webdriver when the session was created.

Is there a way to get the handle or PID of the browser started by the webdriver ? At the moment I am using WinList, but this could potentially return handles I am not looking for.

AutoIt v3.3.16.0 has been released. Thanks to @jpm and the MVPs who were responsible for the majority of code in this version. Download it here. Complete list of changes: History