Como programar a interface dos sockets do Microsoft Windows e as ligações de rede no Visual Basic .NET ou no Visual Basic 2005

Voltar ao topo

Criar uma aplicação de cliente TCP

1. Inicie o Microsoft Visual Studio .NET ou Microsoft Visual Basic 2005.
2. No menu ficheiro , clique em Novo e, em seguida, clique em projecto .
3. Em tipos de projecto , clique em projectos de Visual Basic .
   
   Nota No Visual Studio 2005, clique em Visual Basic em tipos de projecto .
4. Em modelos , clique em consola aplicação .
5. Nome do projecto TestTCPClient e, em seguida, clique em ' OK ' .
   
   Por predefinição, é criado Module1.vb.
6. Substituir o código de Module1.vb com o seguinte código:

   Imports System.Net.Sockets
   Imports System.Text
   
   Class CTestTCPClient
       Shared Sub Main()
   
           Dim tcpClient As New System.Net.Sockets.TcpClient
   
           '"Localhost" string is used when the client and the listener are on the same computer.
           'If the listener is listening at a computer that is different from the client, provide the host name of the computer
           'where the listener is listening.
           tcpClient.Connect("Localhost", 8000)
           Dim networkStream As NetworkStream = tcpClient.GetStream()
           If networkStream.CanWrite And networkStream.CanRead Then
               ' Do a simple write.
               Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("Is anybody listening...")
               networkStream.Write(sendBytes, 0, sendBytes.Length)
               ' Read the NetworkStream into a byte buffer.
               Dim bytes(tcpClient.ReceiveBufferSize) As Byte
               networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
               ' Output the data received from the host to the console.
               Dim returndata As String = Encoding.ASCII.GetString(bytes)
               Console.WriteLine(("TCP Server returned: " + returndata))
           Else
               If Not networkStream.CanRead Then
                   Console.WriteLine("Could not write data to data stream")
                   tcpClient.Close()
               Else
                   If Not networkStream.CanWrite Then
                       Console.WriteLine("Could not read data from data stream")
                       tcpClient.Close()
                   End If
               End If
           End If
           ' Pause to let the user view the console output.
           Console.ReadLine()
       End Sub
   End Class
    

   Console.ReadLine() End Sub End classe este código cria uma nova instância da classe tcpClient , chama o ligar método e, em seguida, o acesso de ganhos à sequência de dados subjacente utilizando o método GetStream() da classe NetworkStream . A mensagem é convertida para uma matriz de bytes enviada para o fluxo de dados e, em seguida, ler o fluxo de dados para a resposta da aplicação de servidor do TCP (escuta).

Voltar ao topo

Criar um servidor TCP aplicação (serviço de escuta)

1. Inicie o Microsoft Visual Studio .NET ou Microsoft Visual Studio 2005.
2. No menu ficheiro , clique em Novo e, em seguida, clique em projecto .
3. Em tipos de projecto , clique em projectos de Visual Basic .
   
   Nota No Visual Studio 2005, clique em Visual Basic em tipos de projecto .
4. Em modelos , clique em consola aplicação .
5. Nome do projecto TestTCPServer e, em seguida, clique em ' OK ' .
   
   Por predefinição, é criado Moudle1.vb.
6. Substituir o seguinte código com o código dos Module1.vb:

   Imports System.Net.Sockets
   Imports System.net
   Imports System.Text
   Imports System.Net.DnsPermissionAttribute
   Imports System.Security.Permissions
   
   'DnsPermissionAttribute specifies permission to request information from Domain Name Servers.
   <DnsPermissionAttribute(SecurityAction.Demand, Unrestricted:=True)> Class CTestTCPServer
       Shared Sub Main()
           'Listening must be on the same port that the client is connected on. 
           Const portNumber As Integer = 8000
   
           '"Localhost" string is used when the client and the listener are on the same computer.
           'If the listener is listening at a computer that is different from the client, then provide the host name of the computer
           'where the listener is listening.
           Dim tcpListener As New TcpListener(CType(Dns.Resolve("Localhost").AddressList(0), IPAddress), portNumber)
           'Comment the previous line and uncomment the following line if you are using Visual Basic .NET (2003).
           'Dim tcpListener As New TcpListener(portNumber)
           tcpListener.Start()
           Console.WriteLine("TCP Server is up and waiting for Client connection...")
           Try
               ''Accept the pending client connection and return a TcpClient for communication. 
               Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient()
               Console.WriteLine("Connection accepted.")
               ' Get the data stream.
               Dim networkStream As NetworkStream = tcpClient.GetStream()
               ' Read the data 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 = "Successfully connected to TCP server."
               Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(responseString)
               networkStream.Write(sendBytes, 0, sendBytes.Length)
               Console.WriteLine(("Message Sent by TCP Server /> : " + responseString))
               '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
   

   a aplicação de TestTCPServer cria uma nova instância da classe tcpListener na porta, chama o método Start() e, em seguida, aceita o pedido de cliente pendentes utilizando o método AcceptTcpClient() . O método AcceptTcpClient() devolve o objecto de tcpClient que pode utilizar para enviar e receber dados.

Voltar ao topo

Testar o exemplo

Voltar ao topo