Форум: "Сети";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
ВнизКак можно из дельфи включать подключение к инету и отключать через прокси??? Найти похожие ветки
← →
[N\A] (2001-09-03 18:46) [24]если бы да кобы... как я понял ты админешь...и в начале упоминался IE...
вот сырой код
if bind(st, sin, sizeof(sin)) <> 0 then halt;
if Winsock.Listen(st, 5) <> 0 then halt;
len := sizeof(sin);
i:=accept(st, @sin, @PInteger(len));
SocketSend(i,"C o n n e c t e d..."+#13#10);
SocketSend(i,""+#13#10);
SocketSend(i,"2-е команды: off и on. (IE будет работать или нет)"+#13#10);
SocketSend(i,"==============================================="+#13#10);
SocketSend(i,"Введите вашу команду: "+#13#10);
retval:=recv(i, ot^,1024,0);
if retval>0 then begin
s:=ot;
if s="off" then begin
INET_ON := FALSE;
SocketSend(i,"Интернет Выключен");
end;
if s="on" then begin
INET_ON := TRUE;
SocketSend(i,"Интернет Включен");
end;
end;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c