codice:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label5.Enabled = False
Label6.Enabled = False
lunghezzarec = Len(nome_pass1)
lunghezzarec1 = Len(b)
FileOpen(1, "C:\nome utente e password\nome&pass.dat", OpenMode.Random, , , lunghezzarec)
FileOpen(2, "C:\nome utente e password\nome&pass1.dat", OpenMode.Random, , , lunghezzarec)
ultimorec = LOF(1) \ lunghezzarec
ultimorec1 = LOF(2) \ lunghezzarec1
posizione = 1
End Sub
Private Sub registra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With nome_pass1
.nome = TextBox1.Text
.pass = TextBox2.Text
End With
posizione = ultimorec
If ultimorec = 0 Then
FilePut(1, nome_pass1, 1)
MsgBox("Registrazione avvenuta con successo!", MsgBoxStyle.Information, "ATTENZIONE")
Else
MsgBox("la registrazione è stata gia fatta!Effettuare l'accesso", MsgBoxStyle.Information, "ATTENZIONE")
End If
End Sub
Private Sub entra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ultimorec = posizione
With b
.nome1 = TextBox1.Text
.pass1 = TextBox2.Text
End With
If b.pass1 = nome_pass1.pass And b.nome1 = nome_pass1.nome Then
Form2.Show()
Else
MsgBox("Nome Utente o Password errata", MsgBoxStyle.Critical, "Errore")
End If
FileClose(2)
'Kill("C:\nome utente e password\nome&pass1.dat")
End Sub