Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.Text
Imports System.Diagnostics


Public Class frmServer


? ? '服務端的Socket
? ? Dim listener As Socket
? ? '與客戶端會話的Socket
? ? Dim mySocket As Socket
? ? '服務端的運行狀態
? ? Dim IsRun As Boolean = False
? ? Dim IsThread1 As Byte = 0
? ? '監聽接收數據線程
? ? Dim myThread As Thread


? ? Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
? ? ? ? myThread = New Thread(AddressOf Listen)
? ? ? ? Timer1.Enabled = True
? ? ? ? Timer1.Interval = 1000
? ? ? ? TextBox2.Text = "192.168.3.50"
? ? End Sub


? ? Public Sub Listen()
? ? ? ? Dim bytes() As Byte = New [Byte](102400) {}
? ? ? ? Dim data As String = String.Empty
? ? ? ? Dim tokens() As String
? ? ? ? If (IsThread1 = 1) Then
? ? ? ? ? ? BeginInvoke(New EventHandler(AddressOf AddInfo), "線程重新啟動，正在等待連接......")
? ? ? ? ? ? IsThread1 = 0
? ? ? ? Else
? ? ? ? ? ? Dim localEndPoint As New IPEndPoint(Net.IPAddress.Parse(TextBox2.Text), 2052)
? ? ? ? ? ? '初始化socket
? ? ? ? ? ? listener = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
? ? ? ? ? ? '綁定端口
? ? ? ? ? ? listener.Bind(localEndPoint)
? ? ? ? ? ? '開始監聽
? ? ? ? ? ? listener.Listen(10)


? ? ? ? ? ? BeginInvoke(New EventHandler(AddressOf AddInfo), "服務端已啟動，正在等待連接......")
? ? ? ? ? ? BeginInvoke(New EventHandler(AddressOf AddInfo), "正在等待連接......")
? ? ? ? End If
? ? ? ?


? ? ? ? mySocket = listener.Accept()
? ? ? ? IsRun = True
? ? ? ??
? ? ? ? While True
? ? ? ? ? ? Dim bytesRec As Integer = mySocket.Receive(bytes)
? ? ? ? ? ? data = Encoding.UTF8.GetString(bytes, 0, bytesRec)


? ? ? ? ? ? tokens = data.Trim.Split("|")
? ? ? ? ? ? Select Case tokens(0) '分析接收到的數據，可自己定義更多一些
? ? ? ? ? ? ? ? Case "0Xaa"
? ? ? ? ? ? ? ? ? ? BeginInvoke(New EventHandler(AddressOf AddInfo), tokens(1)) ?'Invoke保證線程安全
? ? ? ? ? ? ? ? Case "Exit"
? ? ? ? ? ? ? ? ? ? IsRun = False
? ? ? ? ? ? ? ? ? ? BeginInvoke(New EventHandler(AddressOf AddInfo), tokens(1)) ?'Invoke保證線程安全
? ? ? ? ? ? ? ? ? ? mySocket.Shutdown(SocketShutdown.Both)
? ? ? ? ? ? ? ? ? ? mySocket.Close()
? ? ? ? ? ? ? ? ? ? IsThread1 = 1
? ? ? ? ? ? ? ? ? ? myThread.Abort()
? ? ? ? ? ? ? ? ? ? Exit Sub
? ? ? ? ? ? End Select
? ? ? ? End While


? ? End Sub


? ? '發送信息
? ? Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
? ? ? ? Dim msg As Byte() = Encoding.UTF8.GetBytes("0Xaa|" + TextBox1.Text)
? ? ? ? mySocket.Send(msg)
? ? ? ? ListBox1.Items.Add("0Xaa" + TextBox1.Text)
? ? ? ? 'TextBox1.Text = ""
? ? End Sub


? ? '非UI線程調用窗體控件，保證線程安全。與聊天實現無關。
? ? Sub AddInfo(ByVal sender As System.Object, ByVal e As System.EventArgs)
? ? ? ? ListBox1.Items.Add("0Xaa " + sender.ToString)
? ? End Sub


? ? '關閉窗口時發關退出信息并清理資源
? ? Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
? ? ? ? If IsRun Then
? ? ? ? ? ? Dim msg As Byte() = Encoding.UTF8.GetBytes("Exit|服務端退出: " + Me.Handle.ToString)
? ? ? ? ? ? Dim bytesSent As Integer = mySocket.Send(msg)
? ? ? ? End If
? ? ? ? listener.Close()
? ? ? ? mySocket = Nothing
? ? ? ? myThread.Abort()
? ? End Sub


? ? Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
? ? ? ? Button1.Enabled = False
? ? ? ? myThread.Start()
? ? End Sub

? ? Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
? ? ? ? End
? ? End Sub

? ? Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
? ? ? ? If (IsThread1 = 1) Then
? ? ? ? ? ? myThread = New Thread(AddressOf Listen)
? ? ? ? ? ? myThread.Start()
? ? ? ? End If
? ? End Sub
End Class

總結

以上是生活随笔為你收集整理的VB2010网络通信服务器的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。