[NikLok]

Вот Autoit скрипт автоустановки:

Код:

;AutoItSetOption("TrayIconHide", 1);Скрыть значок в трее
AutoItSetOption ( "TrayIconDebug", 1 )
;BlockInput(1)
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

$p = "\DISTRIB\EDITORS\"
$n = "npp.4.1.2.Installer.exe"
$t = ""
If NOT FileExists( $n ) Then
	$var = DriveGetDrive( "all" )
	If NOT @error Then
		For $i = 1 to $var[0]
		$star = DriveStatus( $var[$i] & "\" )
		If $star == "READY" Then
			If FileExists($var[$i] & $p & $n) Then
				$t = $var[$i] & $p
				ExitLoop
			EndIf
		EndIf
		Next
	EndIf
EndIf

If $t <> "" OR FileExists( $n ) Then
	AutoItSetOption("SendKeyDelay",20)
	Run($t & $n,$t)

	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")
	ControlCommand("Installer Language","Please select a lang","ComboBox1","SelectString","Russian")
	Sleep(20)
	ControlClick("Installer Language","Please select a lang","Button1")

	WinWait("Установка Notepad++","Вас приветствует мас")
	If Not WinActive("Установка Notepad++","Вас приветствует мас") Then WinActivate("Установка Notepad++","Вас приветствует мас")
	WinWaitActive("Установка Notepad++","Вас приветствует мас")
	ControlClick("Установка Notepad++","Вас приветствует мас","Button2")

	WinWait("Установка Notepad++","Лицензионное соглаше")
	If Not WinActive("Установка Notepad++","Лицензионное соглаше") Then WinActivate("Установка Notepad++","Лицензионное соглаше")
	WinWaitActive("Установка Notepad++","Лицензионное соглаше")
	ControlClick("Установка Notepad++","Лицензионное соглаше","Button2")

	WinWait("Установка Notepad++","Выбор папки установк")
	If Not WinActive("Установка Notepad++","Выбор папки установк") Then WinActivate("Установка Notepad++","Выбор папки установк")
	WinWaitActive("Установка Notepad++","Выбор папки установк")
	ControlClick("Установка Notepad++","Выбор папки установк","Button2")

	WinWait("Установка Notepad++","Компоненты устанавли")
	If Not WinActive("Установка Notepad++","Компоненты устанавли") Then WinActivate("Установка Notepad++","Компоненты устанавли")
	WinWaitActive("Установка Notepad++","Компоненты устанавли")
	ControlClick("Установка Notepad++","Компоненты устанавли","Button2")

	WinWait("Установка Notepad++","Завершение работы ма")
	If Not WinActive("Установка Notepad++","Завершение работы ма") Then WinActivate("Установка Notepad++","Завершение работы ма")
	WinWaitActive("Установка Notepad++","Завершение работы ма")
	ControlClick("Установка Notepad++","Завершение работы ма","Button4")
	Sleep(30)
	ControlClick("Установка Notepad++","Завершение работы ма","Button2")

	If FileExists( @ProgramsCommonDir & "\Notepad++") Then
		DirCopy  ( @ProgramsCommonDir & "\Notepad++",@ProgramsCommonDir & "\Accessories\Notepad++",1)
		DirRemove( @ProgramsCommonDir & "\Notepad++",1)
		DirCopy  ( @ProgramsDir & "\Notepad++",@ProgramsDir & "\Accessories\Notepad++",1)
		DirRemove( @ProgramsDir & "\Notepad++",1)
	EndIf

	$file = FileOpen(@ProgramFilesDir & "\software_install.log",1)
	; Check if file opened for writing OK
	If $file = -1 Then
		MsgBox(0, "Error", "Unable to open " & @ProgramFilesDir &  "\software_install.log file.")
		Exit
	Else
		FileWriteLine($file,"Notepad++: - OK")
		FileClose($file)
	EndIf
Else
	;MsgBox(0,"Attention","I can't find " & $p,600)
	$file = FileOpen(@ProgramFilesDir & "\software_install.log",1)
	; Check if file opened for writing OK
	If $file = -1 Then
		MsgBox(0, "Error", "Unable to open " & @ProgramFilesDir & "\software_install.log file.")
		Exit
	Else
		FileWriteLine($file,"Notepad++: - I can't find " & $p)
		FileClose($file)
	EndIf
EndIf
Exit