Guten Tag liebe Leute,
Ich habe es schon geschaft, das er sich einlogt. Aber ich möchte das jetzt gerne so machen, das die login.txt Datei online liegt, damit man sich von überall einloggen kann.
Ich weiß schon, das ich das Inet1 brauch. Aber ich weiß nicht wie das geht.
Ich weiß der Code ist nicht gerade optimal
Aber er funktioniert 
Gruß
Scraty
Ich habe es schon geschaft, das er sich einlogt. Aber ich möchte das jetzt gerne so machen, das die login.txt Datei online liegt, damit man sich von überall einloggen kann.
Visual Basic-Quellcode
- Private Sub cmd_login_Click()
- datei = "login.txt"
- file = FreeFile
- Open datei For Random As file Len = Len(anmelden(i))
- imax = LOF(file) \ Len(anmelden(i))
- For i = 1 To imax
- Get file, i, anmelden(i)
- For s = 1 To Len(anmelden(i).benutzername)
- If Mid(anmelden(i).benutzername, s, 1) = " " Then p = p + 1
- Next
- If p > 0 Then benutzername = Left(anmelden(i).benutzername, s - p - 1)
- p = 0
- For s = 1 To Len(anmelden(i).passwort)
- If Mid(anmelden(i).passwort, s, 1) = " " Then p = p + 1
- Next
- If p > 0 Then kennwort = Left(anmelden(i).passwort, s - p - 1)
- p = 0
- If txt_login.Text = benutzername Then
- If txt_passwort.Text = kennwort Then
- frm_haupt.Show
- Unload Me
- End If
- End If
- Next i
- Close file
- End Sub
Ich weiß schon, das ich das Inet1 brauch. Aber ich weiß nicht wie das geht.
Ich weiß der Code ist nicht gerade optimal
Aber er funktioniert Gruß
Scraty
