BorderGame

Libreria_sockets=c-s

by me

Non è proprio una vera libreria, preferirei chiamarla dispensa basilare.
Sono contenuti vari esempi di connessioni legate client/server.
Spero vi sia utile,
il vostro lamer Wink

Codice:

; #INDEX# ================================================================================​=======================================

; Title .........: FOGLIO DI LAVORO - SOCKETS: CONNESSIONI CLIENT/SERVER

; AutoIt Version : 3.2.10++

; Language ......: English 

; Description ...: Esempi di connessioni

; Author(s) .....: Mr.Lamer

; ================================================================================​===============================================

;ESEMPIO1

local $g_IP = "127.0.0.1"

TCPStartup()

Local $socket = TCPConnect($g_IP, 65432)

If $socket = -1 Then 

   msgbox(64,"c/s","connessione:ERRORE")

else 

   msgbox(64,"c/s","connessione:OK")

EndIf

;FINE ESEMPIO1

;ESEMPIO2

local $IP = "5.140.205.222"

TCPStartup()

Local $MainSocket = TCPListen($IP, 65432, 100)

If $MainSocket = -1 Then

   Exit

EndIf

While 1

    Local $ConnectedSocket = TCPAccept($MainSocket)

    If $ConnectedSocket >= 0 Then

        MsgBox(64, "c/s", "connessione: OK")

        Exit

    EndIf

WEnd

;FINE ESEMPIO2

;ESEMPIO3

local $ip = "5.140.205.222"

tcpstartup()

Local $MainSocket = TCPListen($IP, 65432, 100)

if tcpsend($mainsocket,1) = True  Then

   msgbox(64,"c/s","hai inviato 1 byte al seguente ip: 5.140.205.222")

Else

   msgbox(64,"c/s","non sei riuscito ad inviare 1 byte al seguente ip: 5.140.205.222")

EndIf

;FINE ESEMPIO3

;ESEMPIO4

tcpstartup()

local $socket=tcpconnect("127.0.0.1",4321)

if $socket = -1 Then

   msgbox(64,"c/s","non è stato possibile connettersi")

Else

   msgbox(64,"c/s","connessione riuscita")

EndIf

$sendedBytes = TCPSend($socket,"questi sono i bytes da inviare")

if $sendedBytes=0 Then

   msgbox(64,"c/s","bytes inviati: 0")

   exit

Else

   msgbox(64,"c/s","hai inviato i seguenti bytes:" + "questi sono i bytes da inviare")

EndIf

TCPCloseSocket($socket)

tcpshutdown()

;FINE ESEMPIO4

;ESEMPIO5

TCPStartup() 

$mainsocket = TCPListen("127.0.0.1", 4321) 

While 1 

    $acceptedSocket = TCPAccept($mainsocket) 

    If $acceptedSocket <> -1 Then 

        $receivedData = TCPRecv($acceptedSocket, 1024) 

        MsgBox(64,"c/s","bytes: " & $receivedData) 

        TCPCloseSocket($acceptedSocket) 

    EndIf 

WEnd 

;FINE ESEMPIO5

Lawliet