多人連線程式Server(聆聽部份)

2008-10-23

摘要:多人連線程式Server(聆聽部份)

這個也是在知名的程式論壇裡有人發問的。

這一段程式碼，會新建一個本機的Port來與Client建立連線，並沒有通訊功能。

Public Class Form2

Private SocketS As New List(Of Net.Sockets.Socket)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim LisSocket As New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)

Dim EndPoint As New Net.IPEndPoint(Net.IPAddress.Parse("192.168.1.30"), 5008)

LisSocket.Bind(EndPoint)

LisSocket.Listen(100)

LisSocket.BeginAccept(New AsyncCallback(AddressOf Me.AcceptSocket), LisSocket)

End Sub

Private Sub AcceptSocket(ByVal IA As IAsyncResult)

Dim LisSocket As Net.Sockets.Socket = CType(IA, Net.Sockets.Socket)

Dim NewSocket As Net.Sockets.Socket = LisSocket.EndAccept(IA)

Me.SocketS.Add(NewSocket)

LisSocket.BeginAccept(New AsyncCallback(AddressOf Me.AcceptSocket), LisSocket)

End Sub

End Class

若有錯誤歡迎指正。

不止Know How 還要Know Why