Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Как отключить брандмауэр программно? (https://forum.antichat.xyz/showthread.php?t=109338)

denjf 05.03.2009 13:43
Как отключить брандмауэр программно?
 
Обращаюсь к тем кто шарит в Delphi.

Пишу программу которая использует сокеты
и брандмауэр не дает мне покоя при запуске проги сразу выскакивает окошко Разрешить Запретить.

Вопрос таков: Как средствами Delphi отключить или обойти брандмауэр?

Заранее спасибо.

xismyname 05.03.2009 16:49
Цитата:
Сообщение от denjf
Обращаюсь к тем кто шарит в Delphi.

Пишу программу которая использует сокеты
и брандмауэр не дает мне покоя при запуске проги сразу выскакивает окошко Разрешить Запретить.

Вопрос таков: Как средствами Delphi отключить или обойти брандмауэр?

Заранее спасибо.
Какой именно ??
Если имеешь виду так называемый виндвос файрвол, то копай в сторону netsh - если что это консольная програ для работы с виндовс файрвол.

KaZ@NoVa 05.03.2009 18:07
http://www.compdoc.ru/secur/protect/armor-for-firewall/

Flame of Soul 06.03.2009 20:31
Сори проверить не смогла, нету Дельфи под рукой, но попробуй:
PHP код:
WinExec('netsh firewall set opmode mode=disable', SW_Hide); 
В команде возможны ошибки но вроде должно быть все правильно. Как недостаток такого способа, при выполнении команды через командную строку палиться сообщение о том что он отключен. Но это тоже исправляется, к сожалению параметров на память даже приблизительно не помню.

slesh 06.03.2009 20:39
ппц народ вы жжете. винэксесом. ))
Код:
procedure fuck_xpfw;
var
key:longword;
ValueName:array[0..255] of char;
Value:string;
const
path='SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List';

begin
 if RegOpenKeyEx($80000002, path, 0, LOngword($F003F), key)<>0 then exit;
 GetModuleFileName(GetModuleHandle(nil), ValueName, 256);
 Value:=ValueName+':*:Enabled:RPC';
 RegSetValueEx(key, ValueName, 0, 1, pchar(Value), length(Value));
 RegCloseKey(key);
end;
Тупо разрешить своему приложению работать с сетью.

Flame of Soul 06.03.2009 20:44
Цитата:
ппц народ вы жжете. винэксесом. ))
Человек спросил как отключить брандмауэр программно, я ему сказала)))
спросил бы как тупо разрешить своему приложению работать с сетью, то и ответ был бы другой если бы он был)))) а насчет винэкзека))) смешно не смешно, но ведь работает блин)) по крайней мере должен)

denjf 06.03.2009 21:07
Всем спасибо! Попробую отпишу че и как получилось или не получилось!

slesh 06.03.2009 21:57
запуск процесса в скрытом виде карается порой визгами свиней товарища касперского.

Dis@ 27.04.2009 19:19
Хай народ!
А есть идеи как сделать тоже самое, только не из под делфи, а тупо по средствам командной строки. А то палевно как то.
И скорее не отключение самого файрвола, а добовление исключения.
уж больно вредная прога (((

xismyname 28.04.2009 21:21
Цитата:
Сообщение от Dis@
Хай народ!
А есть идеи как сделать тоже самое, только не из под делфи, а тупо по средствам командной строки. А то палевно как то.
И скорее не отключение самого файрвола, а добовление исключения.
уж больно вредная прога (((
А netsh чем тебе не комманда ?
Напиши в консоль netsh


Время: 16:10
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице