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(400)
  SendModemData(Connect, "reboot") ; Перезагрузка модема
  Delay(2000)
  CloseNetworkConnection(Connect) ; Разрыв связи с модемом
Else
  MessageRequester("", "Нет связи с модемом")
EndIf

  . : break cd continue eval exec exit export help login newgrp
  read readonly set shift times trap umask wait [ busybox cat dmesg
  echo expr false fdefault ftpget ifconfig init insmod kill klogd
  ledctrl linuxrc logger login logread mkdir mount msh ping ps
  pwd reboot rm rmmod route sendarp sh sysinfo syslogd test tftpd
  true tty vconfig