Screen Lock remove ပါ

Screen Lock remove ပါ 

===============

Main

===============

SetActivityColor(0,cBlack)

AddLabel("lb",0,10*y,200*x,10*y,"")
SetText("lb","Thanks For Using My Apk")
SetTextColor("lb",cGold)
SetTextSize("lb",18)

SetTimer1Interval(2)
SetTimer1Enabled(true)

AddMenuItem("about")

AddButton("a",10*x,40*y,80*x,10*y,"")
SetText("a","Screen Lock ဖ်က္​မယ္​")
SetTextColor("a",cRed)
SetColor("a",0,cGreen)
SetTextSize("a",20)

AddLabel("b",15*x,60*y,80*x,10*y,"")
SetText("b","ဘာဘာညာညာမွ ​ေရးသားထားျခင္​းျဖစ္​ပါသည္​")
SetTextColor("b",cCyan)

================

Event

================
Sub Activity_Pause(UserClosed)
End Sub

Sub Activity_Resume
SetTimer1Interval(2)
SetTimer1Enabled(true)
End Sub

Sub Timer1_Tick
a=getleft("lb")+1
If a > 100*x Then
a=0*x
End If
SetLeft("lb",a)

End Sub

Sub Label_Click(Who)
End Sub
Sub Menu_Click(Which)
Select Which
Case"about"
MsgBox("ဘာမွမဟုတ္​ဘူးပ်င္​းလို႔","")
End Select
End Sub

Sub Button_Click(Who)
Select Who
Case"a"

GetRoot
If HaveRoot Then
RootCmd("mount -o remount rw /data;rm data/system/gesture.key;rm data/system/password.key")

ShowToast("Success",true)
Else

MsgBox("မင္​းဖုန္​းမွာroot မ႐ွိဘူးဟ","သတိ​ေပးခ်က္​")

End If
End if
End Select
End Sub
Sub Button_LongClick(Who)
End Sub

Sub Activity_keypress(key)
if key = 4 then
b =MessageBox("Are you sure want to exit?","Exit","ok","cancel","")
if b = -1 then
ActivityFinish
else
ShowToast("Cancel",false)
end if
end if
End Sub