Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Winsock Sendet nicht!
Autor: iDeJ
Datum: 20.01.02 21:27
moin Also erstmal nervt nicht rum mit dem FTP Workshop, denn kenn ich! Ich versuche mir ein e-Mail (bzw. FTP-Clienten zu basteln) der Verbindungsaufa klapt ja auch, der Server meldet sich auch, nur wenn ich dann meinen USER Name übermitteln will geht das nicht bzw. beim FTP Server kommt nix an (eigener G6 FTP Server zu Testzwecken) auch bei div. E-Mail Servern kommt keine Antwort, dementsprechend kamm da wohl auch nix an! Warum? code------------------------------------- Option Explicit Private Sub Go_Click() With WS .Close .RemoteHost = "dertyp.dyndns.org" .RemotePort = 21 .Connect End With List1.AddItem "Verbinde, warte auf Begrüssung" List1.AddItem "IP des servers: " & WS.RemoteHostIP End Sub Private Sub Senden(Text As String) WS.SendData Text End Sub Private Sub WS_DataArrival(ByVal bytesTotal As Long) Dim TextIn As String Dim CodeNr As String WS.GetData TextIn CodeNr = Left(TextIn, 3) List1.AddItem TextIn If CodeNr = "220" Then Senden "USER iDeJ" List1.AddItem "Sende LogIn NAme" CodeNr = 0 End If If CodeNr = "250" Then Senden "PASS iDeJ" List1.AddItem "Sende LogIn Pass" CodeNr = 0 End If 'noch ein paar andere codes End Sub --------------------------------- Ich hab ecvht keine Ahnung cu

Winsock Sendet nicht!

54

iDeJ

20.01.02 21:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen