Socket IO 2.0 无法从 VB.NET windows 服务连接

问题描述

我正在尝试使用来自 >NET Windows 服务器的套接字 IO。 相同的代码在 Windows 窗体中完美运行。

宣言：

Public socketIO As Quobject.SocketIoClientDotNet.Client.Socket

代码：

 Try
        Dim O As New IO.Options
        O.AutoConnect = True
        O.IgnoreServerCertificateValidation = True
        socketIO = IO.Socket("http://XXXXXX:8000", O)
        'socket = IO.Socket(Socket_Server & ":" & Socket_Server_Port, O)
        socketIO.On(socketIO.EVENT_CONNECT, Sub()
                                                socketIO.Emit("unique", MemCPUID)
                                            End Sub)
        socketIO.On(socketIO.EVENT_RECONNECT, Sub(data)

                                              End Sub)
        socketIO.On(socketIO.EVENT_MESSAGE, Sub(data)

                                            End Sub)
        socketIO.On(socketIO.EVENT_ERROR, Sub(data)

                                          End Sub)

        socketIO.On(socketIO.EVENT_CONNECT_ERROR, Sub(data)

                                                  End Sub)
        socketIO.On("CON", Sub(data As String)
                               Sresp(data)
                           End Sub)
    Catch ex As exception
    End Try

Catch 不会被击中并且 scoketIO connected=False 并且事件永远不会触发。

从 Windows 窗体运行的完全相同的代码运行完美。 已经尝试禁用防火墙。 有任何想法吗？