Sub getState() As Int
Dim r As Reflector, res As Int
Dim BluetoothManager As Object
r.Target = r.GetContext
BluetoothManager = r.RunMethod2("getSystemService", "bluetooth", "java.lang.Integer")
r.Target = BluetoothManager
res = r.RunMethod("getState")
mod_functions.writelog("svc_bt_state_changed(),getState, STATE = " & res)
Return res
End Sub