فهمیدن اجرا برنامه

[ali mo 264]

سلام بر همه دوستان

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

	Dim l As List
l.Initialize

	Dim sPackage As String = "com.instagram.android"
Log("اول خط")
	Dim o As OperatingSystem
	Dim tasks As List = o.getRecentTasks(10, 0)
	For Each task As Object In tasks
		Log("ادوم خط")
		Dim r As Reflector
		r.Target = task
		Dim bi As Object = r.GetField("baseIntent")
		If bi <> Null Then
			r.Target = bi
			r.Target = r.RunMethod("getComponent")
			l.Add(r.RunMethod("getPackageName"))
			If  sPackage =  r.RunMethod("getPackageName")  Then
				ToastMessageShow("ddddddd",True)
			End If
		End If
	Next

ولی الان این کد کار نمی کنه نمی دونم چرا ؟

[Gamer 71]

تو بیسیک ارور میده ؟؟؟؟اگه اره ارورش رو بذار

[ali mo 264]

بله تو بیسک منتها هیچ اروری نمی ده فقط کار نمی کنه نمی دونم چرا؟

کدی دیگه ندارید با استفاده از کتابخون های دیگه؟ یا روش دیگه

تو اندروید بالا اینجوری میشه فقط فک کنم

روی اندروید 6 اجر نمیشه

در 2 ساعت قبل، am_avakh گفته است :

تو بیسیک ارور میده ؟؟؟؟اگه اره ارورش رو بذار

 

[A.a.Avakh 105]

has stopped میده یا کاری رو که می خوای انجام نمی ده ؟

[ali mo 264]

اصلا هیچی نمی ده خطا نداره

و هیچ کاری انجام نمیده

[A.a.Avakh 105]

راه حلی به ذهنم نمی رسه ولی خب یه دور همه رو ان اینستال کن بعد دوباره نصب کن یه زمانی برای من b4aهمین کارو می کرد ولی با نصب دوباره درست شد. با پاسخم الان سوالت تو آخرین ارسالاست احتمالا یکی دیگه ببینه جواب بده .

[ali mo 264]

سلام مجدد ممنون بابت پاسخت

اون کد های که گفتم درست کار می کنه منتها برای اندروید زیر 6

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

 

[A.a.Avakh 105]

خوشحالم که مشکلت حل شد