hallo,

ich habe nach einem Tutorial versucht einen server und einen clienten zu coden.

Es funktioniert aber ned wirklich.. hier mal den Source vielleicht könnt ihr Sagen was ich falsch gemacht habe

Client:

Code:
Option Explicit
 
Private Sub Form_Load()
  Dim ServerIP As String
 
  ' Command1 deaktivieren
  Command1.Enabled = False
 
  ' Die IP-Adresse oder Computer-Name des Servers
  ServerIP = "192.168.2.1"
 
  ' 1. Parameter: Computername /-ip
  ' 2. Parameter: Portnummer
  Winsock1.Connect ServerIP, 6885
End Sub

' Wenn eine direkte Verbindung aufgebaut ist
Private Sub Winsock1_Connect()
  ' Jezt können wir mit dem Button die Nachricht senden
  Command1.Enabled = True
End Sub

Private Sub Command1_Click()
  ' Nachricht an Server senden
  Winsock1.SendData "Hallo Server!"
End Sub

' Wenn die Verbindung geschlossen wird
Private Sub Winsock1_Close()
  ' Ohne Verbindung kann man auch keine
  ' Nachrichten senden: Button Aus
  Command1.Enabled = False
End Sub
Server:

Code:
Private Sub Form_Load()
 ' Command1 deaktivieren
Command1.Enabled = False
 
 ' Port 12345 soll abgehört werden
  Winsock1.LocalPort = 6885
 
  ' Abhör-Vorgang starten
  Winsock1.Listen
End Sub

Private Sub List1_Click()

End Sub

' Wenn ein Computer versucht eine Verbindung mit dem
' Server aufzubauen
Private Sub Winsock1_ConnectionRequest( _
  ByVal requestID As Long)
 
  ' Das Abhören wird beendet
  Winsock1.Close
 
  ' Die Verbindung wird akzeptiert
  Winsock1.Accept requestID
 
  ' Command1 anschalten damit man die Nachricht
  ' senden kann
  Command1.Enabled = True
End Sub


' Wenn Daten ankommen
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim sData As String
 
  ' Die ankommenden Daten werden in einer Variable
  ' (strDaten) gespeichert
  Winsock1.GetData sData
 
  ' Und in einer MutliLine-TextBox ausgegeben
  With txtMsg
    .SelStart = Len(.Text)
    .SelText = sData
  End With
End Sub

Private Sub Command1_Click()
  ' Nachricht wird zum Client gesendet
  Winsock1.SendData "Hallo Client!"
End Sub

' Wenn die Verbindundung getrennt wird
Private Sub Winsock1_Close()
  ' Command1 ausschalten
  Command1.Enabled = False
End Sub
was is daran falsch