خبرنامه ( خیلی مفید)

[ah313mad 34]

چجوری برای شما کار میکنه

برای من که اصلا کار نمیکنه!!!!!!!!

توی کدوم سایت آپلود کردین؟

 

مشکلی نداره 

 

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

عکس زیر

[fileman 328]

مشکلی نداره 

 

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

عکس زیر

 

توی کدوم سایت آپلود کردین؟

هاست اختصاصی دارین؟

یه سوال دیگه: لینک دانلود رو توی سورس گذاشتین؟

[ah313mad 34]

توی کدوم سایت آپلود کردین؟

هاست اختصاصی دارین؟

یه سوال دیگه: لینک دانلود رو توی سورس گذاشتین؟

من خودم سایت دارم . داخل سایت خودم اپلودش کردم  

 

آره لینکش داخله سورسه 

 

خودش نوشته لینک را اینجا قرار دهید .

کدش پایینه

Sub Service_Start
 Try
	'URL and Target should be set by the calling module
	Dim request As HttpRequest
	URL = "http://XXXXXXXXXXXX.ir/open/khabar.txt" 'در اینجا آدرس فایل متنی را وارد کن
	Target = File.OpenOutput(File.DirInternal, "khabarname-contact.txt", False)
	request.InitializeGet(URL)
	HC.Execute(request, 1)
	JobStatus = STATUS_WORKING
	StartServiceAt("", DateTime.Now + 7200 * 1000, True) 'هر 2 ساعت یک بار سرویس را اجرا می کند
	Catch
	End Try
End Sub

[majid08 266]

سلام

واسه من اصلا کار نمیکنه

#Region Module Attributes
	#StartAtBoot: True
#End Region

'Service module
Sub Process_Globals

	Dim HC As HttpClient
	'Activity is expected to set URL
	Dim URL As String
	Dim Target As OutputStream
	Dim JobStatus As Int
	Dim STATUS_NONE, STATUS_WORKING, STATUS_DONE As Int
	STATUS_NONE = 0
	STATUS_WORKING = 1
	STATUS_DONE = 2
	Dim DoneSuccessfully As Boolean
	Dim Newsletter_no As String
	Dim Newsletter_title As String
	Dim Newsletter_body As String
	Dim n As Notification
End Sub
Sub Service_Create


	HC.Initialize("HC")
	If File.Exists(File.DirInternal,"mahekhoda_Newsletter_no.txt")=False Then
 	 	File.WriteString(File.DirInternal , "mahekhoda_Newsletter_no.txt" , "0")
	End If
End Sub

Sub Service_Start
 Try
	'URL and Target should be set by the calling module
	Dim request As HttpRequest
	URL = "http://www.noti1.xzn.ir/open/khabarname.txt" 'در اینجا آدرس فایل متنی را وارد کن
	Target = File.OpenOutput(File.DirInternal, "khabarname-contact.txt", False)
	request.InitializeGet(URL)
	HC.Execute(request, 1)
	JobStatus = STATUS_WORKING
	StartServiceAt("", DateTime.Now + 10 * 1000, True) 'هر 2 ساعت یک بار سرویس را اجرا می کند
	Catch
	End Try
End Sub


Sub HC_ResponseError (Reason As String, StatusCode As Int, TaskId As Int)
	'ToastMessageShow("Error downloading file: " & Reason, True)
	DoneSuccessfully = False
	Finish
End Sub

Sub HC_ResponseSuccess (Response As HttpResponse, TaskId As Int)
	'Asynchronously download the stream
	Response.GetAsynchronously("Response", Target, True, TaskId)
End Sub

Sub Response_StreamFinish (Success As Boolean, TaskId As Int)
	If Success = False Then
		'ToastMessageShow("Error downloading file: " & LastException.Message, True)
	Else
		'ToastMessageShow("Download successfully.", True)
	End If
	DoneSuccessfully = Success
	Finish
End Sub

Sub Finish
	Log("Service finished downloading")
	JobStatus = STATUS_DONE
	If DoneSuccessfully = True Then
		check_newsletter ' پس از دانلود چک کن خبرنامه جدید آمده یا نه
	End If
	JobStatus = STATUS_NONE
End Sub

Sub Service_Destroy

End Sub

Sub check_newsletter
Try
    Dim list1 As List
	list1=File.ReadList(File.DirInternal, "khabarname-contact.txt")
	Newsletter_no= list1.Get(0) ' شماره خبرنامه جدید
If   File.GetText(File.DirInternal,"mahekhoda_Newsletter_no.txt") < Newsletter_no Then 'اگر خبرنامه جدید آمده بود
	Newsletter_title=list1.Get(1) ' خط دوم عنوان خبرنامه
	Newsletter_body = list1.Get(2) 'خط سوم متن خبرنامه
	File.WriteString(File.DirInternal , "mahekhoda_Newsletter_no.txt" , Newsletter_no)
' در پایین دستورات مورد نظر رو بنویس	
n.Initialize
n.Icon="icon"
n.Sound=True
n.SetInfo(Newsletter_title,Newsletter_body,"Main")
n.Notify(1)

End If	
	Catch
	End Try
End Sub

[ah313mad 34]

 

سلام

واسه من اصلا کار نمیکنه

 

چرا ؟

 

مگه چه مشکلی داره؟ توضیح بدید

[ah313mad 34]

تشکر میکنم بابت سورسی که داخل انجمن گذاشتی

میتونید یه کم توضیح بهم بدید . که وقتی روی نوتیفیکیشن کلیک میشه متن رو داخل یه صفحه از خود همون برنامه دید؟

 

الان وقتی روش کلیک میکنم میاد رو صفحه اول برنامه و هیچ متنی رو نشون نمیده

[majid08 266]

چرا ؟

 

مگه چه مشکلی داره؟ توضیح بدید

سلام

نمیدونم سورس رو گذاشتم ببینید مشکلش چیه من فقط اون ادرس فایل رو عوض کردم؟

[majid08 266]

نمیشه

[حمید زارع 331]

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

 

اگه من یه فایل متنی مثلا روی Picofile داشته باشم نمیشه ادیتش کرد

 

و باید حذف کرد و فایل جدید رو دوباره آپلود کرد و با این کار لینک عوض میشه

 

میشه راهنمایی بفرمایید ؟؟؟؟

[ah313mad 34]

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

 

اگه من یه فایل متنی مثلا روی Picofile داشته باشم نمیشه ادیتش کرد

 

و باید حذف کرد و فایل جدید رو دوباره آپلود کرد و با این کار لینک عوض میشه

 

میشه راهنمایی بفرمایید ؟؟؟؟

 

یا باید دسترسی ویرایش داشته باشید .

 

یا هاست و دامین اختصاصی داشته باشید

[shahab.es 5,429]

میتونی از سروس فارسی نام استفاده کنی

http://farsinam.ir/

این لینک مستقیم میده

شاید به دردت بخوره

[ah313mad 34]

سلام

نمیدونم سورس رو گذاشتم ببینید مشکلش چیه من فقط اون ادرس فایل رو عوض کردم؟

ببینم 

سورس رو مستقیما که دانلود کردی اجرا کردی . ؟ یا به برنامه خودت انتقال دادی ؟؟؟؟

 

اگر انتقال دادی به برنامه خودت  کد زیر رو بزار صفحه mainقسمت (Sub Activity_Create(FirstTime As Boolean

(Sub Activity_Create(FirstTime As Boolean

Try
(StartService(DownloadService
Catch
End Try

End Sub

[محمد امین مهمان]

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

xzn.ir

zgig.ir

هر دو مثل هم هستن

سی پنلش هم مثل سی پنل هاستهایی است که میخرن. تمام چیزها رو داره

با سلام

ببخشید من توی zgigثبت نام کردم حالا چطوری و از کجا از طریق این هاست برای برنامه خودم  خبر بفرستم که کاربر یتونه بخونه و استفاده کنه؟؟؟

[qashqaie 19]

سلام

دوستان من وقتی میخوام سرویس رو فراخوانی کنم از اکتیویتی Main،موقع اجرای برنامه فورس کلوز میشه!

نمونه کد فراخوانی سرویس:

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Splash")
	timer1.Initialize ("timer1",50)
	timer1.Enabled =True
	
	StartService(work)
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Splash")
	timer1.Initialize ("timer1",50)
	timer1.Enabled =True
	try
	StartService(work)
catch
try end
End Sub

 در هر دو صورت موقع اجرا فورس کلوز میشه برنامه،اما به محض اینکه کد فراخوانی سرویس رو بر می دارم،برنامه راحت اجرا میشه!

 

دلیلش چی میتونه باشه؟! آیا نحوه فراخوانی برنامه درسته؟

[msms 2]

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

Sub Globals
Dim notify As Notification

Sub Activity_Create(FirstTime As Boolean)
notify.Initialize notify.Icon="icon" notify.Light= True notify.OnGoingEvent = True notify.Vibrate = True notify.SetInfo("نرم افزار های دیگر","دانلود بقیه نرم افزار های جذاب",bazar) notify.notify(1)

تو سورس بالا منظور من از bazar یه module بود به اسم بازار که تو این module یه وب ویو گذاشتم و وب ویو رو با بازار ست کردم

امید وارم استفاده کنی

با سلام

میشه سورس این آموزش رو بام بزاری چون متوجه نشدم

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

بیاد تا نظر ندهی فعال باشه بعد نظر دهی دیگه نیاد فقط برای یکبار بعد از نظردهی دیگه نمایش نده

[msms 2]

با سلام

میشه سورس این آموزش رو بام بزاری چون متوجه نشدم

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

بیاد تا نظر ندهی فعال باشه بعد نظر دهی دیگه نیاد فقط برای یکبار بعد از نظردهی دیگه نمایش نده

سلام

کسی سورس این آموزش رو نداره من برای نظردهی میخوام ازش استفاده کنم اونم برای بار اول

خب اگه کسی این سورس رو داره بزاره تا همه ازش استفاده کنن

[ah313mad 34]

سلام

کسی سورس این آموزش رو نداره من برای نظردهی میخوام ازش استفاده کنم اونم برای بار اول

خب اگه کسی این سورس رو داره بزاره تا همه ازش استفاده کنن

سلام

داداش سورس پست اول هست . میتونی دانلود کنی

 

========

 

میشه بگید چجوری میخوای واسه نظر دهی ازش استفاده کنید؟

[salmana 174]

سلام

داداش سورس پست اول هست . میتونی دانلود کنی

 

========

 

میشه بگید چجوری میخوای واسه نظر دهی ازش استفاده کنید؟

 

برای نظر دهی در مارکت بازار تیک کتابخانه Arialib را بزنید و کد پایین(توی پرانتز پکیج نیم خودتون را وارد کنید)

Dim nazar As AriaLib
nazar.NazarInCafebazaar("com.whatsapp")