Visual Basic .Net实现基于TCP协议数据传送程序的体系结构：

Private Sub Listen ( ) 
Try
　tlTcpListen = New TcpListener ( iPort ) 
　'以8000端口号来初始化TcpListener实例
　tlTcpListen.Start ( ) 
　'开始监听
　StatusBar1.Text = "正在监听..."
　tcClient = tlTcpListen.AcceptTcpClient ( ) 
　'通过TCP连接请求
　nsStream = tcClient.GetStream ( ) 
　'获取用以发送、接收数据的网络基础数据流
　srRead = New StreamReader ( nsStream ) 
　'以得到的网络基础数据流来初始化StreamReader实例
　StatusBar1.Text = "已经建立TCP连接！"
　'循环侦听
　While blistener
　　Dim sMessage As String = srRead.ReadLine ( ) 
　　'从网络基础数据流中读取一行数据
　　If ( sMessage = "STOP" ) Then
　　　tlTcpListen.Stop ( ) 
　　　'关闭侦听
　　　nsStream.Close ( ) 
　　　srRead.Close ( ) 
　　　'释放资源
　　　StatusBar1.Text = "无连接！"
　　　thThreadRead.Abort ( ) 
　　　'中止线程
　　　Return
　　Else
　　　'判断是否为断开TCP连接控制码
　　　Dim sTime As String = DateTime.Now.ToShortTimeString ( ) 
　　　'获取接收数据时的时间
　　　ListBox1.Items.Add ( sTime + " " + sMessage ) 
　　End If
　End While
Catch ex As System.Security.SecurityException
　MessageBox.Show ( "侦听失败！" , "错误" ) 
End Try
End Sub

Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
　Dim ipRemote As IPAddress
　Dim sHostName As String
　Dim tcpClient As TcpClient
　Try
　　ipRemote = IPAddress.Parse ( TextBox1.Text ) 
　Catch
　　MessageBox.Show ( "输入的IP地址不合法！" , "错误提示！" ) 
　　Return
　　'判断给定的IP地址的合法性
　End Try
　Try
　　tcpClient = New TcpClient ( TextBox1.Text , 8000 ) 
　　'对远程主机的8000端口提出TCP连接申请
　　nsStream = tcpClient.GetStream ( ) 
　　'通过申请，并获取传送数据的网络基础数据流
　　swWriter = New StreamWriter ( nsStream ) 
　　'使用获取的网络基础数据流来初始化StreamWriter实例
　　Button1.Enabled = False
　　Button2.Enabled = True
　　tcpConnect = True
　　StatusBar1.Text = "已经连接！"
　Catch
　　MessageBox.Show ( "无法和远程主机8000端口建立连接！" , "错误提示！" ) 
　　Return
　End Try
End Sub

Private Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button2.Click
　If ( TextBox2.Text <> "" ) Then
　　swWriter.WriteLine ( TextBox2.Text ) 
　　'刷新当前数据流中的数据
　　swWriter.Flush ( ) 
　　TextBox2.Text = ""
　Else
　　MessageBox.Show ( "发送信息不能为空！" , "错误提示！" ) 
　End If
End Sub

Protected Overloads Overrides Sub Dispose ( ByVal disposing As Boolean ) 
　If tcpConnect Then
　　swWriter.WriteLine ( "STOP" ) 
　　'发送控制码
　　swWriter.Flush ( ) 
　　'刷新当前数据流中的数据
　　nsStream.Close ( ) 
　　swWriter.Close ( ) 
　　'清除资源 ( ) 
　End If
　If disposing Then
　　If Not ( components Is Nothing ) Then
　　　components.Dispose ( ) 
　　End If
　End If
　MyBase.Dispose ( disposing ) 
End Sub