#Region Project Attributes
#ApplicationLabel: SMS Detect
#VersionCode: 1
#VersionName: 1.0
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private pnMain As Panel
Private bnStart, bnStop As Button
Private lbStatus As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
pnMain.SetLayout((100%x - pnMain.Width) / 2, (100%y - pnMain.Height) / 3, pnMain.Width, pnMain.Height)
End Sub
Sub Activity_Resume
CallSubDelayed(Me, "UpdStatus")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
Dim Answ As Int
If (KeyCode = KeyCodes.KEYCODE_BACK) Then
Answ = Msgbox2("Do you want to Quit?", "A T T E N T I O N", "Yes", "", "No", Null)
If (Answ = DialogResponse.NEGATIVE) Then
Return True
End If
End If
Return False
End Sub
Sub bnStart_Click
If (IsPaused("smssvc")) Then StartService("smssvc")
CallSubDelayed(Me, "UpdStatus")
End Sub
Sub bnStop_Click
If (IsPaused("smssvc") = False) Then StopService("smssvc")
CallSubDelayed(Me, "UpdStatus")
End Sub
Sub UpdStatus
If (IsPaused("smssvc")) Then
lbStatus.Text = "Service Paused"
bnStart.Enabled = True
bnStart.TextColor = Colors.Black
bnStop.Enabled = False
bnStop.TextColor = Colors.RGB(200, 200, 200)
Else
lbStatus.Text = "Service Running"
bnStop.Enabled = True
bnStop.TextColor = Colors.Black
bnStart.Enabled = False
bnStart.TextColor = Colors.RGB(200, 200, 200)
End If
End Sub