Sub Service_Start (StartingIntent As Intent)
DateTime.dateformat = "yyyy/MM/dd"
DateTime.TimeFormat= "HH:MM:ss"
StartServiceAt("", DateTime.now + 1 * DateTime.TicksPerMinute,True)
mydate=DateTime.date(DateTime.now)
mytime=DateTime.Time(DateTime.Now)
Dim InsertNewPossition As HttpJob
InsertNewPossition.Initialize("InsertNewPossition", Me)
InsertNewPossition.download2("http://www.mydomain.com/store.php", Array As String ("action", "InsertNewPossition", "user_name", myusername, "date", mydate, "time", mytime))
End Sub