[Snippet] Check Email if gmail and valid password length

[euverve]

Check Email if gmail and valid password length.

Screenshot:

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 Class

This code might be useful for validating email address, and for simple email sender/bomber.

[Gaijin]

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.

[PURP]

I am sure some people will find this useful thanks.

[euverve]

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 Function

[stephen5565]

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