من میخوام یه فایلمتنی txt رو از هاست بخونم ، دانلود میشه ولی میخوام اطلاعات فایل رو بخونم این پیغام میده :
همین فایل رو توی یه سایت های آپلودی ، آپلود میکنم لینک مستقیم میدم درست نشون میده
نمیدونم مشکل کجاست .
اینم کد برنامه :
Sub b_up_ClickProgressDialogShow("در حال بروز رسانی")ht.Initialize("ver", Me) ht.Download("http://farzamplus.ss0.ir/ser1/ver.txt")End SubSub JobDone(Job As HttpJob) Dim td1,td2 As StringProgressDialogHideIf Job.Success Then Select Job.JobNameCase "ver"td1 = Job.GetStringtd2 = File.ReadString(File.DirAssets,"ver.txt")If td1 <> td2 Thena = Msgbox2("نسخه جدید منتشر شده است ، بروزرسانی انجام گیرد ؟","بروز رسانی","بله","","خیر",Null)If a = DialogResponse.POSITIVE Then Dim outver As OutputStream outver = File.OpenOutput(File.DirAssets,"ver.txt",False) File.Copy2(Job.GetInputStream, outver) outver.Closeht2.Initialize("update",Me) ht2.Download("http://farzamplus.ss0.ir/db.db")Else Exit End IfElse Msgbox("نسخه جدیدی منتشر نشده است","بروز رسانی")End IfExitCase "update"Dim ou As OutputStream ou = File.OpenOutput(File.DirInternal,"db.db",False) File.Copy2(Job.GetInputStream, ou) ou.CloseEnd SelectEnd IfEnd Sub
برنامه نویس...
ما را در سایت برنامه نویس دنبال می کنید
برچسب : نویسنده : محمد رضا جوادیان programers بازدید : 360 تاريخ : سه شنبه 22 خرداد 1397 ساعت: 5:03