مشکل در نوتیفیکشن افلاین

[mehranarzani 39]

سلام دوستان خسته نباشید من میخوام وقتی کاربر وارد  برنامم شد براش نوتیفیکشن بره فقط برای یه بار

 

میشه لطف کنید کد نمایش یک بار رو برام درست کنید

		Dim noti As Notification
Dim uri As String
	Dim market As Intent

	uri = "https://telegram.me/danestanihayej" 'به جای این لینک ،لینک مورد نظرتون رو قرار بدید
	market.initialize(market.ACTION_VIEW , uri)
	noti.Initialize 
	noti.Icon = "icon"'
	noti.vibrate = True
	noti.sound = True
	noti.Insistent = False 
	noti.SetInfo( "لطفا نظر بدهید!","برای حمایت از ما حتما نظر بدهید!",market)
	noti.Notify(0) 
	

[mehranarzani 39]

منتظرم جوابم خواهشا کمکم کنید

[Amir - B 184]

 

سلام دوستان خسته نباشید من میخوام وقتی کاربر وارد  برنامم شد براش نوتیفیکشن بره فقط برای یه بار

 

میشه لطف کنید کد نمایش یک بار رو برام درست کنید

		Dim noti As Notification
Dim uri As String
	Dim market As Intent

	uri = "https://telegram.me/danestanihayej" 'به جای این لینک ،لینک مورد نظرتون رو قرار بدید
	market.initialize(market.ACTION_VIEW , uri)
	noti.Initialize 
	noti.Icon = "icon"'
	noti.vibrate = True
	noti.sound = True
	noti.Insistent = False 
	noti.SetInfo( "لطفا نظر بدهید!","برای حمایت از ما حتما نظر بدهید!",market)
	noti.Notify(0) 
	

 

 

میخواهید فقط یکبار نوتیفیکیشن اجرا بشه ؟

برای اینکار باید اول بگید اگه مثلا فلان فایل در فلان پوشه موجود نبود ، بیاد و نوتیفیکیشن رو اجرا کنه و یک فایل با همون اسم فلان در پوشه فلان درست کنه .

	
	If File.Exists(File.DirInternal,"noty.txt")=False Then

	        Dim noti As Notification
Dim uri As String
    Dim market As Intent

    uri = "https://telegram.me/danestanihayej" 'به جای این لینک ،لینک مورد نظرتون رو قرار بدید
    market.initialize(market.ACTION_VIEW , uri)
    noti.Initialize
    noti.Icon = "icon"'
    noti.vibrate = True
    noti.sound = True
    noti.Insistent = False
    noti.SetInfo( "لطفا نظر بدهید!","برای حمایت از ما حتما نظر بدهید!",market)
    noti.Notify(0) 
 

list1.Initialize


list1.Add("نویتیفیکیشن")
File.WriteList(File.DirInternal,"noty.txt",list1)
End If