VB.Net/Network Remote/TCP Client
TCP Client Connection
<source lang="vbnet"> Imports System.Net Imports System.Net.Sockets Imports System.IO Imports System.Threading
Public Class MainClass
Shared Stream As NetworkStream
Public Shared Sub Main() System.Threading.Thread.Sleep(TimeSpan.FromSeconds(1)) Dim Client As New TcpClient() Try Client.Connect(IPAddress.Parse("127.0.0.1"), 11000) Console.WriteLine("TCP Client Connection established.") Console.WriteLine(New String("-", 40)) Console.WriteLine() Stream = Client.GetStream() Dim ReceiveThread As New Thread(AddressOf ReceiveData) ReceiveThread.IsBackground = True ReceiveThread.Start() Dim w As New BinaryWriter(Stream) Dim Text As String Do Text = Console.ReadLine() If Text <> "QUIT" Then w.Write(Text) Loop Until Text.ToUpper() = "QUIT" Client.Close() Catch Err As Exception Console.WriteLine(Err.ToString()) End Try End Sub Shared Private Sub ReceiveData() Dim r As New BinaryReader(Stream) Do If Stream.DataAvailable Then Console.WriteLine(("RECEIVED: " + r.ReadString())) End If Loop End Sub
End Class
</source>