دانلود در ساعاتی مشخص

[KMOHAMMAD 10]

من یک لینک مستقیم توی برنامه ام گذاشته ام و میخام هم که این لینک در ساعاتی مشخص  فعال باشه
مثلا ساعت 10 تا 12 شب
چیکار کنم؟؟
اگر میشه با کد راهنمایی بفرم

[مجید آرتا 5,874]

سلام دوستم

شما برای اینکار لازمه که از برادکست رسیور استفاده کنید.به نوبه ای که میایید یک الارم منیجر رجیستر می کنید توی تایم خاصی این الارم منیجر در اون زمان اکشنی رو ارسال میکنه و ما به وسیله ی برادکست رسیور اون اکشن رو میگیریم و میگیم بر فرض با دریافت این اکشن اپ ما فلان سرویس رو ران کنه و دانلودی صورت بگیره

توی انجمن دو تا لینک میزارم بهشون رجوع کنید میتونید به جواب برسید.

 

 

https://answercenter.ir/files/file/123-کتابخانه-بسیار-کابردی-persianbroadcastreceiver/

 

 

 

[Mr Silence 137]

درود 

با php تایمو بگیر و اگه برار با ساعتی که میخوای بود لیبلو enable کن

[KMOHAMMAD 10]

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Label1 As Label
	Dim sg As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("main2")
	sg=DateTime.GetHour(DateTime.Now)&":"&DateTime.GetMinute(DateTime.Now)&":"& DateTime.GetSecond(DateTime.Now)
	Label1.Text=sg
		If 16 < DateTime.GetHour(DateTime.Now)And DateTime.GetHour(DateTime.Now) < 17 Then

  Log("زمان  درست نیست")

	End If
End Sub

برنامه افلاینه.

با کدهای بالا ساعت گوشی را گرفتم
حالا میخام بگم  اگر ساعت گوشی  مثلا بین 16 تا 17 بود
بیاد  و مثلا یه لینکی دانلود بشه
یعنی اون لینک فقط در بین ساعت 16 تا 17 قابل دانلود باشه

 

[Mr Silence 137]

Sub Globals
	Dim sg As String
	Dim HH As String = DateTime.GetHour(DateTime.Now)
	Dim link As String = "http://www.site.ir"
	
	
	Private Label1 As Label
	Private dwnlbl As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main2")

	dwnlbl.TextColor=Colors.Black
	Label1.TextColor=Colors.Red
	dwnlbl.text = "دانلود"
	sg=DateTime.GetHour(DateTime.Now)&":"&DateTime.GetMinute(DateTime.Now)&":"& DateTime.GetSecond(DateTime.Now)
	Label1.Text=sg
		
		
	If HH >= 16 And HH < 17 Then
		dwnlbl.Visible=True
		Log("زمان درست است")
		Else
		dwnlbl.Visible=False
		Log("زمان  درست نیست")
	End If
End Sub


Sub dwnlbl_Click
	Dim p As PhoneIntents
	StartActivity(p.OpenBrowser(link))
End Sub