Sub Activity_Create(FirstTime As Boolean)
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"))
End If
Next
End Sub