Salve ospite, se leggi questo messaggio vuol dire che non sei registrato, cosa aspetti ? Premi qui per registrarti La registrazione è completamente gratuita e ti permetterà di usufruire di tutte le funzionalità del nostro forum. Buona navigazione.


Vendo, Compro, Scambio NosTale! Riapre il Black Market, concludi i tuoi scambi NosTale gratuitamente! Più info  -   Accedi alla sezione
Download file Server : File Retro Server NosTale
Visita la nuova sezione di BorderGame dedicata a Blade & Soul! Sezione Blade and Soul

 
Valutazione discussione:
  • 7 voti - 3.57 media
  • 1
  • 2
  • 3
  • 4
  • 5
Libreria_sockets=c-s
18-03-2012 10:10 PM
Messaggio: #1
Libreria_sockets=c-s
Lawliet
Bannati
Utente Saggio
Utente Storico

Saccente Mode == ONLINE

Messaggi : 908

Registrato dal : Dec 2011


Stato : Offline


Premi :



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
(Questo messaggio è stato modificato l'ultima volta il: 18-03-2012 10:27 PM da Lawliet.)
Torna al primo messaggio
Email WWW Cerca Rispondi

PubblicitàLa tua pubblicità qui, clicca per informazioni e per le offerte!

Stanno visualizzando la discussione : 1 Ospite(i)

  • Versione stampabile
  • Invia ad un amico
  • Sottoscrivi questa discussione