رفتن به مطلب
  • 0

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


KMOHAMMAD

سوال

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام دوستم

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

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

 

 

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

 

 

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

درود 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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 قابل دانلود باشه

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...