Bonjour, je vous propose un petit code source pour faire un login pour tout type de programme, relié a une bdd.
Attention, faut un hébergeur payant pour avoir un bdd avec accès distance
000webhost est non fonctionnel (version gratuite)
Je suis chez Always Data (Service gratuit et bonne bdd avec accès distance)
Possibilité de rajouter un système qui check si la personnes est banned
Ce n'est pas parfait, un peu de bidouillage pour le bannissement mais fonctionnel
Il faut pour cela un .dll
MySQL.Data.dll
Bon, je vous donne le setup, beaucoup plus simple![Smile Smile](https://forum.cs-hackers.com/images/smilies/newGen/smile.png)
Le liens du setup sur leurs sites:
https://dev.mysql.com/downloads/connector/net/
Le dl est long à la fin, aucune idée du pourquoi du comment mais le dl se bloque à 100 chez moi ^^ et se débloque au bout de 5 minutes je l'ai donc upload sur mon site si vous le souhaitez:
https://www.nightwalker.fr/mysql-connect...-6.9.9.msi
Suffit juste de mettre deux textbox + un bouton, après le design c'est à vous ^^
Il est possible de rajouter d'autres textbox ou vérifications.
Exemple de mon launcher:
https://image.noelshack.com/fichiers/201...walker.png
Virus total au cas où y a des doutes sur le setup:
https://www.virustotal.com/fr/url/18feb2...502339455/
Attention, faut un hébergeur payant pour avoir un bdd avec accès distance
000webhost est non fonctionnel (version gratuite)
Je suis chez Always Data (Service gratuit et bonne bdd avec accès distance)
Code :
Dim ConnectionSQL As New MySqlConnection("server= serveur;port=3306; userid= userbdd; password= mdp; database= bdd;")
Dim COMMAND As New MySqlCommand
Dim reader As MySqlDataReader
Dim myAdapter As New MySqlDataAdapter
Dim SQL As String
ConnectionSQL.Open()
COMMAND.Connection = ConnectionSQL
'Connexion a la BDD
'
COMMAND.CommandText = "SELECT aaaaa, bbbbb FROM nomdelatable WHERE aaaaa='" & NOMDELABOX.Text & "' and bbbbb='" & NOMDELABOX.Text & "'"
reader = COMMAND.ExecuteReader
If reader.HasRows Then
'Lancement de programme/ form
End If
Else
Message d'erreur si aaaa ou bbbb faux
MsgBox(" ")
End If
Possibilité de rajouter un système qui check si la personnes est banned
Code :
myAdapter.SelectCommand = COMMAND
reader.Read()
reader.GetValue(2)
If reader.GetValue(2) = "True" Then
MsgBox("Banned key, program will close")
LABEL_ID_BANNED.IsEnabled = True
ConnectionSQL.Close()
End
Else
MsgBox("Lancement du launcher")
Dim frm As New Dashboard()
frm.Show()
Me.Close()
Ce n'est pas parfait, un peu de bidouillage pour le bannissement mais fonctionnel
Il faut pour cela un .dll
MySQL.Data.dll
Bon, je vous donne le setup, beaucoup plus simple
![Smile Smile](https://forum.cs-hackers.com/images/smilies/newGen/smile.png)
Le liens du setup sur leurs sites:
https://dev.mysql.com/downloads/connector/net/
Le dl est long à la fin, aucune idée du pourquoi du comment mais le dl se bloque à 100 chez moi ^^ et se débloque au bout de 5 minutes je l'ai donc upload sur mon site si vous le souhaitez:
https://www.nightwalker.fr/mysql-connect...-6.9.9.msi
Suffit juste de mettre deux textbox + un bouton, après le design c'est à vous ^^
Il est possible de rajouter d'autres textbox ou vérifications.
Exemple de mon launcher:
https://image.noelshack.com/fichiers/201...walker.png
Virus total au cas où y a des doutes sur le setup:
https://www.virustotal.com/fr/url/18feb2...502339455/