Private Sub Command1_Click()
If Text1.Text = "" Then Text1.Text = " " 'Wenn nichts eingegeben wird, dann ein 
' Leerzeichen eingeben.
Suchtext = Text1.Text
 
Text3.Text = "0" 'Text4 eine Zahl zuweisen.
Text4.Text = "ajsjdjdjfnfgj" ' Hackschutz!
                             'Denn wenn Nichts eingegeben wird
                             'ist der Abgleich immer identisch
 
For Eintrag = 0 To List1.ListCount
        If List1.List(Eintrag) = Suchtext Then
                Text3 = List1.ListIndex - Eintrag
 
                 Exit For ' Damit Die anderen Zeilen nicht auch extra 
                 ' durchsucht werden
        End If
Next
 
Text3.Text = Text3 * -1 'Negative Ausgabe in Positive umwandeln
If Text3.Text = "0" Then MsgBox "Username nicht Gefunden!"
 
List2.ListIndex = Text3.Text - 1 'in Passwortliste markieren
Text4.Text = List2.Text 'aus Passwortliste in Text4 importieren
If Text4.Text = "" Then Text4.Text = "jhhsdf" 'Hackschutz. Wenn Nichts 
' eingegeben wird, wird Text 4 mit Müll gefüllt
If Text2.Text = Text4.Text Then Form2.Show Else MsgBox "Zugriff verweigert!" _
  'Wenn Passwort nicht übereinstimmt Fehlermeldung
 
 
End Sub
 
Private Sub Form_Load()
 
 
 
Dim Zeile As String
Dim Teil1 As String
Dim Teil2 As String
Dim I As Integer
 
' *** Datei lesen
Open "pass.txt" For Input As #1
 
Do While Not EOF(1)
   ' Zeile lesen
   Line Input #1, Zeile
 
   ' Zeile zerlegen
   Teil1 = Left(Zeile, InStr(Zeile, ":") - 1)
   Teil2 = Right(Zeile, Len(Zeile) - InStr(Zeile, ":"))
 
   ' Die beiden Teile in die ListBoxen
   List1.AddItem Teil1
   List2.AddItem Teil2
Loop
Close #1
End Sub
 
Private Sub Text1_GotFocus()
Text1.Text = "" 'Setzt das Feld zurück wenn der Cursor drinsteht
End Sub
 
Private Sub Text2_GotFocus()
Text2.Text = "" 'Setzt das Feld zurück wenn der Cursor drinsteht
End Sub

Private Sub Command1_Click()
On Error Resume Next
Dim pass As String
pass = Inet1.OpenURL("http://irgendeinwebhoster.com/datei.txt")
If Text1 = datei Then ....

http://www.schmittis-page.de/vb/t141.htm

EALA FREYA FRESENA

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de