Автоматическая установка программы, ... Опции

[GLuk]

Доброго времени суток.

Где бы найти прогу для установки любой программы в автоматическом режиме.
Т.е. как я себе это представляю:
Запускаем ТУ САМУЮ прогу, а параллельно нужную прогу, затем ТА САМАЯ прога запоминает нажатия клавиш и пишет на диск. После всего этого, запускаем ТУ САМУЮ прогу и она посылает сообщения в окно нужной проги...

типа того

[APAL]

Пример:

Код

SplashTextOn ( 'AutoIt', 'Выполняется скрипт' & @LF & @LF & 'Ждите...', 300, 100 )

AutoItSetOption ( "SendKeyDelay", 10 )

Run ( 'c:\winnt\system32\cmd.exe' )
WinwaitActive('c:\winnt\system32\cmd.exe','',1)
Send ( 'ping msktermserver -t{enter}' )
$CurrentTitle = WinGetTitle( '', '' )
WinMove ( $CurrentTitle, '', 0, 0, 340, 300 )

Run ( 'c:\winnt\system32\cmd.exe' )
WinwaitActive('c:\winnt\system32\cmd.exe','',1)
Send ( 'ping megaserver -t{enter}' )
$CurrentTitle = WinGetTitle( '', '' )
WinMove ( $CurrentTitle, '', 341, 0, 340, 300 )

Run ( 'c:\winnt\system32\cmd.exe' )
WinwaitActive('c:\winnt\system32\cmd.exe','',1)
Send ( 'ping termserver -t{enter}' )
$CurrentTitle = WinGetTitle( '', '' )
WinMove ( $CurrentTitle, '', 682, 0, 340, 300 )

Run ( 'c:\winnt\system32\cmd.exe' )
WinwaitActive('c:\winnt\system32\cmd.exe','',1)
Send ( 'ping gateserver -t{enter}' )
$CurrentTitle = WinGetTitle( '', '' )
WinMove ( $CurrentTitle, '', 0, 301, 512, 300 )

Run ( 'c:\winnt\system32\cmd.exe' )
WinwaitActive('c:\winnt\system32\cmd.exe','',1)
Send ( 'ping mailserver -t{enter}' )
$CurrentTitle = WinGetTitle( '', '' )
WinMove ( $CurrentTitle, '', 513, 301, 512, 300 )
SplashOff ( )
Exit

Сообщение отредактировано: APAL - 6.10.2004 12:39