با سلام و سپاس خدمت دوستان عزیز سایت یاهو ۹۸ YAHOO

 

برای جلوگیری ازتقلب و گول خوردن نرم افزار خیلی عالیه

 

 

Sub CheckAutoTime As Boolean
	Dim p As Phone
	Dim s As String
	If p.SdkVersion >= 17 Then s = "android.provider.Settings.Global" Else  s = "android.provider.Settings.System"
	Dim ctxt As JavaObject
	ctxt.InitializeContext
	Dim jo As JavaObject
	Return jo.InitializeStatic(s).RunMethod("getInt", Array(ctxt.RunMethod("getContentResolver", Null), "auto_time", 0)) = 1
End Sub

 

گرفتن رویداد ساب

 

If CheckAutoTime=True Then
					
				Log("AutoTime")
			Else
				Log("noAutoTime")
			End If