با سپاس
خب اول باید یک سرویس بسازم
با استفاده از روش زیر
Project – Add New Module – Service Module.
پس از ساخت سرویس یک if روشن بودن یا نبودن اینترنت کاربر رو می گیریم و بعد داخل if اکتیویتی رو صدا می زنیم به همین سادگی
Dim jo As JavaObject
If jo.InitializeContext.RunMethod("chekwifi",Null)=False Then
Else
Dim Timer1 as timer
Timer1.Initialize("Timer1", 10000)
Timer1.Enabled = True
End If
Sub Timer1_Tick
CallSubDelayed2(activity name, "sub name", "chizi ke Mikhai befresti ")
End Sub