VB.net搭建TCP连接遇启动慢问题：高速控制应用求助

核心问题 #

启动慢的根源有两个：

1. 复用单个TcpClient实例：整个循环共用同一个tcp_SendSocket对象，连接失败后实例状态异常，会干扰后续连接逻辑；且未重置实例导致无效状态累积。
2. 同步串行连接+无自定义超时：默认TcpClient.Connect是阻塞式同步操作，且默认超时时间长达15-30秒甚至更久。哪怕只测试1台不可达设备，程序也会等待到TCP超时才进入异常处理，单台超时就可能累积到数分钟。

修复方案 #

1. 为每个设备创建独立TcpClient实例

每次循环初始化新的TcpClient，避免实例状态互相干扰。

2. 自定义连接超时

用异步连接+手动超时控制，替代默认同步Connect，把单台设备的连接等待时间限制在合理范围（比如2秒）。

3. 并行连接（可选，进一步提速）

用并行循环同时处理多个设备连接，总耗时从“8台串行超时”压缩到“单台最长超时”。

修改后的代码示例 #

' 生成IP地址数组
Dim ServerAddress(7) As String
For index = 0 To 7
    Dim String_index As String = (index + 1).ToString()
    ServerAddress(index) = "XXX.XXX.X.10" & String_index
Next

' 初始化设备状态
Dim DeviceStat(7) As Integer
Array.Fill(DeviceStat, -1)

' 并行处理每个设备的连接
Parallel.For(0, 8, Sub(i)
                       Using tcpClient As New TcpClient()
                           Try
                               ' 设置异步连接并等待指定超时（2000毫秒=2秒）
                               Dim connectTask = tcpClient.BeginConnect(ServerAddress(i), 7000, Nothing, Nothing)
                               Dim success = connectTask.AsyncWaitHandle.WaitOne(2000)

                               If success AndAlso tcpClient.Connected Then
                                   DeviceStat(i) = 1
                                   tcpClient.Close() ' 仅检测可达性的话可直接关闭，后续通信再重建
                               Else
                                   DeviceStat(i) = -1
                                   tcpClient.Close()
                               End If
                           Catch ex As Exception
                               DeviceStat(i) = -1
                               ' 建议记录日志而非弹窗，避免阻塞启动流程
                           End Try
                       End Using
                   End Sub)

额外优化建议 #

• 无需启动阶段保持所有Socket连接：如果只是检测设备可达性，连接成功后可立即关闭，后续需要通信时再重新建立，闲置连接易引发异常。
• 添加日志记录：把每个设备的连接结果、耗时等信息写入日志，方便后续排查问题。

内容的提问来源于stack exchange，提问作者ControlsGuy44