#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 simcard As PhoneId
Dim envia As PhoneSms
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
Dim serie, id, serie_sim As String
Dim numero, telefono As Int
serie="356489053680703"
serie_sim="8952031105919788624"
If simcard.GetDeviceId=serie Then
If simcard.GetSimSerialNumber<>serie_sim Then
numero=simcard.GetLine1Number
ToastMessageShow("Robaeste este telefono",True)
'envia.Send("6721206015",simcard.GetLine1Number)
End If
Else
ToastMessageShow("La aplicacion no funciona en este telefono",True)
End If
StartServiceAt("", DateTime.Now + 10 * DateTime.TicksPerSecond, True)
End Sub
Sub Service_Destroy
End Sub