Sub Process_Globals
Private t As Timer
Private activityManager As JavaObject
End Sub
Sub Service_Create
t.Initialize("t", 1000)
t.Enabled = True
activityManager = activityManager.InitializeContext.RunMethodJO("getSystemService", Array("activity"))
End Sub
Sub t_Tick
Log("****************")
Dim tasks As List = activityManager.RunMethod("getRunningTasks", Array As Object(5))
For Each task As JavaObject In tasks
Log(task.GetFieldJO("topActivity").RunMethod("getPackageName", Null))
Next
End Sub