Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim Sms As PhoneSms
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 SI_FUN_know As SmsInterceptor
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")
SI_FUN_know.Initialize2("SI_FUN_know", 999)
Sms.Send("+33xxxxx","FUN:A")
Msgbox("SMS FUN:A envoyé sur le numéro xxxxxx" ,"Suivi")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub SI_FUN_know_MessageReceived (From As String, Body As String) As Boolean
' SMS TEMP reçu
If From.Contains("768265746") = False Or Body.contains("Funzionamento") = False Then
Return False
End If
Msgbox("Message reçu du Comelec, Téléphone " & From & Chr(10) & "Contenu " & Body,"Suivi")
Activity.Finish
Return True
End Sub