Welcome to dEViATED. We provide PC trainers, cheats, mods and game trainers and a gamehacking forum for discussions and help. We have pc cheats, cheat engine tables and mods for various old and new single player games.

These are some of the latest trainers released by us and supported fully.
Assassin's Creed Rogue Trainer
Grand Theft Auto 5 Trainer



Sign in to follow this  
Followers 0

Check Email if gmail and valid password length

1 post in this topic

Posted

Check Email if gmail and valid password length.

Screenshot:

gmDAQ.png

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0