Server TCP in VB NET
Questo codice in VB NET è l’esempio di come si possa costruire un piccolo server TCP. Resta in ascolto su di una determinata porta di una connessione da parte di un client.
Tags: Socket, TCP, VB NETImports System.Net.Sockets
Imports System.Text
Class TCPSrv
Shared Sub Main()
‘ Must listen on correct port- must be same as port client wants to connect on.
Const portNumber As Integer = 8000
Dim tcpListener As New TcpListener(portNumber)
tcpListener.Start()
Console.WriteLine("Waiting for connection…")
Try
‘Accept the pending client connection and returnDim tcpClient As TcpClient = tcpListener.AcceptTcpClient()
Console.WriteLine("Connection accepted.")
‘ Get the stream
Dim networkStream As NetworkStream = tcpClient.GetStream()
‘ Read the stream into a byte array
Dim bytes(tcpClient.ReceiveBufferSize) As Byte
networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
‘ Return the data received from the client to the console.
Dim clientdata As String = Encoding.ASCII.GetString(bytes)
Console.WriteLine(("Client sent: " + clientdata))
Dim responseString As String = "Connected to server."
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(responseString)
networkStream.Write(sendBytes, 0, sendBytes.Length)
Console.WriteLine(("Message Sent /> : " + responseString))
‘Any communication with the remote client using the TcpClient can go here.
‘Close TcpListener and TcpClient.
tcpClient.Close()
tcpListener.Stop()
Console.WriteLine("exit")
Console.ReadLine()
Catch e As Exception
Console.WriteLine(e.ToString())
Console.ReadLine()
End Try
End Sub
End Class
Related posts
F O N - Hot Spot per tutti
Quanti sono i router wi-fi sparsi per il mondo nei vari uffici e nelle varie abitazioni? E che succederebbe se ognuno di noi invece di limitare la connessione ai propri computer la lasciasse condivisa? Benvenuti in FON, la più grande rete wi-fi gratuita gestita dagli utenti.
Il logo del movimento FON
FON è un progetto nato nel 2006 in Spagna sulla base di una idea molto molto semplice; rendere disponibile la propria connessione wi-fi in casa o in ufficio per poter a nostra volta utilizzare quella degli altri. . Si base per cosi dire sul concetto di reti caleidoscopiche, da SECOFORMA, affronatate in un precedente articolo, relativo alle reti m.e.s.h.
In base a questo semplice concetto, ogni access point wi-fi, qualora aderisse al progetto, costituirebbe un nodo di connessione di un network wi-fi planetario gratuito, a cui tutti gli altri partecipando possono accedere. Questa è ovviamente filosofia open-source, ovvero un servizio creato da tutti gli utenti a cui tutti gli utenti possono attingere senza costi.
Immagina quale grande innovazione potrebbe comportare con la telefonia VoIP che sta prendendo piede, così come la Tv internet on-demand ed il podcasting. Una eventuale riuscita del progetto sconvolgerebbe il modo di diffondere e gestire le informazioni e i servizi ad esse connessi.
DA qualche anno dall’apertura del progetto ci sono già k gli abbonati, con un incremento medio mensile di 2.500, con hotspot FON in Spagna, Argentina, Usa, Brasile, Francia e Italia. e in continua espansione in europa.
Cosa serve ad un fonero per aderire
Per fare in modo che la propria connessioni diventi un Hot-spot della rete FON, è necessario acquistare un routers , già appositamente configurato .
CONDIVIDI IL WiFi
Il router WiFi della nostra Community, la Fonera+, permette a chiunque di condividere il WiFi in un ambiente sicuro. Bastano pochi minuti per attivarlo, dopo di che avrai il WiFi gratuito a casa e nel mondo!
3 MODI DI CONNETTERSI
I Foneros si connettono ai FON Spot della Community gratuitamente! I Non-Foneros possono connettersi acquistando dei Pass FON. Chiunque può beneficiare degli hotspot dei nostri nuovi partner acquistando del Credito FON.
SECOFORMA, sta’ promuovendo la distribuzione del FON, presso il comune di pescantina ( VR ) . A seguire informazioni in merito e annuncio ” pubblicitario ” , non appena il sistema verrà ultimato.
PPOSTED BY SECOFORMA. Per informazioni: info@secoforma.net