Войти

Показать полную графическую версию : Авто установка npp.4.1.2.Installer.exe


voler
28-05-2007, 15:29
Данная программа npp.4.1.2.Installer.exe Сама программа (http://downloads.sourceforge.net/notepad-plus/npp.4.1.2.Installer.exe?modtime=1179711638&big_mirror=0) аналог, notepad.exe только она подсвечивает код. Кто-нибудь подскажите как ее автоустановить?

NikLok
28-05-2007, 17:32
Вот 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

voler
29-05-2007, 09:32
А кнопку готово нажать можно? Спасибо, не плохо сработано.

NikLok
29-05-2007, 10:06
voler У меня ее не выскакивает. Иногда бывает вылазиют дефекты скриптов. Например пропускаются нажатия клавиш или вдруг установка пошла не таким маршрутом. Все варианты не охватить!
Можно просто добавить Send("{ENER}")

voler
29-05-2007, 11:04
Исправил спасибо.

the0law
29-05-2007, 13:12
Я ставлю через команду /S в cmd




© OSzone.net 2001-2012