تکه کد دانلود و نصب فایل APK

با سلام و سپاس خدمت کاربران عزیز

با این تکه کد قادر خواهید بود از یک لینکی apk رو دانلود و مستقیم به صفحه نصب کاربر رو هدایت کنید .

کافیه فقط تیک کتابخانه  HttpUtils یا OkHttpUtils رو بزنید و سورس رو ران بگیرید.

 

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 مربوط به apk مورد نظر رو وارد کنید .

 

2 thoughts on “تکه کد دانلود و نصب فایل APK

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