تکه کد رفتن حالت هواپیما Airplane و بلعکس

با سپاس و درود 

 

با Function زیر میتونید گوشی رو روی حالت هواپیما Airplane بزارید.
اگه بهش True بفرستید میره حالت هواپیما و اگه False که از حالت هواپیما درمیاره

 

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

 

این Function برای بدست اوردن وضعیت Airplane گوشی استفاده میشه

 

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

با تشکر امید آقاخانی