C'est un code qui est présent sur www.freevbcode.com mais pour le VBSCRIPT.
Je l'ai passé en Visual Basic...
Je ne crois pas que cette méthode soit fiable à 100%; loin de la... Mais bon, elle a le mérite d'etre très simple...
Source / Exemple :
'Avec un bouton appelé Command1
'Avec une textbox appelé Text1
Private Sub Command1_Click()
If InStr(Text1, "@") = 0 Or _ 'Est ce que dans le texte on a @
InStr(Text1, ".") = 0 Or _ 'Est ce que dans le texte on a un point
Len(Text1) < 7 Then ' Est ce que le texte fait plue de 7 caractères
MsgBox "L'adresse spécifiée n'est pas valide !"
Else
MsgBox "Votre adresse est apparement valide..."
End If
End Sub
Conclusion :
Voili Voilo...
C'est simple, pas fiable à 100%, je sais, pas la peine de le répéter...
Merci !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.