Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Тихая установка Promt8

Ответить
Настройки темы
Тихая установка Promt8

Аватара для DImaN!

Ветеран


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

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


Помогите с тихой установкой Promt8, заранее благодарен
P.S. На форуме есть данные по тихой установке Promt XT и Promt7 - они не подходят...

-------
It's only after we've lost everything that we're free to do anything... Блог


Отправлено: 09:02, 06-11-2007

 

Аватара для KillHunter

Пользователь


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

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


Цитата DImaN!:
Помогите с тихой установкой Promt8, заранее благодарен
P.S. На форуме есть данные по тихой установке Promt XT и Promt7 - они не подходят... »
setup.exe /s /v"/qn REBOOT=ReallySuppress"
У меня по крайней мере так ставится.....

-------
http://www.2ip.ru/bar/ip21.gif


Отправлено: 12:22, 06-11-2007 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


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

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


А со словарями и созданием аддона или административной точки как всегда косяк...

Отправлено: 17:56, 06-11-2007 | #3


Аватара для DImaN!

Ветеран


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

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


KillHunter, у меня с Вашим ключем программа не хочет устанавливаться...

-------
It's only after we've lost everything that we're free to do anything... Блог


Отправлено: 09:32, 07-11-2007 | #4


Аватара для KillHunter

Пользователь


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

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


DImaN! А у Вас стоит .NET Framework???

-------
http://www.2ip.ru/bar/ip21.gif


Отправлено: 10:34, 07-11-2007 | #5


Аватара для DImaN!

Ветеран


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

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


стоят и .NET Framework 2 и .NET Framework 3, а также установлен VSTO 2005 SE

-------
It's only after we've lost everything that we're free to do anything... Блог


Отправлено: 10:40, 07-11-2007 | #6


Аватара для KillHunter

Пользователь


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

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


Ну не знаю... У меня всё ставится....причём на разных машинах.....
P.S. у меня стоит Promt 8.0 Gigant

-------
http://www.2ip.ru/bar/ip21.gif


Отправлено: 13:57, 07-11-2007 | #7


Ветеран


Сообщения: 831
Благодарности: 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


Аватара для DImaN!

Ветеран


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

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


KillHunter , такой вопрос тогда, ключ, который Вы мне дали должен быть такой:
REG ADD %KEY%\%i% /VE /D "Promt8" /f
REG ADD %KEY%\%i% /V 1 /D "%systemdrive%\Install\Promt8\setup.exe /s /v"/qn REBOOT=ReallySuppress"" /f
SET /A i+=1
???

-------
It's only after we've lost everything that we're free to do anything... Блог


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


Аватара для DmB89

Ветеран


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

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


Способ создания тихой установки PROMT Expert 8 Giant , предназначенный для установки на систему с установленным .NET Framework, и обновлением KB893803 (установщик Windows 3.1).

1. Скачиваем PROMT8_Expert_Rus_ERE_FRF_GRG_SRS_IR.exe
2. Распаковываем содержимое этого файла в отдельную папку.
3. Удаляем лишние файлы. WindowsInstaller-KB893803-x86.exe, dotnetfx.exe, dotnetfx20.exe, а также в папке ISSetupPrerequisites удаляем папку Microsoft .NET Framework 3.0.
4. В файле setup.ini удаляем отмеченное красным:
Код: Выделить весь код
[Setup.bmp]
Type=0
[dotnetfx.exe]
Type=0
Location=dotnetfx.exe
[WindowsInstaller-KB893803-x86.exe]
Type=0
Location=WindowsInstaller-KB893803-x86.exe
[ISSetupPrerequisites]
PreReq0=Microsoft .NET Framework 3.0.prq
PreReq1=VSTO 2005 SE.prq
5. Создаём SFX RAR архив со следующим комментарием:
Код: Выделить весь код
Setup=setup.exe /s /v"/qn REBOOT=ReallySuppress"
TempMode
Silent=1
Overwrite=1
Тихая инсталляшка готова! Осталось только активировать. Для этого нужны два файла: PrmtPro.dat и StlVer.dat, которые берём с установленного и активированного продукта в папке
Код: Выделить весь код
C:\Documents and Settings\All Users\Application Data\PRMT\8.0\PROTECT
Также запаковываем их в SFX RAR архив с комментарием:
Код: Выделить весь код
Path=%ALLUSERSPROFILE%\Application Data\PRMT\8.0\PROTECT
SavePath
Silent=1
Overwrite=1
Остаётся добавить, что можно объединить эти два архива, и запускать установку и активацию последовательно с помощью .bat или .cmd файла. Размер получаемого инсталляционного файла около 210 МБ, то есть выигрыш составляет почти 100 МБ, что на мой взгляд - неплохо.
Это сообщение посчитали полезным следующие участники:

Отправлено: 17:53, 02-07-2008 | #10



Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Тихая установка Promt8

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Тихая установка 3DMark06 DaDe Автоматическая установка приложений 7 20-11-2013 00:06
NetLimiter Тихая установка NoNick Автоматическая установка приложений 8 08-11-2011 23:22
Тихая установка BDE32 UnDetect Автоматическая установка приложений 5 17-05-2009 18:11
Тихая установка MS Agent daniil-bond Автоматическая установка приложений 1 12-05-2009 20:35
Тихая установка Windows Plus Extrim1 Автоматическая установка приложений 1 16-12-2008 18:21




 
Переход