با سلام و سپاس خدمت دوستان عزیز

 

امروز بنا به در خواست یکی از دوستان تکه کدی رو نوشتیم که بتونید مثلا مثل تقویم باد صبا هنگام اذان قفل صفحه رو باز و اکتیویتی مورد نظرتون رو نمایش بدید

	Dim r As Reflector
	r.Target = r.GetActivity
	r.Target = r.RunMethod("getWindow")
	r.RunMethod2("addFlags", 6815872, "java.lang.int")
	Try
		r.SetField("addFlags", 6815872, "java.lang.int")
		
	Catch
		Log(LastException)
	End Try
	Dim pho As PhoneWakeState
	
'	pho.KeepAlive(False)
	
	pho.ReleaseKeepAlive

 

و با این ساب میتونید بعد از هر چند ثانیه خواستید فراخوانی کنید False کردن نور صفحه

 

پیشنهاد میشه تو یه ساب تایمر بزارید .

 

Private Sub clearFlags
	Dim r As Reflector
	r.Target = r.GetActivity
	r.Target = r.RunMethod("getWindow")
	r.RunMethod2("clearFlags", 6815872, "java.lang.int")
End Sub

 

موفق باشید .