| Eakdrazile |
12-12-2008 15:57 979452 |
Я ставил при помощи скрипта AutoIt (при этом у нас в одной папке должны быть: setup72_SP6.exe; Crack Proteus 7.2 SP6 PRO v1.1.exe; LIBRARY UPDATE.exe).
Содержание Setup.au3:
Код:
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
AutoItSetOption("MouseCoordMode",2)
BlockInput(1)
Run("setup72_SP6.exe")
WinWaitActive("Proteus Professional - InstallShield Wizard","Welcome to the InstallShield Wizard for Proteus Professional")
ControlClick("Proteus Professional - InstallShield Wizard","Welcome to the InstallShield Wizard for Proteus Professional","Button1")
WinWaitActive("Proteus Professional - InstallShield Wizard","License Agreement")
ControlClick("Proteus Professional - InstallShield Wizard","License Agreement","Button2")
WinWaitActive("Proteus Professional - InstallShield Wizard","Setup Type")
ControlClick("Proteus Professional - InstallShield Wizard","Setup Type","Button2")
Sleep(100)
ControlClick("Proteus Professional - InstallShield Wizard","Setup Type","Button11")
WinWaitActive("Proteus Professional - InstallShield Wizard","Labcenter Licence Key Server")
ControlClick("Proteus Professional - InstallShield Wizard","Labcenter Licence Key Server","Button2")
WinWaitActive("Proteus Professional - InstallShield Wizard","Choose Destination Location")
ControlClick("Proteus Professional - InstallShield Wizard","Choose Destination Location","Button1")
WinWaitActive("Proteus Professional - InstallShield Wizard","Select Features")
MouseClick("left",55,172,1)
Sleep(100)
ControlClick("Proteus Professional - InstallShield Wizard","Select Features","Button2")
WinWaitActive("Proteus Professional - InstallShield Wizard","Select Program Folder")
ControlClick("Proteus Professional - InstallShield Wizard","Select Program Folder","Button2")
WinWaitActive("Proteus Professional - InstallShield Wizard","InstallShield Wizard Complete")
ControlClick("Proteus Professional - InstallShield Wizard","InstallShield Wizard Complete","Button1")
Sleep(100)
ControlClick("Proteus Professional - InstallShield Wizard","InstallShield Wizard Complete","Button4")
Sleep(500)
Run("Crack Proteus 7.2 SP6 PRO v1.1.exe")
WinWaitActive("Обновление Proteus 7.2 SP6 Pro","Вы запустили программу обновления Proteus 7.2 SP6 Pro. Она установит обновление Proteus 7.2 SP6 Pro на ваш компьютер.")
ControlSetText("Обновление Proteus 7.2 SP6 Pro","Вы запустили программу обновления Proteus 7.2 SP6 Pro. Она установит обновление Proteus 7.2 SP6 Pro на ваш компьютер.","Edit1","C:\Program Files\Labcenter Electronics\Proteus 7 Professional")
Sleep(100)
ControlClick("Обновление Proteus 7.2 SP6 Pro","Вы запустили программу обновления Proteus 7.2 SP6 Pro. Она установит обновление Proteus 7.2 SP6 Pro на ваш компьютер.","Button1")
WinWaitActive("PatchWise Updater","Файлы успешно обновлены.")
ControlClick("PatchWise Updater","Файлы успешно обновлены.","Button1")
WinWaitActive("Обновление Proteus 7.2 SP6 Pro","Вы запустили программу обновления Proteus 7.2 SP6 Pro. Она установит обновление Proteus 7.2 SP6 Pro на ваш компьютер.")
ControlClick("Обновление Proteus 7.2 SP6 Pro","Вы запустили программу обновления Proteus 7.2 SP6 Pro. Она установит обновление Proteus 7.2 SP6 Pro на ваш компьютер.","Button2")
Sleep(500)
Run("LIBRARY UPDATE.exe")
WinWaitActive("LIBRARY UPGRADE Update Program - Welcome","Welcome to the LIBRARY UPGRADE update program.")
ControlClick("LIBRARY UPGRADE Update Program - Welcome","Welcome to the LIBRARY UPGRADE update program.","Button1")
WinWaitActive("LIBRARY UPGRADE Update Program - Information"," {In Respect of All My Great Freinds Brain, Choas, Javier, Red Alert and all others}")
ControlClick("LIBRARY UPGRADE Update Program - Information"," {In Respect of All My Great Freinds Brain, Choas, Javier, Red Alert and all others}","Button1")
WinWaitActive("LIBRARY UPGRADE Update Program - Directory","LIBRARY UPGRADE 's files will be updated in the following directory:")
ControlSetText("LIBRARY UPGRADE Update Program - Directory","LIBRARY UPGRADE 's files will be updated in the following directory:","Edit1","C:\Program Files\Labcenter Electronics\Proteus 7 Professional")
Sleep(100)
ControlClick("LIBRARY UPGRADE Update Program - Directory","LIBRARY UPGRADE 's files will be updated in the following directory:","Button1")
WinWaitActive("LIBRARY UPGRADE Update Program - Confirmation","This program can update your installed version of LIBRARY UPGRADE .")
ControlClick("LIBRARY UPGRADE Update Program - Confirmation","This program can update your installed version of LIBRARY UPGRADE .","Button1")
WinWaitActive("LIBRARY UPGRADE Update Program - End","LIBRARY UPGRADE has been successfully updated.")
ControlClick("LIBRARY UPGRADE Update Program - End","LIBRARY UPGRADE has been successfully updated.","Button2")
BlockInput(0)
Exit
Файлы ARES.dll; ISIS.DLL (те, которые русифицированы) и licence.lxk зажал в SFX-RAR-архив и комментарий:
Код:
Path=Labcenter Electronics\Proteus 7 Professional\BIN\
SavePath
Silent=1
Overwrite=1
Файл electra.exe (тот, который уже зарегистрированый) тоже в SFX-RAR с комент. :
Код:
Path=Labcenter Electronics\Proteus 7 Professional\ELECTRA\
SavePath
Silent=1
Overwrite=1
Два русских файла справки (один по трасировке - DOC, другой мануал - PDF) тоже в SFX-RAR с комент.:
Код:
Path=Labcenter Electronics\Proteus 7 Professional\
SavePath
Silent=1
Overwrite=1
Shortcut=P, "Rus Manual.pdf", "Proteus 7 Professional", "русское справочное пособие по Proteus", "Rus Manual"
Shortcut=P, "TRAS.doc", "Proteus 7 Professional", "русский DOC по трасировке", "Трасировка печатных плат"
(Я переименовал оригинальные файлы, соответственно Rus Manual.pdf и TRAS.doc)
Регистрируемся файлом реестра
содержание KEY.REG:
Код:
Удалено модератором на основании ОПК п.3.18
а потом создаем коммандный файл, например install.cmd, из которого поочередно все это запускаем:
Код:
Setup.exe (скомпилирован из Setup.au3)
RUS.exe
electra.exe
Helps.exe
REGEDIT /S KEY.REG
exit
Если есть какие-нибудь замечания или предложения, отпишитесь. :) |
