Réponse acceptée !
excusez moi si le code précédent n'est pas lisible. le voici:
- pour créer un utilisateur :
Function createuser()
System.IO.Directory.SetCurrentDirectory(Application.StartupPath)
'recueil du username
Dim Prompt, Nom
Prompt = "Entrez le nom d'utilisateur"
Nom = InputBox$(Prompt)
If Nom = "" Then Exit Function
'recueil du password
Dim PromptPass, Pass
PromptPass = "Tapez le mot de passe"
Pass = InputBox$(PromptPass)
Dim namext As String = Nom & ".usn"
Dim passext As String = Nom & ".usp"
'création du dossier de l'utilisateur et de ses paramètres
Dim userpath = System.IO.Directory.CreateDirectory(Nom).ToString
System.IO.Directory.SetCurrentDirectory(userpath)
System.IO.File.Create(namext)
System.IO.File.WriteAllText(passext, Pass)
Beep()
MsgBox("Votre Compte d'utilisateur a été créé avec succès.")
End Function
Function UserConnexion(ByVal Name As String, ByVal Password As String)
Select Case System.IO.File.Exists(Name & ".usp")
Case True
If System.IO.File.ReadAllText(Name & ".usp") = Password Then beep() Else MsgBox("Echec de la connexion, mot de passe incorrect")
Case False
MsgBox("Erreur lors de la connexion, verifiez le mot de passe", MsgBoxStyle.Information, "Clavel CrystalBase")
End Select
End Function
voilà j'espère que vous pourrez lire
