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

[pourya-man 33 کاربر عادی]

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

این آموزش توسط دوست عزیز 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

[hakan22 39 کاربر عادی]

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

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

http://s7.picofile.com/file/8253061618/Mobile_Pourya.zip.html

مشکل از httpulit2 بود.

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

وقتی کاربر از برنامه خارج میشه همچنان دانلود ادامه داره .

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

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

لینک دانلود:https://www.sitesazparsi.ir/AppA/mobilepourya.zip

تا دو ساعت دیگه از رو سرور حذف میشه.

 

مشکلی بود در خدمتم

(2 ساعت روش وقت گذاشتم .خخخخ)

[Amir Hosain Zarei 6 کاربر عادی]

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

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

[Amir Hosain Zarei 6 کاربر عادی]

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

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

[محمدرضا شاهپیری 3,621 معاون انجمن]

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

راحته که

[pourya-man 33 کاربر عادی]

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

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

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

[pourya-man 33 کاربر عادی]

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

راحته که

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

[محمدرضا شاهپیری 3,621 معاون انجمن]

بفرما آموزششو درست کردم

 

http://answercenter.ir/topic/13707-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-%DA%A9%D9%88%D8%A6%D8%B1%DB%8C-%D8%B3%D9%85%D8%AA-%D8%B3%D8%B1%D9%88%D8%B1-%D9%88-%D8%AF%D8%B1%DB%8C%D8%A7%D9%81%D8%AA-%D8%A7%D8%B7%D9%84%D8%A7%D8%B9%D8%A7%D8%AA-%D8%A7%D8%B2-%D8%B7%D8%B1/

[pourya-man 33 کاربر عادی]

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

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

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

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

همین

[RoyaPM 536 کاربر فعال]

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

[محمدرضا شاهپیری 3,621 معاون انجمن]

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

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

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

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

همین

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

 

حالا کافیه یه تبل بسازیرن که دوتا فیلد یه دونه 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

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

[pourya-man 33 کاربر عادی]

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

[حسن قاسمی نیا 546 کاربر فعال]

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

http://toseeyar.com

[محمدرضا شاهپیری 3,621 معاون انجمن]

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

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

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

qls.rar

[pourya-man 33 کاربر عادی]

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

http://toseeyar.com

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

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

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

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

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

[حسن قاسمی نیا 546 کاربر فعال]

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

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

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 کار کرده باشید کار خیلی ساده ای هست .

 

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

[pourya-man 33 کاربر عادی]

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 کار کرده باشید کار خیلی ساده ای هست .

 

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

 

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

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

[حسن قاسمی نیا 546 کاربر فعال]

ksoi

 

 

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

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

 

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

[hakan22 39 کاربر عادی]

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

یک فایل 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

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

[hakan22 39 کاربر عادی]

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

به جای 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

[pourya-man 33 کاربر عادی]

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

یک فایل 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