Что нового

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

Юрий

Чайник
Сообщения
82
Репутация
3
AutoIt: 3.3.12.0 | :IL_AutoIt_1: | SciTE: 14.801.2025.0
Обновлено 21.11.2014
Рабочая установка AutoIT 3.3.12.0 + SciTE 14.801.2025.0 + 668.ico + дополнения.
Список дополнений:
[list type=decimal]
[*]Библиотека WinAPIEx.au3 (со справкой)
[*]Библиотека ID3.au3 (теги .mp3-шников читать)
[*]Библиотека IsPressedEx.au3
[*]Библиотека FileOperations.au3 (со справкой)
[*]Библиотека Rar.au3 (создавать архивы)
[*]Изменённый Template.au3
[*]Русская Справка - от 09.07.2014
[*]Функция самоуничтожения скрипта (добавлена в File.au3 - название "_ScriptDestroy")
[/list]

Последние изменения:
От 21.11.2014:
  • Обновление SciTE4Autoit3 до версии 14.801.2025.0 (спасибо SharkyEXE)

От 24.08.2014:
  • В программе более не используется rar.exe, который является платным ПО
  • Дополнения теперь не в отдельных архивах а в одном SFX (прилагается в шапке темы)
  • Обновил русскую справку
  • Залил SFX-архив отдельно на Яндекс Диск
  • Мелкие исправления...

От 22.08.2014:
  • AutoIt обновлён до версии 3.3.12.0
  • Колличество дополнительных иконок увеличено с 111 штук до 668
  • Добавлен ProgressBar в части установки дополнений
  • Возможен выход из программы установки через трей
  • Проведён тест на Windows 8.1 amd64 - успешно
  • Мелкие исправления...

Template.au3
Код:
#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

(Яндекс Диск)

(Яндекс Диск)
 

InnI

AutoIT Гуру
Сообщения
4 216
Репутация
1 117
Re: Рабочая установка AutoIT 3.3.8.1 + SciTE4(посл. версия) + 111 .ico

Юрий [?]
Функция самоуничтожения
Подобная функция находится в аббревиатурах SciTE.
Набираете selfdelete и нажимаете пробел - аббревиатура разворачивается в функцию.
 
Автор
Юрий

Юрий

Чайник
Сообщения
82
Репутация
3
Re: Рабочая установка AutoIT 3.3.8.1 + SciTE4(посл. версия) + 111 .ico

InnI
Подобная функция находится в аббревиатурах SciTE.
Набираете selfdelete и нажимаете пробел - аббревиатура разворачивается в функцию.
Спасибо, полезная вещь) Не знал о таком.


Добавлено:
Сообщение автоматически объединено:

Если кому инсталятор пригодился - отпишитесь, будет интересно отклики услышать :smile: :IL_AutoIt_1:
 
Автор
Юрий

Юрий

Чайник
Сообщения
82
Репутация
3
Re: Рабочая установка AutoIT 3.3.8.1 + SciTE4(посл. версия) + 111 .ico

InnI [?]
Набираете selfdelete и нажимаете пробел - аббревиатура разворачивается в функцию.
Попробовал - не пашет почему-то( а моя работает нормально :ok:
 

firex

AutoIT Гуру
Сообщения
943
Репутация
203
Re: Рабочая установка AutoIT 3.3.10.1 + SciTE4(посл. версия) + 143 .ico

Код:
$hFile = FileOpen(@TempDir & "batnik.bat", 2)

Ваш батник создается в папке Local с именем Tempbatnik.bat, думаю имелось ввиду:

Код:
$hFile = FileOpen(@TempDir & "\batnik.bat", 2)
 

InnI

AutoIT Гуру
Сообщения
4 216
Репутация
1 117
Re: Рабочая установка AutoIT 3.3.10.1 + SciTE4(посл. версия) + 143 .ico

Юрий [?]
не пашет почему-то
Установил вашу сборку, попробовал: и аббревиатура разворачивается и обе функции работают - и _SelfDelete() и _ScriptDestroy().

firex [?]
думаю имелось ввиду
В установщике сейчас переписанная функция - с использованием _TempFile().
 

ShuNaher

Чайник
Сообщения
2
Репутация
0
Re: Рабочая установка AutoIT 3.3.10.1 + SciTE4(посл. версия) + 143 .ico

Юрий, а почему топик озаглавлен как "Рабочая установка AutoIT 3.3.10.1 + SciTE4(посл. версия) + 143 .ico", а в тексте сообщения и на страничке закачки лежит другое:
Рабочая установка AutoIT 3.3.10.1 + SciTE v3.3.6 + 143 .ico
12:42, 22 декабря 2013, 13:06, 31 января 2014

Для Autoit-script.ru

Последнее обновление: 29.12.2013
Версия AutoIt3: 3.3.10.1
Версия SciTE: 3.3.6


или под SciTE4 имелось в виду SciTE4AutoIt3 ??
 

gora

Новичок
Сообщения
315
Репутация
19
Re: [Автоматизация] Рабочая установка AutoIT

Юрий
Насколько я понял, Вы в скрипт включили бинарник rar.exe представив его там в "текстовом" виде. Однако rar.exe не является бесплатной утилитой и использовать ее так - нарушать авторские права. Бесплатной является unrar.exe, вот ее можете использовать на здоровье.
А вообще, для таких объемов, целесообразнее делать один архив, а не множество (сэкономите на размере) и упаковывать в SFX, дабы не таскать с собой архиватор.
Справка у Вас годичной давности. :(
 

AZJIO

Меценат
Меценат
Сообщения
2 748
Репутация
1 146
Re: [Автоматизация] Рабочая установка AutoIT 3.3.12.0 + SciTE 13.11.14.16 + 668.ico

Юрий
Почему бы не сделать SFX, чтобы люди могли проверить содержимое файла без установки? Без риска использования своей системы как плацдарма для теста.
 
Автор
Юрий

Юрий

Чайник
Сообщения
82
Репутация
3
Re: [Автоматизация] Рабочая установка AutoIT 3.3.12.0 + SciTE 13.11.14.16 + 668.ico

gora [?]
Бесплатной является unrar.exe
Знал о платности rar.exe, но про unrar.exe честно говоря не слышал. Перспектива не нарушать ни чьи права меня радует) Поищю, попытаюсь внедрить. П.С. За ссылку буду премного признателен, а за ссылку на этом форуме, вообще благодарен буду :smile:

Справка у Вас годичной давности.
Виноват. :-[ Обновим) :ok:

AZJIO [?]
Почему бы не сделать SFX, чтобы люди могли проверить содержимое файла без установки? Без риска использования своей системы как плацдарма для теста.
э-э-э не понял немного. теархивы все загнать в один SFX или отдельно их к теме без файла установки прикрепить?
 

gora

Новичок
Сообщения
315
Репутация
19
Re: [Автоматизация] Рабочая установка AutoIT 3.3.12.0 + SciTE 13.11.14.16 + 668.ico

<font color="#777777" abp="2286">Юрий</font> [?]
За ссылку буду премного признателен
http://www.rarlab.com/rar/wrar510.exe
Откройте инсталлятор любым архиватором и внутри лежит unrar.exe
 
Автор
Юрий

Юрий

Чайник
Сообщения
82
Репутация
3
Re: [Автоматизация] Рабочая установка AutoIT 3.3.12.0 + SciTE 13.11.14.16 + 668.ico

gora, синтаксис работы с анраром в консоли идентичен тому что я использовал с раром?



Добавлено:
Сообщение автоматически объединено:

отпала потребность в файле rar.exe или unrar.exe. Огромное спасибо за идею с SFX - всё в одном exe - класс. П.с. но за unrar.exe огромное спасибо - пригодится
 

gora

Новичок
Сообщения
315
Репутация
19
Re: [Автоматизация] Рабочая установка AutoIT

синтаксис работы с анраром в консоли идентичен тому что я использовал с раром?
У Вас используется UDF:
Код:
RAR_Extract(@TempDir & "\AutoIt3_Addition\" & $Founded , "" , @ProgramFilesDir & "\AutoIt3")

А внутрь UDF я не лазил ибо она "левая" и не интересна для меня.
 
Автор
Юрий

Юрий

Чайник
Сообщения
82
Репутация
3
Re: [Автоматизация] Рабочая установка AutoIT 3.3.12.0 + SciTE 13.11.14.16 + 668.ico

gora [?]
А внутрь UDF я не лазил ибо она "левая" и не интересна для меня.
а как же тогда вы бы например использовали unrar.exe?
 

gora

Новичок
Сообщения
315
Репутация
19
Re: [Автоматизация] Рабочая установка AutoIT

а как же тогда вы бы например использовали unrar.exe?
Код:
RunWait(@ScriptDir & '\unrar.exe x "' & @TempDir & '\AutoIt3_Addition\' & $Founded & '" "' & @ProgramFilesDir & '\AutoIt3"')
 

AZJIO

Меценат
Меценат
Сообщения
2 748
Репутация
1 146
Re: [Автоматизация] Рабочая установка AutoIT 3.3.12.0 + SciTE 13.11.14.16 + 668.ico

Юрий
Посмотрите AutoIt Portable + Дополнения
SFX может быть 7-zip. Хотя по мне так всякие твики лучше сделать после извлечения по месту назначения. Всё равно там хоть для 32, хоть 64 оба файла извлекаются, а уж прописывание в реестре можно скриптом организовать.
 
Автор
Юрий

Юрий

Чайник
Сообщения
82
Репутация
3
Re: [Автоматизация] Рабочая установка AutoIT 3.3.12.0 + SciTE 13.11.14.16 + 668.ico

AZJIO [?]
SFX может быть 7-zip. Хотя по мне так всякие твики лучше сделать после извлечения по месту назначения. Всё равно там хоть для 32, хоть 64 оба файла извлекаются, а уж прописывание в реестре можно скриптом организовать.
Согласен. Можно и так. Но вот я уже что-то намудровал - пост обновляю.
 

SharkyEXE

Чайник
Сообщения
84
Репутация
0
Re: [Автоматизация] Рабочая установка AutoIT 3.3.12.0 + SciTE 13.11.14.16 + 668.ico

Юрий
Здравствуйте.

Вышла новая версия SciTE4AutoIt3.exe (8/1/2014): скачать

Пожалуйста, если у Вас есть время, возможность, желание - обновите Ваш пак с учётом SciTE4AutoIt3.exe (8/1/2014): скачать

Спасибо.
 
Автор
Юрий

Юрий

Чайник
Сообщения
82
Репутация
3
Re: [Автоматизация] Рабочая установка AutoIT 3.3.12.0 + SciTE 13.11.14.16 + 668.ico

SharkyEXE сказал(а):
Юрий
Здравствуйте.

Вышла новая версия SciTE4AutoIt3.exe (8/1/2014): скачать

Пожалуйста, если у Вас есть время, возможность, желание - обновите Ваш пак с учётом SciTE4AutoIt3.exe (8/1/2014): скачать

Спасибо.
Спасибо за замечание :smile: пост обновил ;D :IL_AutoIt_1:
 
Верх