Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "input_method", "java.lang.String")
Dim all As List = r.RunMethod("getEnabledInputMethodList")
For Each kb As Object In all
r.Target = kb
Log(r.RunMethod("getPackageName"))
Next