اقا من می خوام لیست اپ های در حال اجرا بگیرم یعنی اپ های که تو سرویس بک گراند کار می کنن
تصویر زیر ببنید (پیوست)
این کد رو نمی خوام که فقط اپ های باز بر می گردونه
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
سوال
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
اگر دوستی می دونه ممنون میشم بگه
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.