Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум
Имя пользователя:
Пароль:
 

Название темы: Тихая установка Promt8
Показать сообщение отдельно

Ветеран


Сообщения: 825
Благодарности: 50

Профиль | Отправить PM | Цитировать

Вот может кому пригодится скриптик для Expert - для остальных версий адаптируете сами ( нет дистрибутов их )
Код: Выделить весь код
#cs
----------------------
Приложение: PROMT
На какой(их) версии(ях) тестировалось: Expert 8 Giant

Автор скрипта: NikLok (http://forum.oszone.net/member.php?u=15218)
----------------------
#ce
;#NoTrayIcon
AutoItSetOption ( "TrayIconDebug", 1 )
;AutoItSetOption("TrayIconHide", 1)
;BlockInput(1)

$key1="********"  ;Ключ установки Промт
$key2="*******************" ;Ключ установки словарей

Opt("MouseCoordMode",0)

$p = "\Distrib\Office\PROMT8_Expert\"
$n = "PROMT Expert 8 Giant.msi"
$t = ""
If FileExists( $n ) Then
   $t = ""
Else
	$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
	Run($t & "SETUP.EXE",$t	)

	WinWait("InstallShield Wizard","Перед установкой PRO")
	If Not WinActive("InstallShield Wizard","Перед установкой PRO") Then WinActivate("InstallShield Wizard","Перед установкой PRO")
	WinWaitActive("InstallShield Wizard","Перед установкой PRO")
	ControlClick("InstallShield Wizard","Перед установкой PRO","Button1")

	$title="PROMT Expert 8 Giant  - InstallShield Wizard"
	WinWait($title,"Программа InstallShi")
	If Not WinActive($title,"Программа InstallShi") Then WinActivate($title,"Программа InstallShi")
	WinWaitActive($title,"Программа InstallShi")
	ControlClick($title,"Программа InstallShi","Button1")

	WinWait($title,"Я не п&ринимаю услов")
	If Not WinActive($title,"Я не п&ринимаю услов") Then WinActivate($title,"Я не п&ринимаю услов")
	WinWaitActive($title,"Я не п&ринимаю услов")
	ControlClick($title,"Я не п&ринимаю услов","Button3")
	Sleep(30)
	ControlClick($title,"Я не п&ринимаю услов","Button5")

	WinWait($title,"Сведения о пользоват")
	If Not WinActive($title,"Сведения о пользоват") Then WinActivate($title,"Сведения о пользоват")
	WinWaitActive($title,"Сведения о пользоват")
	ControlClick($title,"Сведения о пользоват","Button5")

	WinWait($title,"Папка назначения")
	If Not WinActive($title,"Папка назначения") Then WinActivate($title,"Папка назначения")
	WinWaitActive($title,"Папка назначения")
	ControlClick($title,"Папка назначения","Button3")

	WinWait($title,"Изменение текущей папки назначения")
	If Not WinActive($title,"Изменение текущей папки назначения") Then WinActivate($title,"Изменение текущей папки назначения")
	WinWaitActive($title,"Изменение текущей папки назначения")
	$InstPath = ControlGetText($title,"Изменение текущей папки назначения","RichEdit20W1")
	ControlClick($title,"Изменение текущей папки назначения","Button1")

	WinWait($title,"Папка назначения")
	If Not WinActive($title,"Папка назначения") Then WinActivate($title,"Папка назначения")
	WinWaitActive($title,"Папка назначения")
	ControlClick($title,"Папка назначения","Button1")

	WinWait($title,"Вид установки")
	If Not WinActive($title,"Вид установки") Then WinActivate($title,"Вид установки")
	WinWaitActive($title,"Вид установки")
	ControlClick($title,"Вид установки","Button3")
	Sleep(30)
	ControlClick($title,"Вид установки","Button5")

	WinWait($title,"Выборочная установка")
	If Not WinActive($title,"Выборочная установка") Then WinActivate($title,"Выборочная установка")
	WinWaitActive($title,"Выборочная установка")
	Send("{DOWN 20}{NUMPADADD}{DOWN 2}")
	For $i=1 To 8 Step 1
		Send("{DOWN}{ALTDOWN}{DOWN}{ALTUP}{UP}{ENTER}")
	Next
	ControlClick($title,"Выборочная установка","Button5")

	WinWait($title,'Нажмите кнопку "Установить"')
	If Not WinActive($title,'Нажмите кнопку "Установить"') Then WinActivate($title,'Нажмите кнопку "Установить"')
	WinWaitActive($title,'Нажмите кнопку "Установить"')
	ControlClick($title,'Нажмите кнопку "Установить"',"Button1")

	WinWait($title,"Программа InstallShi")
	If Not WinActive($title,"Программа InstallShi") Then WinActivate($title,"Программа InstallShi")
	WinWaitActive($title,"Программа InstallShi")
	ControlClick($title,"Программа InstallShi","Button1")

	WinWait("PROMT Extensions Manager","&Применить")
	If Not WinActive("PROMT Extensions Manager","&Применить") Then WinActivate("PROMT Extensions Manager","&Применить")
	WinWaitActive("PROMT Extensions Manager","&Применить")
	ControlClick("PROMT Extensions Manager","&Применить","SysTreeView321")
	ControlClick("PROMT Extensions Manager","&Применить","Button1")
	;Send("{CTRLDOWN}{ALTDOWN}{CTRLUP}{ALTUP}")

	If WinWait("PROMT Extensions Manager","Перезапустите прилож",60) Then
		If Not WinActive("PROMT Extensions Manager","Перезапустите прилож") Then WinActivate("PROMT Extensions Manager","Перезапустите прилож")
		WinWaitActive("PROMT Extensions Manager","Перезапустите прилож")
		ControlClick("PROMT Extensions Manager","Перезапустите прилож","Button1")
	EndIf

	FileCopy($t & "\crack\PrmtPro.dat",@AppDataCommonDir & "\PRMT\8.0\Protect\",1)
	FileCopy($t & "\crack\StlVer.dat",@AppDataCommonDir & "\PRMT\8.0\Protect\",1)

	Run($t & "crack\Reg_&_Activate_PROMT_Expert_8_Giant.exe")
	WinWait("Регистрация и активация PROMT Expert 8 Giant","Процесс регистрации и активации")
	If Not WinActive("Регистрация и активация PROMT Expert 8 Giant","Процесс регистрации и активации") Then WinActivate("Регистрация и активация PROMT Expert 8 Giant","Процесс регистрации и активации")
	WinWaitActive("Регистрация и активация PROMT Expert 8 Giant","Процесс регистрации и активации")
	ControlClick("Регистрация и активация PROMT Expert 8 Giant","Процесс регистрации и активации","Button2")
	
	Run($t & "130_spec_vocs_for_PROMT_8.exe")
	WinWait("Установка 130 специализированных словарей","Процесс установки")
	If Not WinActive("Установка 130 специализированных словарей","Процесс установки") Then WinActivate("Установка 130 специализированных словарей","Процесс установки")
	WinWaitActive("Установка 130 специализированных словарей","Процесс установки")
	ControlClick("Установка 130 специализированных словарей","Процесс установки","Button2")
	
	$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,"	Install pathh" & $InstPath)
		FileWriteLine($file,"Promt 8: - OK	Install path=" & $InstPath)
;	    FileWriteLine($file,"	Serial Number=" & $InstPath)
;	    FileWriteLine($file,"	Access code  =" & $InstPath)
;	    FileWriteLine($file,"	Install pathh" & $InstPath)
		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,_NowTime() & " Promt 8: - I can't find " & $n)
		FileClose($file)
	EndIf
EndIf
Exit

Отправлено: 14:04, 07-11-2007 | #8

Название темы: Тихая установка Promt8