|
|
|
|
|
|
|
|
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
|
|
|
|
|
