Разорвать adsl соединение

[megostudent]

как разорвать соединение с интернетом? модем d-link 2500u.

[Lesha]

http://programmersforum.ru/showthread.php?t=80686

[*PB*]

Держи код разрывающий ADSL.

InitNetwork()

Procedure.s SendModemData(Connect, Command.s)
  Protected Result.s="", Count=0, x
  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) ; IP адрес модема и порт.
If Connect
  Delay(50)
  SendModemData(Connect, "admin") ; Логин.
  SendModemData(Connect, "admin") ; Пароль.
  Delay(400)
  SendModemData(Connect, "adsl connection --down") ; разорвать DSL-соединение.
  Delay(2000)
  CloseNetworkConnection(Connect)
EndIf

Возможно нужно будет изменить в коде пароль доступа к модему, если он отличается от стандартного.
Компилировать в этом.

Во вложении, скомпилированная программа.

[megostudent]

Круто!) Спасибо. Вот только не пойму почему дисконект идет после второго запуска проги) И еще такой вопрос интересует как обратный коннект) Это возможно?

[*PB*]

Сообщение от megostudent

И еще такой вопрос интересует как обратный коннект) Это возможно?

Connect=OpenNetworkConnection("192.168.1.1", 23) ; IP адрес модема и порт.
If Connect
  Delay(50)
  SendModemData(Connect, "admin") ; Логин.
  SendModemData(Connect, "admin") ; Пароль.
  Delay(400)
  SendModemData(Connect, "adsl connection --down") ; разорвать соединение.
  Delay(2000)
  SendModemData(Connect, "adsl start --up")
  SendModemData(Connect, "adsl connection --up")
  Delay(2000)
  CloseNetworkConnection(Connect)
EndIf

[megostudent]

спасиб огромное!
ну чтот не хочет конектится сразу прям) после второго запуска ток идет)
но не беда с меня +100500 миллионов "+")