Dim r1 As Reflector
Dim v As Object
v = r1.CreateObject2("android.content.IntentFilter",Array As Object("ACTION_BATTERY_CHANGED"),Array As String("java.lang.String"))
Log ("object created:" & v)
Dim r As Reflector
r.Target = r.GetContext
Dim rr As Object
rr = r.RunMethod3("registerReceiver",Null, "android.content.BroadcastReceiver",v,"android.content.IntentFilter")
'rr = r.RunMethod4("registerReceiver", Array As Object(0, v), Array As String("android.content.BroadcastReceiver", "android.content.IntentFilter"))
Log ("registerReceiver runned:" & rr)
r.Target = rr
Dim rawlevel As Int
rawlevel = r.RunMethod3("getIntExtra","level","java.lang.String",-1,"java.lang.int")
Log ("battery level is" & rawlevel)