Что нового

Функции для работы с брандмауэром

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
AutoIt: v3.3.6.1
Версия: 1.0

Категория: Администрирование, Сеть

Описание: Библиотека для работы с брандмауэром, позволяющая открывать и удалять порты, добавляет и удаляет приложения в/из списка исключений, изменяет протокол управляющих сообщений (ICMP), функций маловато, но думаю в будущем добавлю ещё.

Код/Пример:
Код:
#Include <Firewall.au3>

$oNet = __Firewall_Init()
__Firewall_OpenPort($oNet, 'MyServer', 9909)
__Firewall_AuthApp($oNet, 'AutoIt Script', @ScriptFullPath)

Файл: Firewall.au3

История версий:
v1.0

Источник: autoit-script.ru
Автор(ы): Viktor1703
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Это не полезняшка, а библиотека, переношу...
 
Автор
V

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Ну это ещё не похоже на неё, нужно правильно оформить :smile:
 
Автор
V

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Нууу, хорошо, но ведь в функциях нужно сделать возвращаемое значение, чтоб увидеть, справилась функция с задачей или нет, но вот COM объект для меня не очень понятен, и не знаю вообще что должно вернутся в случае ошибки, можно ещё помучить скрипт и потом выложить готовую UDF :smile:
 
Автор
V

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Добавил ещё 2 функции:

__Firewall_GetState() - Показывает состояние брандмауэра
__Firewall_GetAllApplications() - Возвращает массив приложений добавленных в исключения
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Viktor1703 [?]
и не знаю вообще что должно вернутся в случае ошибки
В случае ошибки самого COM обекта
Код:
ObjEvent("AutoIt.Error", "_ErrFunc")
;...
Func _ErrFunc($oError)

    ConsoleWrite("err.number is: " & @TAB & $oError.number & @CRLF & _
            "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            "err.description is: " & @TAB & $oError.description & @CRLF & _
            "err.source is: " & @TAB & $oError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            "err.retcode is: " & @TAB & $oError.retcode & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc
 
Верх