Code : Tout sélectionner
If InitNetwork() = 0
MessageRequester("Error", "Can't initialize the network !", 0)
End
EndIf
OpenConsole()
PrintN("Client FTP")
PrintN("Ce que tu vas ecrire ici sera NORMALEMENT envoye sur mon ecran :")
;port$=Input()
port = 23000;Val(port$)
len=1000
ConnectionID = OpenNetworkConnection("90.7.204.32", Port); mon IP actuelle
If ConnectionID
Repeat
mess$=Input()
SendNetworkString(ConnectionID, mess$)
ForEver
CloseNetworkConnection(ConnectionID)
Else
MessageRequester("PureBasic - Client", "Can't find the server (Is it launched ?).", 0)
EndIf
End