| NikLok |
07-11-2007 14:04 674173 |
Вот может кому пригодится скриптик для 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
|
