vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Prob mit Winsock 
Autor: gat
Datum: 06.02.06 18:49

das mit der schrittvariable habe ich sconmal so versucht, aber nach dem dritten +OK funkt das irgendwie nicht mehr:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Static lngState As Long
 
    Dim data As String
    Dim info As String
 
    winsock1.getdata data
    info = left(data,3)
 
    Select Case info
        Case "+OK" '1.+OK :verbunden mit dem Server
            If lngState = 0 Then
                lngState = lngState + 1
                winsock1.senddata "USER " & txtuser.text & vbcrlf 
            End If
 
        Case "+OK" '2.+OK :Aufforderung zum Passwort senden
            If lngState = 1 Then
                lngState = lngState + 1
                winsock1.sendata "PASS " & txtpass.text & vbcrlf 
            End If
 
        Case "+OK" '3.+OK :Eingeloggt
            If lngState = 2 Then
                lngState = lngState + 1
                msgbox "Sie sind eingeloggt!"
            End If
 
        Case "-ERR"
            lngState = 0
            msgbox "Falsches User/Pass!"
 
    End Select
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Prob mit Winsock529gat05.02.06 19:58
Re: Prob mit Winsock365gat06.02.06 17:03
Re: Prob mit Winsock327TheNukeduke06.02.06 18:29
Re: Prob mit Winsock355gat06.02.06 18:49
Re: Prob mit Winsock373gat07.02.06 17:44

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel