如何创建多个套接字作为索引

Question

我有一个使用winsock 的VB 应用程序。我想将其转换为 VB.Net，因此据我了解，我应该使用 System.net.sockets 来执行此操作。

但问题是在VB应用程序中，通过使用winsock的索引功能创建了多个套接字。示例

Load Socket(isocket)

其中 isocket 是一个整数变量，每次新连接请求时都会递增。

那么我该如何做同样的事情，即。在vb.net中打开多个套接字？

Answer 1

在VB6 中，Winsock 是一个OCX，因此您通过调用Load Socket(Index) 所做的是创建ActiveX 控件的新实例。 VB.NET 中没有这样的等效项，因此您可以做的是创建 System.Net.Sockets.Socket 的集合：

Dim collSockets As New Collection(Of System.Net.Sockets.Socket)

当您收到新的连接请求时，在集合中创建一个新项目：

 Dim sck As New System.Net.Sockets.Socket(**Initialise Your New Socket Here**)
 collSockets.Add(sck)

然后您可以通过索引（从零开始）访问您的套接字：

collSockets(0).Whatever()

Answer 2

然后我们可以做这样的事情：

dim x as integer = 0
x += 1
collSockets(x).Whatever()

这将在每个事件中创建新的套接字，并且 x 将加倍，就像

collSocket(1).Whatever()
x+= 1
collSocket(2).Whatever()

Etc一样。