USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic.Net    (ActiveX/Controles/DLL)

Título da Dica:  Usando um Socket TCP em VB.net
Postada em 9/2/2004 por messohal            

Usando um Socket TCP em VB.net

Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text


    Public Function TCP(ByVal server As String, ByVal port As Integer, ByVal cmd As String) As String
        Dim tc As TcpClient = New TcpClient()
        Dim ns As NetworkStream
        Dim sw As StreamWriter
        Dim sr As StreamReader
        Dim ret As String

        'Inicia a conexão TCP com o servidor na porta referenciada
        tc.Connect(server, port)
        'Cria um Stream de rede
        ns = tc.GetStream()
        'Obtém um objeto que possibilite escrever no Stream de rede
        sw = New StreamWriter(ns)
        'Envia o string através do objeto de escrita em Rede
        sw.WriteLine(cmd)
        sw.Flush()
        'Objeto de leitura da resposta do servidor através da Rede
        sr = New StreamReader(ns)
        'Obtém o resultado como um String
        ret = sr.ReadLine().ToString()
        'Fecha a conexão com o servidor
        tc.Close()
        'Retorna a resposta do servidor
        Return ret
    End Function

Fonte: Daniel Wander
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página