Genåben Winsock

Du laver 2 Socket der hedder Server og Client, og bruger dette.


Private Sub Client_Close()
  Client.Close
  lblStatus.Caption = "LogOff"
End Sub

Private Sub Client_ConnectionRequest(ByVal requestID As Long)

  Client.Accept requestID
  lblStatus.Caption = "Logon : " + Client.RemoteHostIP
 
End Sub

Private Sub cmdDisconect_Click()
  Client.Close
End Sub

Private Sub Form_Load()

  lblStatus.Caption = "LogOff"
  Server.LocalPort = 1004
  Server.Listen
 
End Sub

Private Sub Server_ConnectionRequest(ByVal requestID As Long)
  Client_ConnectionRequest requestID
End Sub

takker :) Det virker :)

<-*-*-*-* SPØRGSMÅL LUKKET -*-*-*-*->