با سلام و درود خدمت کاربران عزیز
امید وارم تکه کد های زیر مورد مفید برای عزیزان واقع گردد.
✨ نکات مهم:
• کد آماده و تستشده (2 قطعهکد)
• کار با کتابخانههای: JavaObject
• کپی و استفاده مستقیم در پروژه B4A
📚 کتابخانههای مورد نیاز:
JavaObject
(از مسیر Libraries در محیط B4A تیک بزنید.)
🚀 نحوه استفاده:
کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانههای اعلامشده را تیک بزنید.
| دستهبندی | تکه کدها |
| تعداد بازدید | ۳۵ |
| تعداد فروش | ۰ |
| فرمت تحویل | کد نمونهٔ رایگان در همین صفحه |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- تکهکد آماده B4A
- کاملاً رایگان
- کد تستشده با توضیح فارسی
- کتابخانه: JavaObject
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Try
Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_VIEW, $"https://api.whatsapp.com/send?phone=${"شماره مورد نظر"}&text=${"متن پیام"}"$)
Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
StartActivity(Intent1)
Catch
MsgboxAsync(" واتساپ نصب نیست !","خطا")
End Try
Try
Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_VIEW, $"https://api.whatsapp.com/send?phone=${"شماره"}&text=${"متن"}"$)
Dim jo As JavaObject =Intent1
jo.RunMethod("setPackage", Array("com.whatsapp"))
StartActivity(jo.RunMethod("createChooser", Array As Object(Intent1, "")))
Catch
MsgboxAsync(" واتساپ نصب نیست به شماره yyyy پیام دهید و مشکلتون رو ذکر کنید!","خطا")
End Tr