Bluetooth on/off no neet root

Bluetooth on/off no neet root
*******************************
ခလုပ္ကိုႏႈိပ္တာနဲ႔ဘလုတုဖြင့္မလားေမးမယ္ေနာက္ပီးactivity finishကိုလဲအျမင္ဆန္းေအာင္ShowToastေလးနဲ႔တစ္ခ်က္ထပ္ႏႈိပ္ပါကထြက္သြားမယ္ဆိုတဲ႔ပံုစံေလးနဲ႔ျပေပးထားပါတယ္။တျခားေနရာေတမွာသံုးေပါ့။
main
******
SetActivityTitle("bluetooth")
SetActivityColor(0,cBeige)

AddButton("btn1",51,562,608,179,"")
SetText("btn1","Bluetooth on")
SetTextColor("btn1",cblue)
SetColor("btn1", 90, cred)

num=1

event
******
Sub Activity_Pause(UserClosed)
End Sub

Sub Activity_Resume
SetTimer1Enabled(true)
End Sub

Sub Activity_KeyPress(key)

If key=4 Then

If num=1 Then

ShowToast("Press one more time to exit!",true)

SetTimer1Enabled(true)
SetTimer1Interval(3000)

num=num+1

Else If num=2 Then

ActivityFinish

End If

End If

End Sub

Sub Timer1_Tick

If num=2 Then
SetTimer1Enabled(false)
num=1

End If

End Sub

Sub Button_Click(Who)
select who

case"btn1"
intent_main("com.mediatek.bluetooth/com.mediatek.bluetooth.bpp.BluetoothBppEntryActivity")

end select
end sub

Sub Button_LongClick(Who)
End Sub