Donc voila:
1. tu crée ton projet
2. tu met 1 TextBox, 1 label et un button
3. Double click sur le boutton et tu colle ce code :
Dim RandomNumber As New Random()
Dim Tr As IO.TextReader =
System.IO.File.OpenText("C:\Users\Anthony\Desktop\
passwords.txt")
Dim FileLines() As String = Split(Tr.ReadToEnd(), vbCrLf)
Tr.Close()
Dim MyRandomLine As String = FileLines(RandomNumber.Next(0, UBound(FileLines)))
Label1.Text = MyRandomLine
4. sur ton bureau tu dois un crée un fichier .txt, dedans tu colle :
12ad25dsd1
45458sds53
4d8s866AA4
d4s4566665
Sdsq4446sQ
(un par ligne)
5. a la place de C:\Users\Anthony\Desktop\passwords.txt tu met le chemin de ton fichier txt.
