Sub ActualitzacionAPP
If File.Exists(File.DirDefaultExternal,"result.apk") Then
File.Delete(File.DirDefaultExternal,"result.apk")
End If
HttpUtils.CallbackActivity = "Sincronizar"
HttpUtils.CallbackJobDoneSub = "JobDone"
HttpUtils.CallbackUrlDoneSub = "UrlDone"
HttpUtils.CallbackProgressSub="ProgressHTTP"
url="http://www.mydomain.com/result.apk"
HttpUtils.Download("downloadFile",url)
End Sub
Sub JobDone (Job As String)
Select Job
Case "downloadFile"
If HttpUtils.IsSuccess(url) Then
HttpUtils.SaveFile(url,File.DirDefaultExternal,"result.apk")
If File.Exists(File.DirDefaultExternal,"result.apk") Then
Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_VIEW, "file://" & File.Combine(File.DirDefaultExternal,"result.apk"))
Intent1.SetType("application/vnd.android.package-archive")
StartActivity(Intent1)
End If
End If
End Select
End Sub