تکه کد باز کردن مستقیم هر نوع تلگرامی

سلام به کاربرام گل سایت یاهو ۹۸

 

قبلا ما یه تکه کدی داشتیم که مستقیم میومد هر تلگرامی که نصب بود رو باز میکرد و به کانال یا آیدی یا گروهی که داده بودیم میرفت .

 

که جدبدا دیدیم موبوگرام اومده و تبلیغات رو از آپ های دیگر مسدود کرده چون ما تو تکه کدمون گفتیم هر تلگرامی رو

 

در این روش ما میایم شرط میزارم برای پکیج نیم برنامه چون در حال حاضر فقط موبوگرام اینگونه هست و بعد میایم میگیم اگر نبود هر تلگرامی رو مستقیم باز کن به صورت زیر

 

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

 

ان شا ء الله که مفید واقع شده باشه .

تکه کد ورود اجباری کاربر به کانال یا گروه یا آیدی در تلگرام

با سپاس

این تکه کد اجباری وارد میکنه ولی جوین نمیده تو بیسیک همچین امکانی هم وجود نداره که بشه جوین هم داد .

 

بیشتر از این کد در خبرنامه ها و پوش ها استفاده میکنند.

۲۳:۴۴:۳۶

۱۲/۲۰/۲۰۱۶

یلداتونم میارک و شیرین

کد اول :

Dim i As Intent
i.initialize (i.ACTION_VIEW,"@yahoo98")  
StartActivity (i)

 

کد دوم

Dim i As Intent 
 i.initialize (i.action_view,"tg://resolve?domain="&"yahoo98") 
 StartActivity (i)

 

کد سوم بدون ارور در زمانی که ارور میده

try 
Dim i As Intent i.initialize (i.action_view,"tg://resolve?domain="&"yahoo98")
 StartActivity (i) 
catch 
ToastMessageShow("تلگرام بر روی گوشی شما نصب نیست",false) 
end try