Как из программы отключить сеть?

← →
aleman (2004-02-10 15:26) [0]

Нужно из программы отключить сеть, а потом включить.
С помощью каких функций можно это сделать?

← →
Vit@ly © (2004-02-10 16:03) [1]

Что означает отключить сеть? Вырубить свой компьютер или что-то более глобальное?

← →
aleman (2004-02-10 16:06) [2]

Выключить сеть означает сделать её DISABLE.

← →
DDA © (2004-02-10 16:07) [3]

Бином Ньютоныч (21.12.03 09:34) [1]
procedure CloseRasConnections;
var
Connections: array[0..15] of TRasConn;
Size, Count, Res, Res2, n: integer;
Status: TRasConnStatus;
begin
Connections[0].dwSize:=SizeOf(TRasConn);
Size:=SizeOf(Connections);
Res:=RasEnumConnections(@Connections, Size, Count);
if (Res = 0) or (Res = ERROR_BUFFER_TOO_SMALL) then
begin
for n:=0 to Pred(Count) do
begin
Res2:=RasHangUp(Connections[n].hrasconn);
Status.dwSize:=SizeOf(Status);
if Res2 = 0 then
while
RasGetConnectStatus(Connections[n].hrasconn, Status) <> ERROR_INVALID_HANDLE
do
Sleep(0)
else begin
SetLastError(Res2);
RaiseLastOSError;
end;
end;
if Res = ERROR_BUFFER_TOO_SMALL then CloseRasConnections;
end else
begin
SetLastError(Res);
RaiseLastOSError;
end;
end;

-------------
kor@l © (24.01.04 19:54) [2]
Гляди сюда:
cmd := "open";
fil := "rasdial.exe";
par := PChar("Имя соед." + " /DISCONNECT");
dir := "C:";
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);

← →
aleman (2004-02-10 16:52) [4]

По поводу:
par := PChar("Имя соед." + " /DISCONNECT");

Я хочу отключить локальную сеть, сделать её DISABLE, какое имя соединения я должен указать?

← →
Игорь Шевченко © (2004-02-10 18:24) [5]

> Я хочу отключить локальную сеть, сделать её DISABLE

А остальные пользователи локальной сети тоже этого хотят ?

← →
aleman (2004-02-11 09:27) [6]

Их мнения я не собирался спрашивать. А что надо?

← →
Anatoly Podgoretsky © (2004-02-11 09:34) [7]

Не обязательно, но если человек смелый, то сообщи им, что это ты именно сделал, чтобы знали кого бить.

← →
Anatoly Podgoretsky © (2004-02-11 09:35) [8]

Ведь судя по всему ты не администратор сети, а хакер самоучка.

← →
aleman (2004-02-11 10:04) [9]

А чё сразу хакер-то?
На локальном компьютере можно вызвать контексное меню на иконке "Моё сетевое окружение" и в контексном меню на "Подключение по локальной сети" выбрать пункт "Отключить" (или "Подключить").
Неужели того же результата нельзя добиться с помощью какой-нибудь API функции?

← →
Vit@ly © (2004-02-11 10:12) [10]

Прикидываешься, причем здесь
<Выключить сеть означает сделать её DISABLE.>

← →
aleman (2004-02-11 10:25) [11]

Ну так DISABLE для данного компьютера, остальные копьютеры в сети будут работать как обычно.

← →
Vit@ly © (2004-02-11 10:36) [12]

Просто зашарь (закрой) все ресурсы с общим доступом.

> aleman (11.02.04 10:04) [9]
> А чё сразу хакер-то?
> На локальном компьютере можно вызвать контексное меню на
> иконке "Моё сетевое окружение" и в контексном меню на "Подключение
> по локальной сети" выбрать пункт "Отключить" (или "Подключить").
> Неужели того же результата нельзя добиться с помощью какой-нибудь
> API функции?

SetIfEntry из IPHlpApi.dll

← →
aleman (2004-02-11 12:53) [14]

Чего-то при вызове SetIfEntry из IPHlpApi.dll ничего не происходит.

> aleman (11.02.04 12:53) [14]
> Чего-то при вызове SetIfEntry из IPHlpApi.dll ничего не
> происходит.

Значит неправильно вызываешь.
У нее же еще параметры есть. Пробовал заполнять?

← →
aleman (2004-02-11 13:27) [16]

Я её в Help-е не нашёл.
У меня Delphi 6. Может подскажешь либо параметры, либо в каком Help-е она находится.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iphlp/iphlp/setifentry.asp

Как из программы отключить сеть? Найти похожие ветки