گرفتن سرویس در حال اجرا (سرویس)

[ali mo 264]

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

اقا من می خوام لیست اپ های در حال اجرا بگیرم یعنی اپ های که تو سرویس بک گراند کار می کنن

تصویر زیر ببنید (پیوست) 

این کد رو نمی خوام که فقط اپ های باز بر می گردونه

Sub getRunningApp(sPackageName As String) As String
	Dim o As OperatingSystem
	Dim tasks As List = o.getRecentTasks(10, 0)
	For Each task As Object In tasks
		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")
			Log(r.RunMethod("getPackageName"))
'			If r.RunMethod("getPackageName") = sPackageName Then
'				Dim Status As String
'				Status = "Successful"
'				Return Status
'			Else
'				Return "Null"
'			End If
		End If
	Next
End Sub

اگر دوستی می دونه  ممنون میشم بگه

[محمدرضا شاهپیری 5,583]

در در 7 مهر 1398 در 23:38، alimo1999 گفته است :

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

اقا من می خوام لیست اپ های در حال اجرا بگیرم یعنی اپ های که تو سرویس بک گراند کار می کنن

تصویر زیر ببنید (پیوست) 

این کد رو نمی خوام که فقط اپ های باز بر می گردونه

اگر دوستی می دونه  ممنون میشم بگه

 

از کتابخونه زیر استفاده کنید عزیز.