اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


pourya-man

بررسی برای نسخه جدید هنگام شروع برنامه

35 ارسال در این موضوع قرار دارد

سلام ، قبلا این یک تاپیک پرسشی بود که به نتیجه رسید و نتیجه شو اینجا میذارم که بقیه دوستان هم استفاده کنند. باتشکر از همه کسایی که پاسخ دادند

این آموزش توسط دوست عزیز hakan22 انجام شده.

تو سرور فایل php با محتویات زیر درست میکنیم

<?php
print json_encode ("1.0.1");
 ?>

بعد تو اکتیویتی اصلیتون این کد رو قرار میدید

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

End Sub


Sub Activity_Create(FirstTime As Boolean)
	TestConnection
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub TestConnection
	Dim Connect As HttpJob
	Connect.Initialize("Connect", Me)
	Connect.Download("http://phoneplus.ir/mobilepourya/NewVersion/Update.php")
	ProgressDialogShow("در حال بررسی بروزرسانی")
End Sub

Sub JobDone (Job As HttpJob)
	ProgressDialogHide
	If Job.Success = True Then
		Dim ret As String 
		ret = Job.GetString 
		Dim parser As JSONParser
        parser.Initialize(ret)		
		If Job.JobName = "Connect" Then
			Dim act As String = parser.NextValue
			If act = "2.1" Then
				ToastMessageShow("شما از آخرین نسخه استفاده میکنید", True)
			Else
			Dim a As Int
				a = Msgbox2("نسخه جدید برنامه ارائه شده ، مایل به بروزرسانی هستید؟","بروزرسانی","بروزرسانی","خیر","",Null)
				If (a = DialogResponse.POSITIVE) Then
				StartActivity(update)	
			End If		
		End If
	Else
		ToastMessageShow("امکان بررسی وجود ندارد، اتصال اینترنت خودرا چک کنید", True)	
	End If
	End If
	Job.Release
End Sub

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

 

یک اکتیویتی آپدیت درست میکنید و این کد ها رو میذارید داخلش

سورس پیوست شد

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region


Sub Process_Globals
    Private hc As HttpClient
    Private req As HttpRequest
End Sub


Sub Globals


End Sub


Sub Activity_Create(FirstTime As Boolean)


    ProgressDialogShow("درحال بررسی فایل")


hc.Initialize("hc")


req.InitializeGet("https://www.sitesazparsi.ir/AppA/navid-decoration.apk")
hc.Execute(req, 1)


End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause(UserClosed As Boolean)


End Sub


Sub hc_ResponseSuccess(Response As HttpResponse, TaskId As Int)


    Response.GetAsynchronously("GetAPK", File.OpenOutput(File.DirDefaultExternal, "navid-decoration.apk", False), True, TaskId)


End Sub


Sub hc_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)


    Msgbox(Reason, "خطا هنگام دریافت فایل")


End Sub


Sub GetAPK_StreamFinish(Success As Boolean, TaskId As Int)

    If Success Then

  Private i As Intent
      
ProgressDialogHide

i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirDefaultExternal, "navid-decoration.apk"))
       i.SetType("application/com.tahael.naviddec")
       
StartActivity(i)

End If

End Sub

newverchek.zip

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


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

کد های زیر مال آپدیت دیتا بیسه که تغیرش دادم :mail1:

Sub btnUpdate_Click
Dim ht As HttpJob
ht.Initialize("update",Me)
ProgressDialogShow("updating")
ht.Download("آدرس محل برنامه آپلود شده")
End Sub

سپس یه Sub مینویسیم

Sub JobDone(Job As HttpJob)
ProgressDialogHide
 If Job.Success Then
  If Job.JobName = "update" Then
   File.Delete(File.DirInternal,"(نام فایل نصبی نسخه قبل(در صورت وجود داشتن.APK")
   File.OpenOutput(File.DirInternal,"نام فایل نسخه جدید.APK",False)
  End If
 End If
End Sub

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


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

بفرما اینم جواب  :pardon:

دو تا اتفاق میوفته یا گوشی طرف منفجر میشه یا کدا کار میکنن :oops:  :lol:

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


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

به جای فایل تکست از دیتابیس استفاده کن و از طریق پست فقط یه رکورد رو بخون خیلی سریعتره

راحته که :pardon:

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


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

کد های زیر مال آپدیت دیتا بیسه که تغیرش دادم :mail1:

Sub btnUpdate_Click
Dim ht As HttpJob
ht.Initialize("update",Me)
ProgressDialogShow("updating")
ht.Download("آدرس محل برنامه آپلود شده")
End Sub
سپس یه Sub مینویسیم

Sub JobDone(Job As HttpJob)
ProgressDialogHide
 If Job.Success Then
  If Job.JobName = "update" Then
   File.Delete(File.DirInternal,"(نام فایل نصبی نسخه قبل(در صورت وجود داشتن.APK")
   File.OpenOutput(File.DirInternal,"نام فایل نسخه جدید.APK",False)
  End If
 End If
End Sub

دمتگرم منتها مشکل دانلود نیست ، من دانلود نسخه جدید رو حل کردم مشکل چک کردن نسخه جدیده ک چک نمیکنه

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


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

به جای فایل تکست از دیتابیس استفاده کن و از طریق پست فقط یه رکورد رو بخون خیلی سریعتره

راحته که :pardon:

چطوری؟ بلد نیستم :)

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


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

این که خیلی پیچیده شد

میتونید با همینایی ک نوشتید یه سورس بهم بدید که چک کنه ورژن جدید رو

حالا با هر روشی که شد

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

همین

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


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

این که خیلی پیچیده شد

میتونید با همینایی ک نوشتید یه سورس بهم بدید که چک کنه ورژن جدید رو

حالا با هر روشی که شد

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

همین

هموطن شما هاستو سی پنلو یه دونه دیتابیس که دارین قطعا؟

 

حالا کافیه یه تبل بسازیرن که دوتا فیلد یه دونه id از نوع اینت که همون فیلد اصلیه و یه دونه هم مثلا version از نوع اینت دو باره

اول ورژن فعلی برنامه رو بریزین تو یه متغیر مثلا oldversion

حالا فقط تو jobdone   اینارو بنویس

Dim newversion As Int
	If job.Success Then
		newversion=job.GetString
		If newversion-oldvesion>0 Then
			ToastMessageShow("update found",False)
		End If
	End If

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

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


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

دانلود یک مسیر در هر بار باز شدن برنامه زیاد اصولی و حرفه ای به نظر نمیاد :malih: پیشنهاد میکنم از توسعه یار استفاده کنید این امکان را با gcm ارائه میده :53:

http://toseeyar.com

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


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

داداش این کتابخانه qls رو برام بذار ندارمش

شرمنده یادم رفت بزارم 

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

qls.rar

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


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

دانلود یک مسیر در هر بار باز شدن برنامه زیاد اصولی و حرفه ای به نظر نمیاد :malih: پیشنهاد میکنم از توسعه یار استفاده کنید این امکان را با gcm ارائه میده :53:

http://toseeyar.com

چطوری باید استفاده کنم ؟

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

نسخه جدید رو از کجا پیدا میکنه ؟

دانلودش به چه شکل هست؟

یه توضیحی میدادید ممنون میشدم

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


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

کتاب خونشو ادد کنید به برنامتون کلاسش هم اد کنید تو پروژتون

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

If datas.GetExtra("type")=types.TYPE_NEWVERSION Then
If datas.GetExtra(newVersionExtras.STATUS)="1" Then
'دانلود کردن اجباری است ، یعنی میتوانید مقداری را ذخیره سازی کنید تا موقع ورود دیگر اجازه ی استفاده از برنامه شما را میسر نباشد
Dim link As String=datas.GetExtra(newVersionExtras.LINK)
Dim i As Intent:i.Initialize(i.ACTION_VIEW,link)
StartActivity(i)
else if datas.GetExtra(newVersionExtras.STATUS)="2" Then
'دانلود اختیاری است
Dim link As String=datas.GetExtra(newVersionExtras.LINK)
Dim i As Intent:i.Initialize(i.ACTION_VIEW,link)
StartActivity(i)
End If
End If

برای دریافت نسخه جدید استفاده کنید

تو سورس بالا همه چیز مشخصه

این لینک برنامتون هست :

datas.GetExtra(newVersionExtras.LINK)

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

 

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

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


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

ksoi

 

کتاب خونشو ادد کنید به برنامتون کلاسش هم اد کنید تو پروژتون

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

If datas.GetExtra("type")=types.TYPE_NEWVERSION Then
If datas.GetExtra(newVersionExtras.STATUS)="1" Then
'دانلود کردن اجباری است ، یعنی میتوانید مقداری را ذخیره سازی کنید تا موقع ورود دیگر اجازه ی استفاده از برنامه شما را میسر نباشد
Dim link As String=datas.GetExtra(newVersionExtras.LINK)
Dim i As Intent:i.Initialize(i.ACTION_VIEW,link)
StartActivity(i)
else if datas.GetExtra(newVersionExtras.STATUS)="2" Then
'دانلود اختیاری است
Dim link As String=datas.GetExtra(newVersionExtras.LINK)
Dim i As Intent:i.Initialize(i.ACTION_VIEW,link)
StartActivity(i)
End If
End If

برای دریافت نسخه جدید استفاده کنید

تو سورس بالا همه چیز مشخصه

این لینک برنامتون هست :

datas.GetExtra(newVersionExtras.LINK)

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

 

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

 

نسخه جدید رو از کجا چک میکنه ؟

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

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


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

ksoi

 

 

نسخه جدید رو از کجا چک میکنه ؟

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

 

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

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


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

با این روش هم بدون واسطه میتونین انجام بدید

یک فایل php تو هاست با این محتویات میسازیم

<?php
print json_encode ("1.0.1");
 ?>

به جای 1.0.1 ورژن برنامه

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

Sub Activity_Create(FirstTime As Boolean)
	TestConnection	
End Sub

Sub TestConnection
	Dim Connect As HttpJob
	Connect.Initialize("Connect", Me)
	Connect.Download("http://youresite.ir/app/connect.php")
	ProgressDialogShow("در حال بررسی بروزرسانی")
End Sub

Sub JobDone (Job As HttpJob)
	ProgressDialogHide
	If Job.Success = True Then
		Dim ret As String 
		ret = Job.GetString 
		Dim parser As JSONParser
        parser.Initialize(ret)		
		If Job.JobName = "Connect" Then
			Dim act As String = parser.NextValue
			If act = "1.0.1" Then
				ToastMessageShow("شما از آخرین نسخه برنامه ما استفاده میکنید", True)
			End If		
		End If
	Else
		ToastMessageShow("با موفقیت انجام نشد و برنامه بسته شد", True)	
		ExitApplication
	End If
	Job.Release
End Sub

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

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


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

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

به جای ExitApplication

یک اکتیویتی لود کنید و کدهای زیر را داخلش قرار بدید

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region


Sub Process_Globals
    Private hc As HttpClient
    Private req As HttpRequest
End Sub


Sub Globals


End Sub


Sub Activity_Create(FirstTime As Boolean)


    ProgressDialogShow("درحال بررسی فایل")


hc.Initialize("hc")


req.InitializeGet("https://www.sitesazparsi.ir/AppA/navid-decoration.apk")
hc.Execute(req, 1)


End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause(UserClosed As Boolean)


End Sub


Sub hc_ResponseSuccess(Response As HttpResponse, TaskId As Int)


    Response.GetAsynchronously("GetAPK", File.OpenOutput(File.DirDefaultExternal, "navid-decoration.apk", False), True, TaskId)


End Sub


Sub hc_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)


    Msgbox(Reason, "خطا هنگام دریافت فایل")


End Sub


Sub GetAPK_StreamFinish(Success As Boolean, TaskId As Int)

    If Success Then

  Private i As Intent
      
ProgressDialogHide

i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirDefaultExternal, "navid-decoration.apk"))
       i.SetType("application/com.tahael.naviddec")
       
StartActivity(i)

End If

End Sub

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


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

با این روش هم بدون واسطه میتونین انجام بدید

یک فایل php تو هاست با این محتویات میسازیم

<?php
print json_encode ("1.0.1");
 ?>

به جای 1.0.1 ورژن برنامه

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

Sub Activity_Create(FirstTime As Boolean)
	TestConnection	
End Sub

Sub TestConnection
	Dim Connect As HttpJob
	Connect.Initialize("Connect", Me)
	Connect.Download("http://youresite.ir/app/connect.php")
	ProgressDialogShow("در حال بررسی بروزرسانی")
End Sub

Sub JobDone (Job As HttpJob)
	ProgressDialogHide
	If Job.Success = True Then
		Dim ret As String 
		ret = Job.GetString 
		Dim parser As JSONParser
        parser.Initialize(ret)		
		If Job.JobName = "Connect" Then
			Dim act As String = parser.NextValue
			If act = "1.0.1" Then
				ToastMessageShow("شما از آخرین نسخه برنامه ما استفاده میکنید", True)
			End If		
		End If
	Else
		ToastMessageShow("با موفقیت انجام نشد و برنامه بسته شد", True)	
		ExitApplication
	End If
	Job.Release
End Sub

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

 

 

مهدنس دمتگرم منتها ارور میده برنامه بسته میشه

اینم لوگ

LogCat connected to: 04ddbdc99648c1c7
--------- beginning of system
--------- beginning of main
** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Service (httputils2service) Create **
** Service (httputils2service) Start **
httputils2service_hc_responsesuccess (java line: 180)
java.lang.ClassCastException: java.lang.Object cannot be cast to com.phoneplus.mobilepourya.downloadservice$_jobtag
	at com.phoneplus.mobilepourya.httputils2service._hc_responsesuccess(httputils2service.java:180)
	at java.lang.reflect.Method.invoke(Native Method)
	at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
	at anywheresoftware.b4a.BA$2.run(BA.java:328)
	at android.os.Handler.handleCallback(Handler.java:739)
	at android.os.Handler.dispatchMessage(Handler.java:95)
	at android.os.Looper.loop(Looper.java:148)
	at android.app.ActivityThread.main(ActivityThread.java:5422)
	at java.lang.reflect.Method.invoke(Native Method)
	at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:726)
	at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:616)
--------- beginning of crash
** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Service (httputils2service) Create **
** Service (httputils2service) Start **
httputils2service_hc_responsesuccess (java line: 180)
java.lang.ClassCastException: java.lang.Object cannot be cast to com.phoneplus.mobilepourya.downloadservice$_jobtag
	at com.phoneplus.mobilepourya.httputils2service._hc_responsesuccess(httputils2service.java:180)
	at java.lang.reflect.Method.invoke(Native Method)
	at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
	at anywheresoftware.b4a.BA$2.run(BA.java:328)
	at android.os.Handler.handleCallback(Handler.java:739)
	at android.os.Handler.dispatchMessage(Handler.java:95)
	at android.os.Looper.loop(Looper.java:148)
	at android.app.ActivityThread.main(ActivityThread.java:5422)
	at java.lang.reflect.Method.invoke(Native Method)
	at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:726)
	at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:616)
** Service (starter) Create **
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Service (httputils2service) Create **
** Service (httputils2service) Start **
httputils2service_hc_responsesuccess (java line: 180)
java.lang.ClassCastException: java.lang.Object cannot be cast to com.phoneplus.mobilepourya.downloadservice$_jobtag
	at com.phoneplus.mobilepourya.httputils2service._hc_responsesuccess(httputils2service.java:180)
	at java.lang.reflect.Method.invoke(Native Method)
	at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
	at anywheresoftware.b4a.BA$2.run(BA.java:328)
	at android.os.Handler.handleCallback(Handler.java:739)
	at android.os.Handler.dispatchMessage(Handler.java:95)
	at android.os.Looper.loop(Looper.java:148)
	at android.app.ActivityThread.main(ActivityThread.java:5422)
	at java.lang.reflect.Method.invoke(Native Method)
	at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:726)
	at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:616)

این هم سورس

#Region  Project Attributes 
	#ApplicationLabel: موبایل پوریا
	#VersionCode: 1
	#VersionName: 1
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#End Region

Sub Process_Globals

End Sub

Sub Globals
	Dim timer1 As Timer
	Dim anim As Animation
	Dim ver As String
	Dim tx As String
	Dim a As Int
	Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("splash")
	ver = File.ReadString(File.DirAssets,"mpverlist.txt")
	timer1.Initialize("timer1",3000)
	timer1.Enabled=True
	If mycode.CheckInternet Then
	TestConnection	
	End If
End Sub

Sub timer1_tick
	timer1.Enabled=False
	StartActivity("start")
	Activity.Finish
End Sub

Sub TestConnection
	Dim Connect As HttpJob
	Connect.Initialize("Connect", Me)
	Connect.Download("http://phoneplus.ir/mobilepourya/NewVersion/Update.php")
	ProgressDialogShow("در حال بررسی بروزرسانی")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub JobDone (Job As HttpJob)
	ProgressDialogHide
	If Job.Success = True Then
		Dim ret As String 
		ret = Job.GetString 
		Dim parser As JSONParser
        parser.Initialize(ret)		
		If Job.JobName = "Connect" Then
			Dim act As String = parser.NextValue
			If act = "1.0.1" Then
				ToastMessageShow("شما از آخرین نسخه برنامه ما استفاده میکنید", True)
			End If		
		End If
	Else
		ToastMessageShow("با موفقیت انجام نشد و برنامه بسته شد", True)	
	End If
	Job.Release
End Sub

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری