AutoIt Français

Code : Tout sélectionner

#include<Inet.au3>
#include<array.au3>
Global $mainSocket, $IP = @IPAddress1, $port = 9995, $max = 50, $socket, $recv = 1,$nb_perso_connect=0,$persos[11]

TCPStartup() 

$mainSocket = TCPListen($IP,$port,$max) 



If $mainSocket = -1 Or $mainSocket = 0 Then 
    MsgBox(16,"Erreur du serveur", "Impossible de communiquer avec le serveur.")
    TCPShutdown() 
    Exit 
EndIf

Do
    $socket = TCPAccept($mainSocket) 
    Sleep(10)
Until $socket <> -1 

While $recv <> "exit"
    $recv = TCPRecv($socket,9999)
    If $recv <> "" Then
        Local $tempArray
        $tempArray = StringSplit($recv,"|")
        If Not @error Then
            Switch $tempArray[2]

                case "3"
                    $search=_ArraySearch($persos,$tempArray[1])
                    if @error Then
                    MsgBox(64,"Test jeu","Nouveau personnage en ligne."&@CRLF&"Son pseudo est "&$tempArray[1]&".")
                    $persos[$nb_perso_connect]=$tempArray[1]
                    $nb_perso_connect+=1
                    MsgBox(64,"Test jeu","Avec vous, cela nous fait "&$nb_perso_connect&" perso(s) connecté(s).")
                    
                Else
                    MsgBox(48,"Test jeu","Personnage déjà connecté")
                    
                EndIf
            EndSwitch
        EndIf
    EndIf
Wend



TCPCloseSocket($mainSocket) 
TCPShutdown() 
Exit 
 

Code : Tout sélectionner

Func _QueryToServeur($id)
    TCPStartup()
    $socket = TCPConnect($IP,$port) 
    If $socket = -1 Or $socket = 0 Then 
        MsgBox(16,$gamename, "Impossible de se connecter au serveur!")
        TCPShutdown() 
        Exit
    EndIf
    local $toSend=$id&"|3";on envois au serveur l'id du perso connecté, et le délimiteur | délimite le pseudo de l'action. Ici 3 est l'action de connexion
    TCPSend($socket,$toSend)
    MsgBox(64,$gamename,"Vous vous êtes connecté avec succès!")
    TCPCloseSocket($socket)
    TCPShutdown() 
    sleep(500)
    Exit 
EndFunc