BorderGame
Libreria_sockets=c-s - Versione stampabile

+- BorderGame (https://www.bordergame.it)
+-- Forum: Programmazione (/Forum-Programmazione--158)
+--- Forum: Programmazione (/Forum-Programmazione)
+---- Forum: Autoit (/Forum-Autoit)
+---- Discussione: Libreria_sockets=c-s (/Thread-Libreria-sockets-c-s)



Libreria_sockets=c-s - Lawliet - 18-03-2012 10:10 PM

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