[NikLok]

Я тоже пытался настроить сабж при помощи АВТОИТА. Тока вот не понял куда его пихнуть чтоб он запустился после запуска самого Аутпоста. А то если в ран онсе ех пихнуть, то сначал скрипт работает, а потом уже файерволл запускается. Еснно ничего хорошего не выходит. Но если попробовать обратную последовательностьт, то результат иногда получается. Пока еще в нем есть ошибки, но вес равно приведу. Следует иметь в виду что настроуки у нас специфические! И конечно есть еще чехарда с языками программы!!!

Код:

;#NoTrayIcon
AutoItSetOption ( "TrayIconDebug", 1 )
;BlockInput(1)
;Run("D:\DISTRIB\FIREWALLS\OUTPOST\V3\OutpostProInstall_ru_3.5.641.458.exe","d:\DISTRIB\FIREWALLS\OUTPOST\V3\")
AutoItSetOption("SendKeyDelay", 100)
;Run("C:\Program Files\Agnitum\Outpost Firewall\outpost.exe","C:\Program Files\Agnitum\Outpost Firewall")

If WinWaitActive("Создать правило для ","Generic Host Process for Win32 Services",200) Then 
   Sleep(200)
   Send("{TAB}")
   Send("{TAB}")
   Send("{TAB}")
   Send("{TAB}")
   Send("{SPACE}")
EndIf

If WinWaitActive("Первоначальная настройка","Что нового",200) Then
Send("{TAB}")
   Send("{SPACE}")

   If WinWaitActive("Первоначальная настройка","Модуль Быстрая настройка",200) Then
      Send("{TAB}")
      Send("{TAB}")
      Send("{SPACE}")
      
      If WinWaitActive("Первоначальная настройка","Включение защиты от spyware",200) Then
         Send("{TAB}")
         Send("{TAB}")
         Send("{TAB}")
         Send("{SPACE}")

         If WinWaitActive("Spyware-сканер","",200) Then
;контролировать закрытие
	    EndIf	
            
         If WinWaitActive("Spyware-сканер","Просмотр результатов сканирования",2000) Then
            Send("{TAB}")
            Send("{SPACE}")
	    EndIf	

         If WinWaitActive("Outpost Firewall Pro (Service Mode)","",200) Then
            Send("{F10}{RIGHT}{RIGHT}{DOWN}{DOWN}{ENTER}")
            Send("{F10}{RIGHT}{RIGHT}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")
            Send("{F10}{RIGHT}{RIGHT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")
            Send("{F10}{RIGHT}{RIGHT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")
	    If WinWaitActive("Outpost Firewall Pro","Выключение ведения журнала",200) Then
               Send("{SPACE}")
               EndIf
            Send("{F10}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{RIGHT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")
	    If WinWaitActive("Параметры","",200) Then
               Send("{DOWN}{DOWN}!о")
               Send("{DOWN}{DOWN}{DOWN}{DOWN}!о")
               Send("{TAB}{TAB}{TAB}{TAB}{SPACE}")
            EndIf
            Send("{F10}{DOWN}{DOWN}{DOWN}{ENTER}")
            If WinWaitActive("Сохранить новую Конфигурацию как","",200) Then
               Send("{ENTER}")
               EndIf
;MiniMize            
            WinSetState("Outpost Firewall Pro (Service Mode)", "", @SW_MINIMIZE )
	    ;WinWaitActive("Outpost Firewall Pro (Service Mode)","",200) Then
         EndIF
      EndIf
   EndIF
EndIF
Exit