Function logingo()
Dim urlbestand As String
Dim gegevens As String
Dim splitten As String
Dim splitten2 As String
Dim splitten3 As String
Dim splitten4 As String
Dim splitten5 As String
Dim bstand As Boolean
Dim pathnaam As String
Dim loginjuist As Boolean
urlbestand = Environ("commonProgramFiles") & "\dcq369\log.dat"
pathnaam = Environ("commonProgramFiles") & "\dcq369\schrfbvgdhd.dat"
If Len(Dir$(urlbestand)) > 1 Then
bestand = True
Else
MsgBox "er zijn geen personen geregistreerd", vbExclamation, "opmerking"
End If
If bestand = True Then
Open urlbestand For Input As #1
gegevens = Input(LOF(1), #1)
Close #1
splitten = Split(gegevens, "||")(1)
splitten2 = Split(splitten, "=")(1)
For i = 1 To splitten2
splitten3 = Split(gegevens, "||")(i + 1)
splitten4 = Split(splitten3, "&&")(0)
splitten5 = Split(splitten3, "&&")(1)
[COLOR=red]
MsgBox splitten4
MsgBox splitten5
MsgBox Text1.Text
MsgBox Text2.Text
[/COLOR]
If splitten4 Like Text1.Text And splitten5 Like Text2.Text Then
loginjuist = True
Exit For
Else
loginjuist = False
End If
Next i
End If
If loginjuist = True Then
Open pathnaam For Output As #1
Print #1, "ja"
Close #1
progamma.Show
Unload login
Else
MsgBox "uw gegevens zijn fout probeer opnieuw of druk op doorgaan", vbExclamation, "opmerking"
End If
End Function
