Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.03.2012, 17:42   #1
megostudent
Форумчанин
 
Регистрация: 31.12.2010
Сообщений: 320
По умолчанию Разорвать adsl соединение

как разорвать соединение с интернетом? модем d-link 2500u.
megostudent вне форума Ответить с цитированием
Старый 23.03.2012, 19:37   #2
Lesha
Форумчанин
 
Аватар для Lesha
 
Регистрация: 30.01.2009
Сообщений: 418
По умолчанию

http://programmersforum.ru/showthread.php?t=80686
Lesha вне форума Ответить с цитированием
Старый 24.03.2012, 13:01   #3
*PB*
Форумчанин
 
Регистрация: 11.08.2009
Сообщений: 558
По умолчанию

Держи код разрывающий 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
Возможно нужно будет изменить в коде пароль доступа к модему, если он отличается от стандартного.
Компилировать в этом.

Во вложении, скомпилированная программа.
Вложения
Тип файла: rar ADSL.rar (2.5 Кб, 42 просмотров)
*PB* вне форума Ответить с цитированием
Старый 25.03.2012, 02:37   #4
megostudent
Форумчанин
 
Регистрация: 31.12.2010
Сообщений: 320
По умолчанию

Круто!) Спасибо. Вот только не пойму почему дисконект идет после второго запуска проги) И еще такой вопрос интересует как обратный коннект) Это возможно?
megostudent вне форума Ответить с цитированием
Старый 25.03.2012, 13:30   #5
*PB*
Форумчанин
 
Регистрация: 11.08.2009
Сообщений: 558
По умолчанию

Цитата:
Сообщение от 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
*PB* вне форума Ответить с цитированием
Старый 28.03.2012, 16:43   #6
megostudent
Форумчанин
 
Регистрация: 31.12.2010
Сообщений: 320
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
программно разорвать соединение на сервере Indy мандарин Работа с сетью в Delphi 3 19.04.2015 02:18
Разорвать Dial-Up соединение Михаил Юрьевич Работа с сетью в Delphi 0 19.12.2009 12:43
idhttp, как разорвать соединение ??? Игорь22 Работа с сетью в Delphi 2 07.06.2008 04:17
как програмно разорвать соединение с интернетом shurik_7866 Работа с сетью в Delphi 4 24.01.2008 13:06
как разорвать соединение с интернетом shurik_7866 Работа с сетью в Delphi 0 22.01.2008 20:32