رفتن به مطلب

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


salmana

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

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

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

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

 

مشکلی نداره 

 

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

عکس زیر

post-2709-0-41549000-1433689250_thumb.png

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

مشکلی نداره 

 

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

عکس زیر

 

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

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

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

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

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

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

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

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

 

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

 

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

کدش پایینه

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

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

#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

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

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

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

 

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

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

چرا ؟

 

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

سلام

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

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

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

 

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

 

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

 

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

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

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

 

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

 

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

 

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

 

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

 

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

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

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

http://farsinam.ir/

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

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

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

سلام

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

ببینم 

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

 

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

(Sub Activity_Create(FirstTime As Boolean

Try
(StartService(DownloadService
Catch
End Try

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

  • 1 ماه بعد...

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

xzn.ir

zgig.ir

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

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

با سلام

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

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

  • 2 ماه بعد...

سلام

دوستان من وقتی میخوام سرویس رو فراخوانی کنم از اکتیویتی 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

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

 

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

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

  • 7 ماه بعد...

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

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 یه وب ویو گذاشتم و وب ویو رو با بازار ست کردم

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

با سلام

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

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

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

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

با سلام

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

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

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

سلام

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

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

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

سلام

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

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

سلام

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

 

========

 

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

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

سلام

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

 

========

 

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

 

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

Dim nazar As AriaLib
nazar.NazarInCafebazaar("com.whatsapp")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

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

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