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