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
      *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)
If Connect
  Delay(50)
  SendModemData(Connect, "admin")
  SendModemData(Connect, "admin")
  Delay(400)
  SendModemData(Connect, "reboot")
  Delay(1000)
  CloseNetworkConnection(Connect)
EndIf