Android Tutorial Programmatically Setting AIRPLANE_MODE_ON and Off

How to set Airplane mode ON e OFF?

I see this:
anddev.org • View topic - How to set airplane mode on/off

How I can traduce it, with B4A?

 

[Erel]

You can do it with the help of the Reflection library.
This code toggles the airplane mode each time you click on the activity:

Sub Process_Globals

End Sub
Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)

End Sub

Sub SetAirplaneMode(On As Boolean)
    Dim p As Phone
    If on = GetAirplaneMode Then Return 'already in the correct state
    Dim r As Reflector
    Dim contentResolver As Object
    r.Target = r.GetContext
    contentResolver = r.RunMethod("getContentResolver")
    Dim state As Int
    If on Then state = 1 Else state = 0
    r.RunStaticMethod("android.provider.Settings$System", "putInt", _
        Array As Object(contentResolver, "airplane_mode_on", state), _
        Array As String("android.content.ContentResolver", "java.lang.String", "java.lang.int"))
    Dim i As Intent
    i.Initialize("android.intent.action.AIRPLANE_MODE", "")
    i.PutExtra("state", "" & On)
    p.SendBroadcastIntent(i)
End Sub

Sub GetAirplaneMode As Boolean
    Dim p As Phone
    Return p.GetSettings("airplane_mode_on") = 1
End Sub

Sub Activity_Click
    SetAirplaneMode(Not(GetAirplaneMode))
    Log(GetAirplaneMode)
End Sub
Sub Activity_Resume

End Sub

In order for it to work you should add the following declaration to the manifest file (just before the closing </manifest>):

<uses-permission android:name="android.permission.WRITE_SETTINGS"/>

See the PreferenceActivity tutorial for more information about modifying the manifest file: http://www.b4x.com/search?query=PreferenceActivity+Tutorial

This code requires the Reflection and Phone libraries.

 

[agraham]

Using the Reflection library. I've tested getting it but not changing it.

   'get
   Dim Obj1 As Reflector
   Dim state As Int
   Dim args(2) As Object
   Dim types(2) As String   
   Obj1.Target = Obj1.GetContext
   Obj1.Target = Obj1.RunMethod("getContentResolver")
   args(0) = Obj1.Target
   types(0) = "android.content.ContentResolver"
   args(1) = "airplane_mode_on" 
   types(1) = "java.lang.String"
   state = Obj1.RunStaticMethod("android.provider.Settings$System", "getInt", args, types)   
   Msgbox(state,"Airplane mode on")
   ' change
   Dim args(3) As Object
   Dim types(3) As String   
   Obj1.Target = Obj1.GetContext
   Obj1.Target = Obj1.RunMethod("getContentResolver")
   args(0) = Obj1.Target
   types(0) = "android.content.ContentResolver"
   args(1) = "airplane_mode_on" 
   types(1) = "java.lang.String"
   args(2) = 1 ' 0 or 1
   types(2) = "java.lang.int"
   state = Obj1.RunStaticMethod("android.provider.Settings$System", "putInt", args, types)

 

[agraham]

You snuck that in while I was testing it And I forgot the Intent bit

 

[Erel]

Also the write permission which is not mentioned in the above link and is required.

 

[fabero]

You can do it with the help of the Reflection library.
This code toggles the airplane mode each time you click on the activity:

Sub Process_Globals

End Sub
Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)

End Sub

Sub SetAirplaneMode(On As Boolean)
    Dim p As Phone
    If on = GetAirplaneMode Then Return 'already in the correct state
    Dim r As Reflector
    Dim contentResolver As Object
    r.Target = r.GetContext
    contentResolver = r.RunMethod("getContentResolver")
    Dim state As Int
    If on Then state = 1 Else state = 0
    r.RunStaticMethod("android.provider.Settings$System", "putInt", _
        Array As Object(contentResolver, "airplane_mode_on", state), _
        Array As String("android.content.ContentResolver", "java.lang.String", "java.lang.int"))
    Dim i As Intent
    i.Initialize("android.intent.action.AIRPLANE_MODE", "")
    i.PutExtra("state", "" & On)
    p.SendBroadcastIntent(i)
End Sub

Sub GetAirplaneMode As Boolean
    Dim p As Phone
    Return p.GetSettings("airplane_mode_on") = 1
End Sub

Sub Activity_Click
    SetAirplaneMode(Not(GetAirplaneMode))
    Log(GetAirplaneMode)
End Sub
Sub Activity_Resume

End Sub

In order for it to work you should add the following declaration to the manifest file (just before the closing </manifest>):

<uses-permission android:name="android.permission.WRITE_SETTINGS"/>

See the PreferenceActivity tutorial for more information about modifying the manifest file: Basic4android Search: PreferenceActivity Tutorial

This code requires the Reflection and Phone libraries.

Thanks a lot, but how can set it off?

 

[Erel]

SetAirplaneMode(false)

 

[fabero]

SetAirplaneMode(false)

So if I want the two thing subsequentally, must do:

Sub Activity_Create(FirstTime As Boolean)
SetAirplaneMode()
SetAirplaneMode(false)
End Sub

 

[Erel]

If you want to turn airplane mode on the you should call:

SetAirplaneMode(True)

If you want to turn it off then you should call:

SetAirplaneMode(False)

Why would you want to turn it on and then immediately off?

 

[fabero]

If you want to turn airplane mode on the you should call:

SetAirplaneMode(True)

If you want to turn it off then you should call:

SetAirplaneMode(False)

Why would you want to turn it on and then immediately off?

Is useful to pacth a bug on a firmware for LG P500. (

So I want make an app, then loaded put on and off the airplane mode.

 

[Kamac]

Um. Why would you want to turn the airplane mode to off and on, while you could just switch it to on?

 

[fabero]

Um. Why would you want to turn the airplane mode to off and on, while you could just switch it to on?

Just ON, wait a bit for example 250ms, and put it off..

Another question:
I'm tryiing to set
<uses-permission android:name="android.permission.WRITE_SETTINGS"/>

but how I can set it? I change the xml, but it will be overwrited..

 

[Erel]

See this tutorial: http://www.b4x.com/forum/basic4andr...orials/10608-preferenceactivity-tutorial.html
It is explained in the beginning.

 

[fabero]

See this tutorial: http://www.b4x.com/forum/basic4andr...orials/10608-preferenceactivity-tutorial.html
It is explained in the beginning.

I read, but I don't understand. I only check don't overwrite?

 

[Erel]

Yes, you should modify the file and then choose Do Not Overwrite Manifest File.

 

[Deleted member 103]

Hi Erel,

This code works

Sub Activity_Resume

   'Einstellung für Flugmodus
   SetAirplaneMode(True)

End Sub

they do not, why?

Sub Activity_Pause (UserClosed As Boolean)
   If UserClosed Then
      'Einstellung für Flugmodus
      SetAirplaneMode(False)
   End If
End Sub

Flight mode is ON.
Tried with HTC Android-One-S 4.03

Ciao,
Filippo

 

[Erel]

I've just tried it on Android 4.1 and it works correctly. Did you press on the back button to close the activity?

Have you added this line to the manifest editor:

AddPermission(android.permission.WRITE_SETTINGS)

 

[Deleted member 103]

Have you added this line to the manifest editor:
Code:

AddPermission(android.permission.WRITE_SETTINGS)

Yes.

My Sub "Activity_Resume" looks like:

Sub Activity_Resume
   'Einstellung für Flugmodus
   Log("GetAirplaneMode=" & GetAirplaneMode & " ; cbxAirplane=" & manager.GetBoolean("cbxAirplane"))
   If manager.GetBoolean("cbxAirplane") <> GetAirplaneMode Then
      SetAirplaneMode(manager.GetBoolean("cbxAirplane"))
   End If
End Sub

 

[Deleted member 103]

Hi Erel,

This code works perfectly on my HTC Desire and an emulator (v4.0.3).
Only on my HTC-one-s not working.

Sub Activity_Resume
    'Einstellung f�r Flugmodus
    Log("GetAirplaneMode=" & GetAirplaneMode & " ; cbxAirplane=" & manager.GetBoolean("cbxAirplane"))
    If manager.GetBoolean("cbxAirplane") <> GetAirplaneMode Then
        SetAirplaneMode(manager.GetBoolean("cbxAirplane"))
    End If
End Sub

 

[Erel]

Maybe the new Sense layer breaks this API.