Connectez vous, choisissez votre pseudo, et ecrivez des phrases. J'attend diverses connections et j'afficherais ici le resultat.
Voici votre client :
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
