نویسنده: سید اسماعیل

📩 تابع تشخیص درست وارد شدن جیمیل – Gmail

• با استفاده ازاین تابع میتونید تشخیص بدید آیا ایمیل وارد شده #جیمیل هست یانه.
خیلی هم خوبه که قبلش چک کنید آیا اصلا ایمیل وارد شده صحیح هست یاخیر .

💡۲ تابع کاربردی که برای فرم های ثبت نام بکار میاد😍

📧 بررسی صحیح وارد شدن ایمیل:

Sub Verify_Email(Mail As String) As Boolean
Dim eMatch As Matcher
eMatch = Regex.Matcher("\w+@\w+\.\w+", Mail)
Return eMatch.Find
End Sub

مثال:

Verify_Email(“info@yahoo98.ir”) ‘درصورت صحیح بودن true برگردونده میشه

👤 بررسی درست وارد شدن نام کاربری(username)

| با این تابع نام کاربری فقط میتونه شامل: ( حروف انگلیسی، اعداد و کاراکترهای – , . ) باشه.

Sub Verify_UserName(user As String) As Boolean
Dim eMatch As Matcher
eMatch = Regex.Matcher("^[a-zA-Z0-9._-]{3,}$", user)
Return eMatch.Find
End Sub

✅ تابع

Sub isGmail(text As String) As Boolean
Dim ads As String="@gmail.com"
text=text.ToLowerCase
If text.Length<12 Then
Return False
Else
If text.SubString(text.Length-10)=ads Then
Return True
Else
Return False
End If
End If
End Sub

▫️ استفاده

If isGmail("yahoo98.ir@gmail.com") Then
ToastMessageShow("جیمیل صحیح است",True)
End If