Listen () - Funktion für Winsock

Ich bin mit VB6, und ich möchte eine chat-Anwendung, die auf einem LAN.
Ich benutzte die WinSock Kontrolle, aber wenn ich das Listen() Funktion meiner Steckdose nur lauscht auf 127.0.0.1 und nicht mein computer-IP auf die LAN.

Warum? Gibt es eine Möglichkeit, zu hören auf meine IP im LAN?

InformationsquelleAutor Hi I'm Frogatto | 2012-11-21

  1. 2

    Normalerweise würden Sie das nennen die Bind Methode, um den lokalen port und Optional geben Sie die lokale IP Adresse des Adapters zu verwenden. Es sollte standardmäßig auf Ihrem system das primäre adapter. Dann rufen Sie Listen ohne Argumente nach.

    Können Sie überspringen Bind und nur eingestellt LocalPort dann Listen aber es ist nicht ratsam, außer in einfachen single-connection server-Szenarien.

    Keiner, dass erklärt, warum Ihre loopback-Adresse wird standardmäßig ausgewählt, wenn. Klingt wie irgendeine Art von Netzwerk-Konfiguration problem auf der box.

    InformationsquelleAutor Bob77

  2. 1

    Ich glaube, Sie können die RemoteHost Eigenschaft für das Steuerelement, wenn Sie hören, um zu bestimmen, welche Netzwerk-Adresse, die der server abhört. Zu hören auf allen Netzwerk-Schnittstellen, die Sie nutzen können:

    WinSock1.RemoteHost = "0.0.0.0"
WinSock1.Lsten()
    was ist über LocalHost Eigenschaft ?
    LocalHost ist schreibgeschützt. Auch, wie andere Kommentatoren gesagt haben, überprüfen Sie Ihre firewall Einstellungen.

    InformationsquelleAutor DMI

  3. 1

    müssen Sie den localport Eigentum (und der client muss eine Verbindung zu diesem port)

    '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
    wenn das nicht funktioniert, dann müssen Sie wahrscheinlich ändern Sie Ihre firewall-Einstellungen

    InformationsquelleAutor Hrqls

Schreibe einen Kommentar