[..] Jeux en résau (2j)

[silvere]

Appelle a tout ceux qui savant coder du TCP si ils peuvent me faire un petit exemple avec un scripte serveur pour m'éclaircir les idées .
Merci d'avance

[matwachich]

Bah, écoute, le TCP (Transfert Control Protocol) c'est un peut compliqué au début. Alors je te conseil de te faire d'abord les dents avec des trucs simples, pour ensuite essayé d'implémenter ce que tu aura appris sur ton jeu.

Si tu regarde dans le Help de mon UDF, tu trouvera 2 exemples de scripts simples:
- Un serveur: c'est en quelque sorte l'arbitre, tous les clients se connectent à lui.
- Un client: c'est un utilisateur si tu veux, il se connecte au serveur. Il peut y avoir plusieurs clients sur un même serveur.

Pour comprendre aussi, un serveur Web (qui contient un site internet) c'est la même chose, et les clients ici ce sont les navigateurs web qui demandent une page.

[silvere]

J'ai compris la logique, mais je sais pas comment faire, j'ai regarder dans l'aide mais j'ai pas réussi pourrait-tu me faire un petit exemple client <==> serveur avec ton udf

[blacksoul305]

Salut Silvere,

je poste pour te dire que j'ai attaqué un script serveur/client qui colle avec ton projet. Bien sûr, je commenterai (presque) chaque ligne de code puisque c'est plutôt compliqué à comprendre. Manquant de temps, j'espère avoir fini le tout et te l'envoyer dimanche ou lundi soir, sachant que j'ai terminé hier le script serveur.

[matwachich]

Il y a pourtant un exemple dans le help de l'UDF.
Lance d'abord s.au3, en suite lance autant de fois c.au3 que tu veux.

[silvere]

Super ! Merci beaucoup matwachich, je vais analyser ce scripte et te faire par de mon jeu .

[blacksoul305]

Bon, bah je finirai quand même le truc de mon côté, en utilisant les fonctions "natives" d'AutoIt en matière de TCP.

EDIT : Voilà, j'ai finis le petit script TCP contenant serveur/client. Si tu as des questions je ferai en sorte de répondre, et écouter tes critiques ou autres remarques. Le code est commenté à pratiquement chaque ligne pour faciliter la compréhension de celui-ci. J'ai testé un serveur et deux clients sur mon PC et ça a l'air de bien marcher. Il manquera plus qu'à adapter ce script pour le placer dans ton jeu si jamais tu veux le faire avec les fonctions TCP.

[silvere]

O merci beaucoup blacksoul305 !

Edit : le port pour la connexion du premier joueur doit être obligatoirement différent du port pour la connexion du second joueur ?

[blacksoul305]

C'est pour faciliter le traitement des données, mais sinon tout peut passer par le même port.

[silvere]

@blacksoul305 je sais que tu a déjà fait un super scripte mais pourrais-tu corriger ce petit scripte s'il te plaît :

► Afficher le texte

Code : Tout sélectionner

#include <Inet.au3>
#include <Misc.au3>

Global $port = 80, $packet = "test", $IP = _GetIP(), $recv

TCPStartup()
$socket = TCPConnect($IP, $port)

If $socket = -1 Then
    MsgBox(0, "Erreur", "Erreur de connexion au serveur.")
    Exit
ElseIf $socket = 1 Then
    MsgBox(0, "Erreur", "IP du serveur incorrect")

ElseIf $socket = 2 Then
    MsgBox(0, "Erreur", "Port du serveur incorrect")
EndIf

$Mainsocket = TCPListen($IP, $port)
If $socket = -1 Then
    MsgBox(16, "Erreur", "création du socket impossible, erreur n°" & @error)
    Exit
EndIf


$isConnected = TCPAccept($Mainsocket)

While 1
    $recv = TCPRecv($isConnected, 9999)
    If $recv <> "" Then MsgBox(0, "", "Packet ressus : " & $recv)
    If _IsPressed("26") Then
        TCPSend($socket, $packet)
        MsgBox(0, "", "Packet envoyer : " & $packet)
    EndIf
WEnd

[blacksoul305]

► Afficher le texte

Code : Tout sélectionner

#include <Inet.au3>
#include <Misc.au3>

Global $port = 80, $packet = "test", $IP = _GetIP(), $recv

TCPStartup()
[color=#FF0000]$socket = TCPConnect($IP, $port)

If $socket = -1 Then
    MsgBox(0, "Erreur", "Erreur de connexion au serveur.")
    Exit
ElseIf $socket = 1 Then
    MsgBox(0, "Erreur", "IP du serveur incorrect")

ElseIf $socket = 2 Then
    MsgBox(0, "Erreur", "Port du serveur incorrect")
EndIf

$Mainsocket = TCPListen($IP, $port)
If $socket = -1 Then
    MsgBox(16, "Erreur", "création du socket impossible, erreur n°" & @error)
    Exit
EndIf


$isConnected = TCPAccept($Mainsocket)[/color]

While 1
    $recv = TCPRecv($isConnected, 9999)
    If $recv <> "" Then MsgBox(0, "", "Packet ressus : " & $recv)
    If _IsPressed("26") Then
        TCPSend($socket, $packet)
        MsgBox(0, "", "Packet envoyer : " & $packet)
    EndIf
WEnd

Dans ce code tu tentes de créer deux fois le même socket avec les même données, donc ça bloque.

Dis-toi qu'un socket c'est un porte. Tu as deux façons d'ouvrir cette porte :

TCPListen : Tu es l'hôte de la fête, tu ouvres la porte et attend que les personnes rentrent. Dès que quelqu'un se présente au pas de la porte, il faut que tu le fasses rentrer et donc, utiliser TCPAccept.

TCPConnect : Tu es invité à la fête mais tu dois attendre que l'hôte t'autorise à entrer. Si il y a une erreur, c'est que tu t'ais trompé de maison ou alors que tu n'es pas invité !

Cette analogie devra t'aider. A toi de savoir ce que tu veux faire donc.

[silvere]

Ha d'accord, mais comment recevoir et envoyer en même temps alors ?

[blacksoul305]

Ça y est dans mon script :

Si tu es l'hôte, tu reçois quelqu'un ouvrant ta porte. Quelqu'un se présente tu l'acceptes, et ensuite tu peux lui parler. Dans l'ordre on a :

Code : Tout sélectionner

TCPListen
TCPAccept
TCPSend ou TCPRecv

[silvere]

alors ça donne ceci ?:

► Afficher le texte

Code : Tout sélectionner

#include <Inet.au3>
#include <Misc.au3>

Global $port = 80, $packet = "test", $IP =  _GetIP, $recv

TCPStartup()
$Mainsocket = TCPListen($IP, $port)
If $Mainsocket = -1 Then
    MsgBox(16, "Erreur", "création du socket impossible, erreur n°" & @error)
    Exit
EndIf

$isConnected = TCPAccept($Mainsocket)

$socket = TCPConnect($IP, $port)

If $socket = -1 Then
    MsgBox(0, "Erreur", "Erreur de connexion au serveur.")
    Exit
ElseIf $socket = 1 Then
    MsgBox(0, "Erreur", "IP du serveur incorrect")

ElseIf $socket = 2 Then
    MsgBox(0, "Erreur", "Port du serveur incorrect")
EndIf



While 1
    $recv = TCPRecv($isConnected, 9999)
    If $recv <> "" Then MsgBox(0, "", "Packet ressus : " & $recv)
    If _IsPressed("26") Then
        TCPSend($socket, $packet)
        MsgBox(0, "", "Packet envoyer : " & $packet)
    EndIf
WEnd

[blacksoul305]

Tiens, voici le code corrigé et commenté !

Code : Tout sélectionner

#include <Inet.au3>
#include <Misc.au3>

Global $port = 80, $packet = "test", $IP =  _GetIP, $recv

TCPStartup()

$Mainsocket = TCPListen($IP, $port) ; ici on ouvre la porte et on attend que quelqu'un se présente
If $Mainsocket = -1 Then ; si la porte est vérouillée
    MsgBox(16, "Erreur", "création du socket impossible, erreur n°" & @error)
    Exit
EndIf

$isConnected = -1 ; on initiliase la variable à -1, c'est à dire que personne s'est présenté

Do 
    $isConnected = TCPAccept($Mainsocket) ; on accepte une connexion
    Sleep(20)
Until $isConnected <> -1 ; tant que personne s'est connecté

While 1
    $recv = TCPRecv($isConnected, 9999)
    If $recv <> "" Then MsgBox(0, "", "Packet ressus : " & $recv)
    If _IsPressed("26") Then
        TCPSend($socket, $packet)
        MsgBox(0, "", "Packet envoyer : " & $packet)
    EndIf
WEnd

[silvere]

Enfin corriger entre guillemet car il y a encore des erreur
Mais je comprend pas, avec le scripte ci-dessous, il reste dans le boucle do Until

► Afficher le texte

Code : Tout sélectionner

#include <Inet.au3>
#include <Misc.au3>

Global $port = 80, $packet = "test", $IP = @IPAddress1, $recv

TCPStartup()

$Mainsocket = TCPListen($IP, $port) ; ici on ouvre la porte et on attend que quelqu'un se présente

If $Mainsocket = -1 Then ; si la porte est vérouillée
    MsgBox(16, "Erreur", "création du socket impossible, erreur n°" & @error)
    Exit
EndIf

$isConnected = -1 ; on initiliase la variable à -1, c'est à dire que personne s'est présenté

Do
    $isConnected = TCPAccept($Mainsocket) ; on accepte une connexion
    Sleep(20)
Until $isConnected <> -1 ; tant que personne s'est connecté

While 1
    $recv = TCPRecv($isConnected, 9999)
    If $recv <> "" Then MsgBox(0, "", "Packet ressus : " & $recv)
    If _IsPressed("26") Then
        TCPSend($Mainsocket, $packet)
        MsgBox(0, "", "Packet envoyer : " & $packet)
    EndIf

[blacksoul305]

Bah, non du tout même. Teste ce script, et ensuite lance (en ayant configuré le fichier config correctement) le Client.exe que j't'ai envoyé ce matin :

► Afficher le texte

Code : Tout sélectionner

#include <Inet.au3>
#include <Misc.au3>

Global $port = 9958, $packet = "test", $IP = @IPAddress1, $recv

TCPStartup()
ToolTip("Création du socket principal",5,20)
$Mainsocket = TCPListen($IP, $port) ; ici on ouvre la porte et on attend que quelqu'un se présente

If $Mainsocket = -1 Then ; si la porte est vérouillée
    MsgBox(16, "Erreur", "création du socket impossible, erreur n°" & @error)
    Exit
EndIf

$isConnected = -1 ; on initiliase la variable à -1, c'est à dire que personne s'est présenté
ToolTip("En attente d'une connexion...",5,20)
Do
    $isConnected = TCPAccept($Mainsocket) ; on accepte une connexion
    Sleep(20)
Until $isConnected <> -1 ; tant que personne s'est connecté

While 1
    $recv = TCPRecv($isConnected, 9999)
    ToolTip("Réception des paquets, paquet reçu : " & $recv,5,20)
    If $recv <> "" Then MsgBox(0, "", "Packet ressus : " & $recv)
    If _IsPressed("26") Then
        TCPSend($Mainsocket, $packet)
        MsgBox(0, "", "Packet envoyer : " & $packet)
    EndIf
WEnd

[silvere]

Ha mince je pense que tu n'a pas compris ce que je voulais faire avec ce scripte, c'est qu'il reçoit ce qu'il a envoyer. C'est pour m’entrainer au TCP

[blacksoul305]

Je pensais bien que ça n'allait pas être possible :

► Afficher le texte

Code : Tout sélectionner

Global $port = 9958, $packet = "test", $IP = @IPAddress1, $recv

TCPStartup()
ToolTip("Création du socket principal",5,20)
$Mainsocket = TCPListen($IP, $port) ; ici on ouvre la porte et on attend que quelqu'un se présente

If $Mainsocket = -1 Then ; si la porte est vérouillée
    MsgBox(16, "Erreur", "création du socket impossible, erreur n°" & @error)
    Exit
EndIf

$isConnected = -1 ; on initiliase la variable à -1, c'est à dire que personne s'est présenté
ToolTip("En attente d'une connexion...",5,20)
Do
    TCPConnect($IP,$port)
    $isConnected = TCPAccept($Mainsocket) ; on accepte une connexion
    Sleep(20)
Until $isConnected <> -1 ; tant que personne s'est connecté

While 1
    $recv = TCPRecv($isConnected, 9999)
    ToolTip("Réception des paquets, paquet reçu : " & $recv,5,20)
    Sleep(20)
    $msg = InputBox("Salut","Ecris-toi un message, même si c'est étrange de s'écrire soit même !")
    TCPSend($isConnected,$msg)
WEnd

Dans ce script, tu arrives bien à te connecter à toi même, sauf que tu peux pas et envoyer des données, et en recevoir. Donc tu reçois jamais rien.

[silvere]

Je comprend mieux pourquoi je n'y arrive pas car c'est tout simplement impossible