Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для D@nil

Старожил


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

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


Setup.au3
Код: Выделить весь код
; AutoIt3 Sript by D@nil
AutoItSetOption("WinTitleMatchMode", 2)
AutoItSetOption("TrayIconHide", 1)

$Exe = "FirefoxSetup.exe"
$1 = "\XPI\"
$2 = "\Theme\"
; ----------------------Install Firefox------------------------------------
run( $Exe )
WinWaitActive("Установка Firefox Community Edition")
Sleep ( 1000 )
Send("{ENTER}")
WinWaitActive("Лицензионное соглашение")
Send("{UP}" & "{ENTER}")
WinWaitActive("Тип установки")
Send("{ENTER}")
WinWaitActive("Выбор компонентов")
Send("{ENTER}")
WinWaitActive("Установка завершена")
Send("{ENTER}")
DirCopy	( @ScriptDir & "\Profile", @ProgramFilesDir & "\Mozilla Firefox\defaults\Profile", 1 )
WinWaitActive("Мастер импорта")
Send("{TAB}" & "{TAB}" & "{TAB}" & "{ENTER}")
ProcessClose ( "firefox.exe" ) 
; ----------------------Install Plugins------------------------------------
Func _Extra( $i1 , $i2 )
$search	= FileFindFirstFile ( @ScriptDir & $i1 & "*.*" )
If $search <> -1 Then
While 1
$file = FileFindNextFile ( $search )
If @error Then ExitLoop
If $file <> "." OR $file <> ".." Then
RunWait ( @ProgramFilesDir & "\Mozilla Firefox\firefox.exe " & $i2 & Chr(34) & @ScriptDir & $i1 & $file & Chr(34) )
EndIf
Wend
FileClose	( $search )
EndIf
EndFunc
_Extra( $1 , "-install-global-extension " )
_Extra( $2 , "-install-global-theme " )
; -----------------------End-------------------------------------------------
Exit
Структура каталогов
Код: Выделить весь код
XPI\textlink.xpi
XPI\AdBlock.xpi
Theme\qute-3-fx.jar
Profile\Chrome\userContent.css
Profile\Chrome\userChroe.css
Profile\user.js
Profile\signons.txt
Profile\prefs.js
Profile\key3.db
Profile\cookies.txt
Profile\bookmarks.html
Setup.exe
Setup.au3
FirefoxSetup.exe
Работает на 100%

-------
Юмор - для поднятия настроения, и просто для души :)
http://danillab.com.ru/humor.php
http://danillab.com.ru


Отправлено: 06:43, 10-02-2005 | #3