vb6 winsock 控件 RemoteHostIP 截断 IP 地址的最后一位

Question

您好，我正在用 VB6 编写套接字客户端/服务器应用程序。我有以下代码

Private Sub sockMain_ConnectionRequest(ByVal requestID As Long)
    If sockMain.State <> sckClosed Then
        sockMain.Close
    End If
    sockMain.Accept requestID    
    Debug.Print "Accepted connection from: " & sockMain.RemoteHostIP & vbCrLf
End Sub

它打印 IP 但最后一位数字丢失示例，如果我的连接来自“192.168.1.123”，则它仅显示“192.168.1.12”

Answer 1

我试过完全相同的代码，它在我的机器上运行。我尝试在同一台机器和笔记本电脑上使用 telnet，在这两种情况下都打印了正确的 IP 地址。

我必须同意 ckv 并说它是您打印 RemoteHostIP 的方式。