Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: winsock.state
Autor: X-Plosion
Datum: 19.11.02 15:02
also das eingestellte Protokoll ist TCP der Code ist folgender modMain: Function FTPConnect(Remotehost As String, Remoteport As Integer) 'Boolean Dim ConnectSuccess As Boolean 'Long Dim TimeOut As Long Dim TimeRemaining As Long 'Integer Dim i As Integer With frmMain .commandSock.Close 'Falls noch eine Verbindung geöffnet war schließen Call .commandSock.Connect(Remotehost, Remoteport) For i = ConnectTimeOut To 0 Or .commandSock.State >= sckConnected Step -1 Sleep (1000) '1 sekunde schlafen Status "Time Remaining: " & i Next i frmMain: Private Sub commandSock_DataArrival(ByVal bytesTotal As Long) Dim ServerMessage As String If Verbunden = True Then ServerMessage = Space(bytesTotal) commandSock.GetData ServerMessage End If End Sub Sleep (1000) '1 sekunde schlafen Status "Time Remaining: " & i Debug.Print .commandSock.State Debug.Print i Next i mfg X-Plosion

winsock.state	689	X-Plosion	19.11.02 14:41
Re: winsock.state	471	Dieter	19.11.02 14:57
Re: winsock.state	457	X-Plosion	19.11.02 15:02
Re: winsock.state	458	X-Plosion	19.11.02 15:08

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