'Main
StartServiceAt(GpsActivo, DateTime.Now + minutos * DateTime.TicksPerMinute, True)
'Servicio
#Region Service Attributes
#StartAtBoot: true
#StartCommandReturnValue: android.app.Service.START_STICKY
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Public GPS As GPS
Public lat As String
Public lon As String
End Sub
Sub Service_Create
GPS.Initialize("GPS")
End Sub
Sub Service_Start (StartingIntent As Intent)
minutos = 1
Main.request.Download2("http://xxx/gps/WS/send_position.php", Array As String( "lat", lat, "lon", lon, "user", "test"))
End Sub
Sub GPS_LocationChanged (Parametro As Location)
lat = Parametro.Latitude
lon = Parametro.Longitude
End Sub
Sub Service_Destroy
End Sub
Sub JobDone (Job As HttpJob)
Dim confirmar As String
confirmar = Job.GetString
If Job.Success = True Then
Select Job.JobName
Case "request"
ToastMessageShow("L.L Registrado", True)
End Select
Else
'Log("Error: " & Job.ErrorMessage)
ToastMessageShow("N.L.L Detected", True)
End If
Job.Release
End Sub