1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| If InitNetwork()=0
MessageRequester("[P2P]", "Initialisation de la connexion avec le serveur impossible", 0)
EndIf
*Buffer=AllocateMemory(1000)
Port=7111
ConnectionID=OpenNetworkConnection("88.191.81.111", Port)
ID=ConnectionID
If ConnectionID
MessageRequester("Info", "Connection réussie au serveur P2P!")
Repeat
CEvent=NetworkClientEvent(ID)
If CEvent
Select CEvent
Case 2
ReceiveNetworkData(ID, *Buffer, 1000)
MessageRequester("[P2P]","On a des données recues!")
message$=PeekS(*Buffer)
MessageRequester("[P2P]","Message:"+message$)
FreeMemory(*Buffer)
Case 3
ReceiveNetworkFile(ID, "C:\")
EndSelect
EndIf
ForEver
EndIf |
Partager