Как можно разорвать АДСЛ соединение и сразу его востановить?

[AquaKlaster]

Как можно разорвать АДСЛ соединение и сразу его востановить? Можно исходник? Спасибо за понимание!

[Terran]

Вот кусочек кода из программы, которую когда-то давно писал:

Uses
   RASUnit,...
Procedure Disconnect;// Рвём соединение с интернетом
Var
Conns: Array[1..10] Of TRasConn;
Size: Integer;
Num: Integer;
I: Integer;
Begin
Size:=Sizeof(TRasConn)*10;
Fillchar(Conns, Size, 0);
Conns[1].DwSize:=Sizeof(TRasConn);
RASEnumConnectionsA(@conns[1], Size, Num);
For I:=1 To Num Do RASHangUp(Conns[I].HRasConn);
End;

Скачать модуль и узнать дополнитльную информацю по вашему вопросу можно здесь:
http://programmersforum.ru/showthread.php?t=26581
http://programmersforum.ru/showthread.php?t=24357
Я даже выкладывал исходнички.

[Lovel]

я не программист. а как пользоваться этим модулем и кодом? мне тоже нужно обрывать связь и сразу ее восстанавливать. заранее спасибо

[*PB*]

Вот так (это не дельфи, а бейсик).

InitNetwork() ; Инициализация библиотеки функций, работающей и инетом и локальной сетью 

Procedure.s SendModemData(Connect, Command.s) ; Процедура, передающая команду модему и получающая от него ответ 
Protected Result.s="", Count=0 
 Command=Command+Chr(13)+Chr(10) 
 SendNetworkData(Connect, @Command, Len(Command)) ; Передача команды 
 Repeat                                          ; В цикле ожидается ответ 
   Delay(20) 
   If NetworkClientEvent(Connect)=#PB_NetworkEvent_Data ; От модема получены данные 
      Count=0 
      *mem=AllocateMemory(10000)                 ; Память под данные 
        If *mem 
          ReceiveNetworkData(Connect,*mem,10000) ; Считывание данных 
          In.s=PeekS(*mem) 
          FreeMemory(*mem) 
          Result=Result+In 
        EndIf 
   EndIf 
   Count+1 
 Until Count>=40 
ProcedureReturn Result 
EndProcedure 



Connect=OpenNetworkConnection("192.168.1.1", 23) ; Установка связи с модемом D-Link DSL-2500U 
If Connect 
   Delay(50) 
   SendModemData(Connect, "admin") ; Логин доступа к модему 
   SendModemData(Connect, "admin") ; Пароль доступа к модему 
   Delay(1000) 
   SendModemData(Connect, "adsl start") ; Разрвыв связи с последующим соединением
   Delay(2000) 
   CloseNetworkConnection(Connect) ; Разрыв связи с модемом 
Else 
  MessageRequester("", "Нет связи с модемом") 
EndIf