دانلود و نصب فایل APK

این کد برای دانلود و نصب فایل apk استفاده میشه

Dim js As HttpJob

js.Initialize("", Me)
js.Download(link)
Wait For (js) JobDone(j As HttpJob)
If js.Success Then
	Dim DOWNLOAD_FILENAME As String=Rnd(1,9999999)&".apk"
	Log(js.Tag)
	Dim OutStream As OutputStream
	OutStream = File.OpenOutput(File.DirRootExternal, DOWNLOAD_FILENAME, False)
	File.Copy2(js.GetInputStream,OutStream)
	OutStream.Close
	Dim inetntdownload As Intent
	inetntdownload.Initialize(inetntdownload.ACTION_VIEW, "file://"&File.Combine(File.DirRootExternal, DOWNLOAD_FILENAME))
	inetntdownload.SetType("application/vnd.android.package-archive")
	StartActivity(inetntdownload)
End If

بجای link لینک دانلود رو قرار بدین، کتابخانه HttpUtils یا OkHttpUtils