+- Support Forums (https://www.supportforums.net)
+-- Forum: Categories (https://www.supportforums.net/forumdisplay.php?fid=87)
+--- Forum: Coding Support Forums (https://www.supportforums.net/forumdisplay.php?fid=18)
+---- Forum: Visual Basic and the .NET Framework (https://www.supportforums.net/forumdisplay.php?fid=19)
+---- Thread: [Snippet] Check Email if gmail and valid password length (/showthread.php?tid=18698)
[Snippet] Check Email if gmail and valid password length - euverve - 05-12-2011
Check Email if gmail and valid password length.
Screenshot:
![[Image: gmDAQ.png]](http://i.imgur.com/gmDAQ.png)
Code:
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
checkemail(TextBox1.Text, TextBox2.Text)
End Sub
Private Shared Function checkemail(ByVal email As String, pass As String) As Boolean
If isemailvalid(email) = True Then
If isgmail(email) = True Then
If validpass(pass) = True Then
MsgBox("Valid gmail and valid password Length!")
' Do valid processing here!
Else
MsgBox("Invalid Password Length!")
End If
Else
MsgBox("Not a valid gmail account")
End If
Else
MsgBox("Invalid Email")
End If
End Function
Private Shared Function isemailvalid(ByVal email As String) As Boolean
' If the email matches the regular expression
Dim Expression As New System.Text.RegularExpressions.Regex("\S+@\S+\.\S+")
If Expression.IsMatch(email) Then
Return True
Else
Return False
End If
End Function
Private Shared Function isgmail(ByVal email As String) As Boolean
If email.Contains("@gmail.com") = True Then
Return True
Else
Return False
End If
End Function
Private Shared Function validpass(ByVal pass As String) As Boolean
If pass.Length >= 8 Then
Return True
Else
Return False
End If
End Function
End ClassThis code might be useful for validating email address, and for simple email sender/bomber.
RE: [Snippets] Check Email if gmail and valid password length - Gaijin - 05-12-2011
It is actually good for those who want to know how to check if a string contains something.... o.O
This is really useful snippet for n00bs, good work.
Though, some people still use @googlemail.com.
RE: [Snippets] Check Email if gmail and valid password length - PURP - 05-12-2011
I am sure some people will find this useful thanks.
RE: [Snippet] Check Email if gmail and valid password length - euverve - 05-17-2011
Functions merge into one.
Code:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If checkemail(TextBox1.Text, TextBox2.Text) = True Then
MsgBox("Email is valid")
Else
MsgBox("Email is invalid")
End If
End Sub
Private Shared Function checkemail(ByVal email As String, pass As String) As Boolean
' If the email matches the regular expression
Dim Expression As New System.Text.RegularExpressions.Regex("\S+@\S+\.\S+")
If Expression.IsMatch(email) Then
If email.Contains("@gmail.com") = True Then
If pass.Length >= 8 Then
Return True
Else
Return False 'Invalid password
End If
Else
Return False 'Not a Gmail
End If
Else
Return False 'Invalid email
End If
End FunctionRE: [Snippet] Check Email if gmail and valid password length - stephen5565 - 05-20-2011
(05-12-2011, 06:47 AM)Gaijin Wrote: It is actually good for those who want to know how to check if a string contains something.... o.O
This is really useful snippet for n00bs, good work.
Though, some people still use @googlemail.com.
Yeah I agree with you
, But I am not noob