+- 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
Sono contenuti vari esempi di connessioni legate client/server.
Spero vi sia utile,
il vostro lamer
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