ah313mad 34 ارسال شده در 17 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 17 خرداد، ۱۳۹۴ چجوری برای شما کار میکنه برای من که اصلا کار نمیکنه!!!!!!!! توی کدوم سایت آپلود کردین؟ مشکلی نداره فقط وقتی روش کلیک میکنی میره رو برنامه . متن رو داخل باکس یا یه صفحه جدا نشون نمیده عکس زیر لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
fileman 328 ارسال شده در 17 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 17 خرداد، ۱۳۹۴ مشکلی نداره فقط وقتی روش کلیک میکنی میره رو برنامه . متن رو داخل باکس یا یه صفحه جدا نشون نمیده عکس زیر توی کدوم سایت آپلود کردین؟ هاست اختصاصی دارین؟ یه سوال دیگه: لینک دانلود رو توی سورس گذاشتین؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ah313mad 34 ارسال شده در 17 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 17 خرداد، ۱۳۹۴ توی کدوم سایت آپلود کردین؟ هاست اختصاصی دارین؟ یه سوال دیگه: لینک دانلود رو توی سورس گذاشتین؟ من خودم سایت دارم . داخل سایت خودم اپلودش کردم آره لینکش داخله سورسه خودش نوشته لینک را اینجا قرار دهید . کدش پایینه 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 ارسال شده در 21 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 21 خرداد، ۱۳۹۴ سلام واسه من اصلا کار نمیکنه #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 ارسال شده در 21 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 21 خرداد، ۱۳۹۴ سلام واسه من اصلا کار نمیکنه چرا ؟ مگه چه مشکلی داره؟ توضیح بدید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ah313mad 34 ارسال شده در 21 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 21 خرداد، ۱۳۹۴ تشکر میکنم بابت سورسی که داخل انجمن گذاشتی میتونید یه کم توضیح بهم بدید . که وقتی روی نوتیفیکیشن کلیک میشه متن رو داخل یه صفحه از خود همون برنامه دید؟ الان وقتی روش کلیک میکنم میاد رو صفحه اول برنامه و هیچ متنی رو نشون نمیده لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
majid08 266 ارسال شده در 22 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 22 خرداد، ۱۳۹۴ چرا ؟ مگه چه مشکلی داره؟ توضیح بدید سلام نمیدونم سورس رو گذاشتم ببینید مشکلش چیه من فقط اون ادرس فایل رو عوض کردم؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
majid08 266 ارسال شده در 22 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 22 خرداد، ۱۳۹۴ نمیشه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
حمید زارع 331 ارسال شده در 22 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 22 خرداد، ۱۳۹۴ من متوجه نشدم چطور باید فایل رو روی هاست ویرایش کنیم اگه من یه فایل متنی مثلا روی Picofile داشته باشم نمیشه ادیتش کرد و باید حذف کرد و فایل جدید رو دوباره آپلود کرد و با این کار لینک عوض میشه میشه راهنمایی بفرمایید ؟؟؟؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ah313mad 34 ارسال شده در 22 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 22 خرداد، ۱۳۹۴ من متوجه نشدم چطور باید فایل رو روی هاست ویرایش کنیم اگه من یه فایل متنی مثلا روی Picofile داشته باشم نمیشه ادیتش کرد و باید حذف کرد و فایل جدید رو دوباره آپلود کرد و با این کار لینک عوض میشه میشه راهنمایی بفرمایید ؟؟؟؟ یا باید دسترسی ویرایش داشته باشید . یا هاست و دامین اختصاصی داشته باشید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab.es 5,429 ارسال شده در 22 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 22 خرداد، ۱۳۹۴ میتونی از سروس فارسی نام استفاده کنی http://farsinam.ir/ این لینک مستقیم میده شاید به دردت بخوره لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ah313mad 34 ارسال شده در 22 خرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 22 خرداد، ۱۳۹۴ سلام نمیدونم سورس رو گذاشتم ببینید مشکلش چیه من فقط اون ادرس فایل رو عوض کردم؟ ببینم سورس رو مستقیما که دانلود کردی اجرا کردی . ؟ یا به برنامه خودت انتقال دادی ؟؟؟؟ اگر انتقال دادی به برنامه خودت کد زیر رو بزار صفحه mainقسمت (Sub Activity_Create(FirstTime As Boolean (Sub Activity_Create(FirstTime As Boolean Try (StartService(DownloadService Catch End Try End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
محمد امین مهمان ارسال شده در 19 مرداد، ۱۳۹۴ اشتراک گذاری ارسال شده در 19 مرداد، ۱۳۹۴ واالله من در ابتدا میخاستم معرفی بکنم ولی خودت حرف از هاست زدی دیگه گفتم هاست دارین. حالا به ابتدای پست هم معرفیش میزارم xzn.ir zgig.ir هر دو مثل هم هستن سی پنلش هم مثل سی پنل هاستهایی است که میخرن. تمام چیزها رو داره با سلام ببخشید من توی zgigثبت نام کردم حالا چطوری و از کجا از طریق این هاست برای برنامه خودم خبر بفرستم که کاربر یتونه بخونه و استفاده کنه؟؟؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
qashqaie 19 ارسال شده در 19 مهر، ۱۳۹۴ اشتراک گذاری ارسال شده در 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 ارسال شده در 2 خرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 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 ارسال شده در 3 خرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 3 خرداد، ۱۳۹۵ با سلام میشه سورس این آموزش رو بام بزاری چون متوجه نشدم من این نوتیفیکیشن رو برای نظردهی به برنامه میخوام بیاد تا نظر ندهی فعال باشه بعد نظر دهی دیگه نیاد فقط برای یکبار بعد از نظردهی دیگه نمایش نده سلام کسی سورس این آموزش رو نداره من برای نظردهی میخوام ازش استفاده کنم اونم برای بار اول خب اگه کسی این سورس رو داره بزاره تا همه ازش استفاده کنن لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ah313mad 34 ارسال شده در 3 خرداد، ۱۳۹۵ اشتراک گذاری ارسال شده در 3 خرداد، ۱۳۹۵ سلام کسی سورس این آموزش رو نداره من برای نظردهی میخوام ازش استفاده کنم اونم برای بار اول خب اگه کسی این سورس رو داره بزاره تا همه ازش استفاده کنن سلام داداش سورس پست اول هست . میتونی دانلود کنی ======== میشه بگید چجوری میخوای واسه نظر دهی ازش استفاده کنید؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
salmana 174 ارسال شده در 5 خرداد، ۱۳۹۵ سازنده اشتراک گذاری ارسال شده در 5 خرداد، ۱۳۹۵ سلام داداش سورس پست اول هست . میتونی دانلود کنی ======== میشه بگید چجوری میخوای واسه نظر دهی ازش استفاده کنید؟ برای نظر دهی در مارکت بازار تیک کتابخانه Arialib را بزنید و کد پایین(توی پرانتز پکیج نیم خودتون را وارد کنید) Dim nazar As AriaLib nazar.NazarInCafebazaar("com.whatsapp") لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.