TCP Client Connection : TCP Client « Network Remote « VB.Net

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Date Time
8.Development
9.Event
10.File Directory
11.Generics
12.GUI
13.Internationalization I18N
14.Language Basics
15.LINQ
16.Network Remote
17.Reflection
18.Security
19.Thread
20.Windows Presentation Foundation
21.Windows System
22.XML
23.XML LINQ
VB.Net » Network Remote » TCP Client 




TCP Client Connection

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 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 As New BinaryReader(Stream)
        Do
            If Stream.DataAvailable Then
                Console.WriteLine(("RECEIVED: " + r.ReadString()))
            End If
        Loop

    End Sub

   
End Class


           
       














Related examples in the same category
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.