PureBoard

Code: Alles auswählen

InitNetwork()
OpenConsole()
Define Verbindung, *Buffer
;
Procedure CheckString(String$)
  Shared Verbindung
  Print(String$)
  If FindString(String$, "login:", 1)
    SendNetworkString(Verbindung, "DL5ZZZ" + #LF$)
  EndIf
EndProcedure
;
Verbindung = OpenNetworkConnection("gb7mbc.spoo.org", 8000)
If Verbindung
  Repeat
    Select NetworkClientEvent(Verbindung)
      Case 0
        Delay(1)
      Case #PB_NetworkEvent_Data
        *Buffer = AllocateMemory(1024)
        If *Buffer
          CheckString(PeekS(*Buffer, ReceiveNetworkData(Verbindung, *Buffer, 1024)))
          FreeMemory(*Buffer)
        Else
          MessageRequester("Error", "Konnte den angeforderten Speicher nicht reservieren!")
        EndIf
    EndSelect
  ForEver
Else
  MessageRequester("Error", "Verbindung konnte nicht hergestellt werden!", 0)
EndIf