Sub Activity_Create(FirstTime As Boolean)
Dim activities() As Object
activities = GetActivitiesInfo("com.android.browser")
Dim r As Reflector
For i = 0 To activities.Length - 1
r.Target = activities(i)
Log(r.GetField("name"))
Next
End Sub
Sub GetActivitiesInfo(package As String) As Object()
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod("getPackageManager")
r.Target = r.RunMethod3("getPackageInfo", package, _
"java.lang.String", 0x00000001, "java.lang.int")
Return r.GetField("activities")
End Sub