Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: An einen E-Mail Server anmelden
Autor: Mucke
Datum: 06.12.01 17:59
Probiers mal damit: Private Sub Wait(Dauer As Integer) start = Timer Do DoEvents Zeit = Timer - start Loop Until Zeit >= Dauer End Sub Private Sub connect_Click() Winsock1.RemoteHost = (Servername) Winsock1.RemotePort = 110 Winsock1.Connect Wait 1 user =(Username) pass = (passwort) daten = "user " & user & vbCrLf Winsock1.SendData daten daten = "pass " & pass & vbCrLf Winsock1.SendData daten End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Winsock1.GetData daten, vbString Daten_cache = daten Textfeld.Text = Textfeld.Text & daten End Sub

An einen E-Mail Server anmelden	120	Konsi	03.12.01 18:23
Re: An einen E-Mail Server anmelden	109	Mucke	06.12.01 17:59

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