car actuellement avec mon code je dois mettre toutes les licences pour que ce soit valide
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
If TextBox1.Text = My.Computer.FileSystem.ReadAllText("\licences.txt") Then
MsgBox("Votre licence à été valider")
else
MsgBox("Licence invalide")
Dim path As String = "\licences.txt"
Dim licences() As String = File.ReadAllLines(path)
Dim s As String
For Each s In licences
Console.WriteLine(s)
Next
If TextBox1.Text = s Then
MsgBox("Votre licence a été valider")
else
MsgBox("Votre licence est invalide")
dim toto as boolean
For Each s In licences
if textbox1 = s then
toto = true
exit for
end if
Next
if not toto then msgbox "pas valide"