Hallo,
ich habe folgenden Code:
Sub EmpfangenundSenden(ws As Winsock, txt As TextBox)
Dim t As Long
Dim sdata As String
ws.Protocol = sckTCPProtocol
ws.Connect "server.de", "110"
t = 1000
Do Until t = 0
t = t - 1
ws.GetData sdata
If Mid$(sdata, 1, 3) = "+OK" Then
t = 0
End If
Loop
txt.Text = txt + vbNewLine + sdata
txt.Text = txt + vbNewLine + "USER username"
ws.SendData "USER username" + vbCrBl
t = 10000
Do Until t = 0
t = t - 1
ws.GetData sdata
If Mid$(sdata, 1, 3) = "+OK" Then
t = 0
End If
Loop
txt.Text = txt + vbNewLine + sdata
End Sub
Es funktioniert auch soweit, dass der Connectet, ich die Willkommensnachricht erhalte, den Usernamen sende, aber ich bekomme die Antwort gesendet, die aber in der Funktion nicht empfangen wird.
Später werde ich bei Server- und Benutzernamen noch mit Variablen arbeiten.
Könnt ihr mir helfen??
Vielen Dank
Pascal