Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]

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


 
Verg ©   (2004-02-11 11:37) [13]


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


SetIfEntry из IPHlpApi.dll


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

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


 
Verg ©   (2004-02-11 13:13) [15]


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


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


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

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


 
Verg ©   (2004-02-11 13:36) [17]

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



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.034 c
1-1080633907
Saturn_
2004-03-30 12:05
2004.04.18
ScrollBar


3-1079931573
Максим
2004-03-22 07:59
2004.04.18
Как упаковать dbf таблици используя для доступа к данным ADO?


7-1076937793
МАКСЮХА
2004-02-16 16:23
2004.04.18
Запуск программы от имени пользователя


1-1080641005
zoom
2004-03-30 14:03
2004.04.18
Статистика


1-1080727223
Виноградов Алексей
2004-03-31 14:00
2004.04.18
Моя консольная программа отображает русский текст иероглифами(+)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский