✔ Kennwortabfrage vb net chat

[gringo84]

Hi

...brauche hilfe muss eine Kennwortabfrage für nen (einfachen) server (mit winsock) einrichten,
weiß aber nicht wie es geht und habe im netz schon überall gesucht jedoch nichts gefunden!Die Abfrage sollte sich öffnen,
wenn man versucht eine Verbindung mit dem Server Herzustellen.Es Muss kein allzu schwerer login sein...Hauptsache ist,dass nach einem Kennwort gefragt wird!


Hier der Quellcode vom Server:


Private Sub Command1_Click()
Winsock1.Close


Winsock1.LocalPort = Text1.Text


Winsock1.Listen

Command1.Enabled = False
End Sub

Private Sub Command2_Click()

Text3.Text = Text3.Text & nick & ":" & _
Text4.Text & vbCrLf

Text3.SelStart = Len(Text3.Text)


Winsock1.SendData "msg" & Text3.Text

End Sub


Private Sub Command3_Click()
Winsock1.Close
Command1.Enabled = True

End Sub

Private Sub speichern_Click()
Shell "Net help Send " & ip & Text3.Text
End Sub



Private Sub Timer1_Timer()
Label1.Caption = Winsock1.State
End Sub


Private Sub Winsock1_Close()
Text4.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

Winsock1.Close


Winsock1.Accept requestID

Text4.Enabled = True
Command2.Enabled = True
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Result As String


Winsock1.GetData Result


Select Case Left(Result, 3)

Case "msg"
Text3.Text = Text3.Text & Text4.Text & Mid(Result, _
4) & vbCrLf

Text3.SelStart = Len(Text3.Text)
End Select
End Sub

Wäre dankbar wenn mir jemand zeigen könnte wie ich eine kennwortabfrage
integriere

mfg Greno

 

[MAN]

Wenn ich dich richtig verstanden habe und deinen Quellcode durschaut haben konnte, dann sollte dir folgender Quellcode helfen:

Private Sub Command1_Click()
    Dim result As String
    
    Winsock1.Close
    Winsock1.LocalPort = Text1.Text
    
    result = InputBox("Geben sie das Passwort ein:", "Server Connect")
    
    'In der nächsten Zeile statt "deinpasswort" eben
    'das gewünschte Passwort hinschreiben
    If result = "deinpasswort" Then
        Winsock1.Listen
        Command1.Enabled = False
    End If
End Sub

Das wäre warscheinlich die einfachste Methode. Hier ist nur der einzigste Nachteil, dass in der Inputbox das Passwort nicht verschlüsselt (also mit Sternchen (*) angezeigt werden kann)

mfG,
MAN

 

[gringo84]

Hi

...danke auch für den Quellcode und werde das nächste mal dran denken
code tags zu verwenden und dass das Passwort nicht mit sternchen angegeben
wird ist auch nicht so schlimm...dachte das wäre viel schwieriger
so eine Kennwort abfrage zu Programmieren...naja hast mir auf jeden
Fall weiter geholfen Noch mal danke...

MFG
Greno84