قبلا ما یه تکه کدی داشتیم که مستقیم میومد هر تلگرامی که نصب بود رو باز میکرد و به کانال یا آیدی یا گروهی که داده بودیم میرفت .
که جدبدا دیدیم موبوگرام اومده و تبلیغات رو از آپ های دیگر مسدود کرده چون ما تو تکه کدمون گفتیم هر تلگرامی رو
در این روش ما میایم شرط میزارم برای پکیج نیم برنامه چون در حال حاضر فقط موبوگرام اینگونه هست و بعد میایم میگیم اگر نبود هر تلگرامی رو مستقیم باز کن به صورت زیر
✨ نکات مهم:
• کد آماده و تستشده (1 قطعهکد)
• کار با کتابخانههای: JavaObject
• کپی و استفاده مستقیم در پروژه B4A
📚 کتابخانههای مورد نیاز:
JavaObject
(از مسیر Libraries در محیط B4A تیک بزنید.)
🚀 نحوه استفاده:
کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانههای اعلامشده را تیک بزنید.
| دستهبندی | تکه کدها |
| تاریخ انتشار | ۲۷ شهریور ۱۴۰۵ - ۰۲:۲۲ |
| تعداد بازدید | ۲ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- تکهکد آماده B4A
- کاملاً رایگان
- کد تستشده با توضیح فارسی
- کتابخانه: JavaObject
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Dim far As Intent
Dim pm As PackageManager
far=pm.GetApplicationIntent("com.hanista.mobogram")
If far.IsInitialized Then
'کد اولی
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "http://telegram.me/yahoo98")
Dim jo As JavaObject = i
jo.RunMethod("setPackage", Array As Object("com.hanista.mobogram"))
StartActivity(ii)
Else
'کد دومی
Dim i2 As Intent
i2.initialize (i2.action_view,"tg://resolve?domain=yahoo98")
StartActivity (i22)
End Ifمحصولات مشابه