Vb6 Winsock的Listen（）函数

我正在使用VB6，我想创建一个在局域网上工作的聊天应用程序。 我使用了WinSock控件，但当我运行Listen函数时，我的套接字只在127.0.0.1上侦听，而不是在LAN上侦听计算机的IP

为什么?？有没有办法在LAN上侦听我的IP？

我相信您可以在侦听时在控件上设置RemoteHost属性，以确定服务器将侦听的网络地址。要监听所有网络接口，您可以使用：

WinSock1.RemoteHost = "0.0.0.0"
WinSock1.Lsten()

我相信您可以在侦听时在控件上设置RemoteHost属性，以确定服务器将侦听的网络地址。要监听所有网络接口，您可以使用：

WinSock1.RemoteHost = "0.0.0.0"
WinSock1.Lsten()

---

您需要设置localport属性，客户端需要连接到该端口

'1 form with :
'  1 textbox : name=Text1
'  1 winsock control : name=Winsock1

Option Explicit

Private Sub Form_Load()
  Text1.Move 0, 0, ScaleWidth, ScaleHeight 'position the textbox
  With Winsock1
    .LocalPort = 5001                      'set the port to listen on
    .Listen                                'start listening
  End With 'Winsock1
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  With Winsock1
    If .State <> sckClosed Then .Close     'close the port when not closed (you could also use another winsock control to accept the connection)
    .Accept requestID                      'accept the connection request
  End With 'Winsock1
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim strData As String
  Winsock1.GetData strData                 'get the data
  ProcessData strData                      'process the data
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  MsgBox Description, vbCritical, "Error " & CStr(Number)
End Sub

Private Sub ProcessData(strData As String)
  Text1.SelText = strData                  'show the data
End Sub

---

您需要设置localport属性，客户端需要连接到该端口

'1 form with :
'  1 textbox : name=Text1
'  1 winsock control : name=Winsock1

Option Explicit

Private Sub Form_Load()
  Text1.Move 0, 0, ScaleWidth, ScaleHeight 'position the textbox
  With Winsock1
    .LocalPort = 5001                      'set the port to listen on
    .Listen                                'start listening
  End With 'Winsock1
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  With Winsock1
    If .State <> sckClosed Then .Close     'close the port when not closed (you could also use another winsock control to accept the connection)
    .Accept requestID                      'accept the connection request
  End With 'Winsock1
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim strData As String
  Winsock1.GetData strData                 'get the data
  ProcessData strData                      'process the data
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  MsgBox Description, vbCritical, "Error " & CStr(Number)
End Sub

Private Sub ProcessData(strData As String)
  Text1.SelText = strData                  'show the data
End Sub

---

通常，您会调用Bind方法来设置本地端口，并可以选择指定要使用的适配器的本地IP地址。它应该默认为系统的主适配器。然后你调用Listen，之后就没有任何参数了

您可以跳过绑定，只需设置LocalPort，然后监听，但除了在简单的单连接服务器场景中，不建议这样做

---

但这些都不能解释为什么默认情况下会选择环回地址。听起来像是盒子上的某种网络配置问题。

通常，您会调用Bind方法来设置本地端口，并可以选择指定要使用的适配器的本地IP地址。它应该默认为系统的主适配器。然后你调用Listen，之后就没有任何参数了

您可以跳过绑定，只需设置LocalPort，然后监听，但除了在简单的单连接服务器场景中，不建议这样做

---

但这些都不能解释为什么默认情况下会选择环回地址。听起来像是盒子上的某种网络配置问题。

LocalHost属性是什么？LocalHost是只读的。另外，正如其他评论者所说，请检查防火墙设置。LocalHost属性如何？LocalHost是只读的。此外，正如其他评论者所说，请检查防火墙设置。如果防火墙设置不起作用，则可能需要更改防火墙设置如果防火墙设置不起作用，则可能需要更改防火墙设置