📩 تابع تشخیص درست وارد شدن جیمیل – Gmail
• با استفاده ازاین تابع میتونید تشخیص بدید آیا ایمیل وارد شده #جیمیل هست یانه.
خیلی هم خوبه که قبلش چک کنید آیا اصلا ایمیل وارد شده صحیح هست یاخیر .
✨ نکات مهم:
• کد آماده و تستشده (4 قطعهکد)
• کار با کتابخانههای: ToastMessageShow، Regex
• کپی و استفاده مستقیم در پروژه B4A
📚 کتابخانههای مورد نیاز:
ToastMessageShow، Regex
(از مسیر Libraries در محیط B4A تیک بزنید.)
🚀 نحوه استفاده:
کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانههای اعلامشده را تیک بزنید.
| دستهبندی | تکه کدها |
| تاریخ انتشار | ۲۷ شهریور ۱۴۰۵ - ۰۱:۱۶ |
| تعداد بازدید | ۲ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- تکهکد آماده B4A
- کاملاً رایگان
- کد تستشده با توضیح فارسی
- کتابخانه: ToastMessageShow، Regex
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub Verify_Email(Mail As String) As Boolean
Dim eMatch As Matcher
eMatch = Regex.Matcher("\w+@\w+\.\w+", Mail)
Return eMatch.Find
End Sub
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محصولات مشابه