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