با سلام و سپاس خدمت کاربران عزیز
با این تکه کد قادر خواهید بود از یک لینکی 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 مورد نظر رو وارد کنید .
خدا خیرتون بده سایت عالی دارید با همین قدرت ادامه بدین
خسته نباشید
سلام ممنون از شما دوست عزیز