مشکل در بازکردن برنامه دیگر

[mkabir 186]

سلام دوستان من برای بازکردن یه برنامه دیگه از کدی که درپایین قرار میدم استفاده میکنم برنامه ای مثل یوتوب رو باز میکنه ولی بقیه برنامه ها ارور میده و برنامه  رو باز نمی کنه مشکل چیه یا روش دیگه ای دارید ؟؟؟؟

Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_MAIN,"")
intent1.SetComponent("Com.google.android.youtube/.homeactivity")
StartActivity(intent1)

اینم عکس ارور 

 

[m007moh 181]

سلام دوستان من برای بازکردن یه برنامه دیگه از کدی که درپایین قرار میدم استفاده میکنم برنامه ای مثل یوتوب رو باز میکنه ولی بقیه برنامه ها ارور میده و برنامه  رو باز نمی کنه مشکل چیه یا روش دیگه ای دارید ؟؟؟؟

Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_MAIN,"")
intent1.SetComponent("Com.google.android.youtube/.homeactivity")
StartActivity(intent1)

اینم عکس ارور 

 

سلام ببخشید که تاپیک قدیمی رو بالا اوردم 

 

ولی گفتم شاید کسی لازمش بشه (من خودم لازمم شده بود)

 

با کد زیر هر نرم افزاری رو ک بخوایید میشه فرا خوند

 

فقط کافیه پکیج نیم رو تغییر بدید

Sub Button1_Click

Dim lst As List
Dim int1,i As Intent
	Dim pm As PackageManager2
pm.Initialize
lst.Initialize
int1.Initialize("", "")
	int1=pm.GetApplicationIntent("com.google.android.youtube")
	lst=pm.QueryIntentActivities(int1)
   i.Initialize("", "")
   i.SetComponent(lst.Get(0))
   Try
      StartActivity(i)
   Catch
      ToastMessageShow("app not found.", True)
   End Try
End Sub