Support Forums

Support Forums > Categories > Coding Support Forums > Visual Basic and the .NET Framework > [Snippet] Check Email if gmail and valid password length
Full Version: [Snippet] Check Email if gmail and valid password length
You're currently viewing a stripped down version of our content. View the full version with proper formatting.

euverve

05-12-2011, 06:13 AM
Check Email if gmail and valid password length.

Screenshot:
[Image: 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 Class

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

Gaijin

05-12-2011, 06:47 AM
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

05-12-2011, 09:27 AM
I am sure some people will find this useful thanks.

euverve

05-17-2011, 09:16 PM
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

05-20-2011, 06:51 AM
(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 Smile , But I am not noobSmileWhistle
Support Forums > Categories > Coding Support Forums > Visual Basic and the .NET Framework > [Snippet] Check Email if gmail and valid password length