PureBasic

Code : Tout sélectionner

; ------------------------------------------------------------
;
;   PureBasic - Network (Client) example file
;
;    (c) 2003 - Fantaisie Software
;
; ------------------------------------------------------------
;

If InitNetwork() = 0
  MessageRequester("Error", "Can't initialize the network !", 0)
  End
EndIf

OpenConsole()
PrintN("Client FTP")
non777:
PrintN("Choisi un pseudo (entre 3 et 16 caracteres) : ")
pseudo$=Input()
If Len(pseudo$)<3 Or Len(pseudo$)>16
  Goto non777
EndIf

; port = Val(port$)
port=23
pseudo.b=0

len=1000

ConnectionID = OpenNetworkConnection("86.208.140.197", Port)
If ConnectionID
  ;MessageRequester("PureBasic - Client", "Client connected to server...", 0)
  If pseudo=0
    pseudo=1
    SendNetworkString(ConnectionID, pseudo$+"÷ñÞ×þ"); "÷ñÞ×þ"=pseudo
  EndIf
  
Repeat 
mess$=Input()
  SendNetworkString(ConnectionID, mess$)
;   *Tampon = AllocateMemory(len)
;   *Pointeur = *Tampon
;   CopyMemoryString(mess$, @*Pointeur)
;   SendNetworkData(ConnectionID, *Tampon, len)
;   Debug PeekS(*Tampon) 

ForEver
  ;MessageRequester("PureBasic - Client", "A string has been sent to the server, please check it before quit...", 0)
  
  CloseNetworkConnection(ConnectionID)
Else
  MessageRequester("PureBasic - Client", "Can't find the server (Is it launched ?).", 0)
EndIf
  
End   
; IDE Options = PureBasic 4.40 (Windows - x86)
; CursorPosition = 28
; FirstLine = 13
; EnableXP
; Executable = client.exe