[boss911]

e9990638

т.е. по окончании установки запускается папка с группой (ярлыков). Как это отключить?

По мне так выход один, если конечно сильно нужно, прибить процес всего Explorer'a:

Код:

TASKKILL.EXE /F /im Explorer.exe

[e9990638]

В результате исчезло все с рабочего стола, кроме обоев.
Может что-нибудь другое?

[Vovanchik]

а потом

Код:

explorer.exe

и все опять появиться...
)))

вот так в конечном варианте это должно выглядеть

Код:

TASKKILL.EXE /F /im Explorer.exe
Explorer.exe

[e9990638]

Спасибо, эта часть проблемы решена.
Осталось следующая - "тихая установка" и "тихая" регистрация.
В этой программе есть файл setup.ini.

[e9990638]

Привет всем.
Так может ли кто подсказать как установить "втихую" VFHome-5.4.18.exe (Вента Факс) с регистрацией в нем?
Спасибо за помощь.

[DenchikK]

А через AutoIT - не выход? Если хотите - могу выложить.

[e9990638]

DenchikK
Очень хочу, только для меня AutoIT - абракадабра.
Пробовал сам разобраться в программе, не получилось.
Буду очень признателен за помощь в установке "VFHome-5", ну если не трудно и в работе на AutoIT, (думаю достаточно будет на примере "VFHome-5", только с подробностями.)

[DenchikK]

e9990638

Тренироваться на основе этого скрипта будет трудно, так как каждое окно видется AutoIT почти одинаково, и я выёживался, как мог.
У меня по простяцки сделано, если хотите, можете попросить мегабизона по AutoIT - SanjaAlone написать более навороченный скрипт.
Про обилее пауз (sleep (500)) - чисто для себя делал - не люблю, когда окна мелькают.
Так же я не делаю блокировку клавиатуры (не нравится мне эта мера) и отключение Punto Switcher (в сём скрипте это ни к чему)
Вот готовый мой (простенький) скрипт, работает у меня и моих друзей на версии 5.70 Home под WinXP Rus:

Код:

; Запрет на двойной запуск скрипта
If WinExists(@ScriptName) Then Exit
 
; Пауза между нажатием клавиш 
AutoItSetOption("SendKeyDelay", 50)
 
; Если скрипт засбоил, в трее подведите мышку к иконке AutoIT скрипта, и узнаете, где он застопроился
AutoItSetOption("TrayIconDebug", 1)
 
; Проверка на уже установленную программу
If FileExists ( @ProgramFilesDir & "\Venta\VentaFax & Voice 5\ventafax.exe" ) Then
	MsgBox (64,'Информация','Программа VentaFax уже стоит на Вашем компьютере. Удалите её и попробуйте снова.',7)
	Exit
EndIf
 
;Запуск программы
Run('vfvh57.exe')
 
;Выбор русского языка 
WinWaitActive ('Установка Venta Fax','')
ControlCommand ( 'Установка Venta Fax', '', 'TComboBox1', 'SelectString', 'Russian' )
Sleep (500)
ControlClick ('Установка Venta Fax','','TButton3')
 
WinWaitActive ('Установка Venta Fax','Согласен')
Sleep (500)
ControlClick ('Установка Venta Fax','Согласен','TButton2')
Sleep (500)
ControlClick ('Установка Venta Fax','Согласен','TButton5')
 
WinWaitActive ('Установка Venta Fax','Далее')
Sleep (500)
ControlClick ('Установка Venta Fax','Далее','TButton5')
 
WinWaitActive ('Установка Venta Fax','Добавить значок на панель')
Sleep (500)
ControlCommand ( 'Установка Venta Fax', 'Добавить значок на панель', 'TCheckBox1', "UnCheck", "" )
Sleep (500)
ControlCommand ( 'Установка Venta Fax', 'Добавить значок на панель', 'TCheckBox2', "UnCheck", "" )
Sleep (500)
ControlCommand ( 'Установка Venta Fax', 'Добавить значок на панель', 'TCheckBox3', "UnCheck", "" )
Sleep (500)
ControlClick ('Установка Venta Fax','Добавить значок на панель','TButton7')
 
WinWaitActive ('Установка Venta Fax','Выбрать все')
Sleep (500)
ControlClick ('Установка Venta Fax','Выбрать все','TButton7')
 
WinWaitActive ('Установка Venta Fax','Установить')
Sleep (500)
ControlClick ('Установка Venta Fax','Установить','TButton7')
 
; Если расскоментировать строчку - Venta не запуститься
WinWaitActive ('Установка Venta Fax')
;ControlCommand ( 'Установка Venta Fax', '', 'TCheckBox11', "UnCheck", "" )
Sleep (500)
ControlClick ('Установка Venta Fax','','TButton7')
 
Sleep (500)
 
WinWaitActive ('Venta Fax & Voice','Зарегистрировать сейчас!')
ControlClick ('Venta Fax & Voice','Зарегистрировать сейчас!','TBitBtn6')
 
; Регистрация. Обращаю внимание на то, что серийник вводится по-другому, нежели чем имена. 
; Сделано это из-за того, что Venta иногда вылетает при помещении текста в ячейку s/n 
; Так же я не стал отдельно делать переменные для регистрационных данных, так как в этом скрипте не вижу для этого необходимости.
WinActivate ('Регистрация','')
Sleep (500)
ControlSetText ( 'Регистрация','', 'TEdit2', "TDS" )
Sleep (500)
ControlSetText ( 'Регистрация','', 'TEdit1', "2000" )
Sleep (500)
Send ('{TAB 2}')
Send ('3308-16628199248-2488')
;ControlSetText ( 'Регистрация','', 'TEdit3', "3308-16628199248-2488" )
Sleep (500)
ControlClick ('Регистрация','','TBitBtn2')
 
WinWaitActive ('Information')
ControlClick ('Information','','TButton1')
 
WinWaitActive ('ВНИМАНИЕ!')
ControlClick ('ВНИМАНИЕ!','','TBitBtn3')
 
WinWaitActive ('Настройка параметров')
Sleep (10000)
ControlClick ('Настройка параметров','','TBitBtn38')
 
Exit

[e9990638]

DenchikK
Спасибо большое!
Буду разбираться.
(Если не трудно, куда вставлять этот скрипт?)