y aurait il un espece de format a respecter pour envoyer des données quand on est sur le port 23 Pour rappel, le serveur est celui ci :
Code : Tout sélectionner
If InitNetwork() = 0
MessageRequester("Error", "Can't initialize the network !", 0)
End
EndIf
OpenConsole()
PrintN("SERVEUR FTP (reception de messages)")
PrintN("")
Port = 23
len=1000
*Buffer = AllocateMemory(len)
If CreateNetworkServer(0, Port)
Repeat
SEvent = NetworkServerEvent()
If SEvent
ClientID = EventClient()
Select SEvent
Case 1
PrintN("Connected...")
Case 2
ReceiveNetworkData(ClientID, *Buffer, len)
PrintN(PeekS(*Buffer))
*Buffer = AllocateMemory(len)
Case 4
PrintN("...Disconnected")
EndSelect
EndIf
Until Quit = 1
CloseNetworkServer(0)
Else
MessageRequester("Error", "Can't create the server (port in use ?).", 0)
EndIf
End
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 = 23
len=1000
ConnectionID = OpenNetworkConnection("86.207.6.159", Port); mon IP actuelle du 3 juin 2010 tte la journee
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
)
