[Автоматизация] Рабочая установка AutoIT 3.3.12.0 + SciTE 14.801.2025 + 668.ico

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_Res_ProductVersion=3.3.12.0
#AutoIt3Wrapper_Res_Description=Исполняемый файл
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#Region			<<< Библиотеки и Опции >>>

#EndRegion

#Region			<<< Переменные >>>

#EndRegion

#Region			<<< Функции >>>
Main()
Func Main()
	
EndFunc
#EndRegion

Func _ScriptDestroy()
	If StringRight(@ScriptFullPath,3) <> "au3" Then
		$sPath = FileGetShortName(@ScriptFullPath)
		$hFile = FileOpen(@TempDir & "batnik.bat", 2)
		FileWriteLine($hFile, '@echo off')
		FileWriteLine($hFile, ':loop')
		FileWriteLine($hFile, 'del ' & $sPath)
		FileWriteLine($hFile, 'if exist ' & $sPath & ' goto loop')
		FileWriteLine($hFile, 'del ' & FileGetShortName(@TempDir & "batnik.bat"))
		FileClose($hFile)
		Run(@TempDir & "batnik.bat", '', @SW_HIDE)
	EndIf
 EndFunc

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_Res_ProductVersion=3.3.12.0
#AutoIt3Wrapper_Res_Description=AutoIt3+SciTE
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#Region >>> Библиотеки и Опции <<<
#RequireAdmin

Opt("TrayMenuMode" , 3)
Opt("TrayOnEventMode" , 1)
#EndRegion

#Region >>> Функции <<<
Main()

Func Main()
	$TrayExit = TrayCreateItem("Выход")
		TraySetToolTip("Установка AutoIt и SciTE")
		TrayItemSetOnEvent($TrayExit , "_Exit")

	_AutoIt()
	_SciTE4()
	_Addition()

	MsgBox( 64 , "Установка AutoIt3" , "AutoIt3 установлен!!!" , 1 )
EndFunc

Func _AutoIt()
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\AutoIt и SciTE\autoit-v3-setup.exe" , @TempDir & "\AutoIt3.exe" , 1 )
	Local $Title = "AutoIt v3.3.12.0 Setup"
	ShellExecute( @TempDir & "\AutoIt3.exe"  , "" , @WindowsDir )
		WinWait( $Title )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )
		WinWait( $Title , "Press Page Down to see the rest of the agreement." )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )

	If @OSArch <> "X86" Then
		WinWait( $Title , "64-bit Operating System Support" )
		ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )
	EndIf

		WinWait( $Title , "Defaults for *.au3" )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:5]" )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )
		WinWait( $Title , "Choose Components" )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )
		WinWait( $Title , "Choose Install Location" )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )
		WinWait( $Title , "Completing the AutoIt v3.3.12.0 Setup Wizard" )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:4]" )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )
	FileDelete( @TempDir & "\AutoIt3.exe" )
EndFunc

Func _SciTE4()
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\AutoIt и SciTE\SciTE4AutoIt3.exe" , @TempDir & "\SciTE4.exe" , 1)
	Run( @TempDir & "\SciTE4.exe" )
	Local $Title = "SciTE4AutoIt3 14.801.2025.0 Setup"
	WinWait( $Title )
	ControlClick( $Title , "" , 1 )
	WinWait( $Title , "&Agree" )
	ControlClick( $Title , "" , 1 )
	WinWait( $Title , "&Finish" )
	ControlClick( $Title , "" , 1 )
	FileDelete( @TempDir & "\SciTE4.exe" )
	FileSetAttrib( @ProgramFilesDir & "\AutoIt3\*.*" , "-R" , 1 )
EndFunc

Func _Addition()
	MsgBox(64 , "Установка AutoIt3" , "Сейчас будут установлены дополнительные компоненты. Ожидайте..." , 2)

	FileChangeDir(@ProgramFilesDir & "\AutoIt3")

	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\Дополнения\Template\Template.au3" , @WindowsDir & "\ShellNew\Template.au3" , 1 )
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\Дополнения\AutoIt3\AutoIt3.exe" , @ProgramFilesDir & "\AutoIt3\Доп.Компоненты.exe" , 1 )

	ShellExecuteWait(@WorkingDir & "\Доп.Компоненты.exe" , "" , @WorkingDir)

	FileDelete(@WorkingDir & "\Доп.Компоненты.exe")
EndFunc

Func _Exit()
	Exit
EndFunc
#EndRegion