من میخوام یه فایل متنی txt رو از هاست بخونم ، دانلود میشه ولی میخوام اطلاعات فایل رو بخونم این پیغام میده :
<html><body><scripttype="text/javascript"src="/aes.js"></script><script>function toNumbers(d){var e=[];d.replace(/(..)/g,function(d){e.push(parseInt(d,16))});return e}function toHex(){for(var d=[],d=1==arguments.length&&arguments[0].constructor==Array?arguments[0]:arguments,e="",f=0;f<d.length;f++)e+=(16>d[f]?"0":"")+d[f].toString(16);return e.toLowerCase()}var a=toNumbers("f655ba9d09a112d4968c63579db590b4"),b=toNumbers("98344c2eee86c3994890592585b49f80"),c=toNumbers("c353bdd0dcb3a9049f74bb1dc7536ea2");document.cookie="__test="+toHex(slowAES.decrypt(c,2,a,b))+"; expires=Thu, 31-Dec-37 23:55:55 GMT; path=/"; location.href="http://farzamplus.ss0.ir/ser1/ver.txt?i=1";</script><noscript>This site requires Javascript to work, please enable Javascript in your browser or use a browser with Javascript support</noscript></body></html>
همین فایل رو توی یه سایت های آپلودی ، آپلود میکنم لینک مستقیم میدم درست نشون میده
نمیدونم مشکل کجاست .
اینم کد برنامه :
Sub b_up_Click
ProgressDialogShow("در حال بروز رسانی")
ht.Initialize("ver", Me)
ht.Download("http://farzamplus.ss0.ir/ser1/ver.txt")
End Sub
Sub JobDone(Job As HttpJob)
Dim td1,td2 As String
ProgressDialogHide
If Job.Success Then
Select Job.JobName
Case "ver"
td1 = Job.GetString
td2 = File.ReadString(File.DirAssets,"ver.txt")
If td1 <> td2 Then
a = 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.Close
ht2.Initialize("update",Me)
ht2.Download("http://farzamplus.ss0.ir/db.db")
Else
Exit
End If
Else
Msgbox("نسخه جدیدی منتشر نشده است","بروز رسانی")
End If
Exit
Case "update"
Dim ou As OutputStream
ou = File.OpenOutput(File.DirInternal,"db.db",False)
File.Copy2(Job.GetInputStream, ou)
ou.Close
End Select
End If
End Sub
سوال
FarzamPlus 1
سلام خسته نباشید به دوستان عزیز .
من میخوام یه فایل متنی txt رو از هاست بخونم ، دانلود میشه ولی میخوام اطلاعات فایل رو بخونم این پیغام میده :
همین فایل رو توی یه سایت های آپلودی ، آپلود میکنم لینک مستقیم میدم درست نشون میده
نمیدونم مشکل کجاست .
اینم کد برنامه :
Sub b_up_Click ProgressDialogShow("در حال بروز رسانی") ht.Initialize("ver", Me) ht.Download("http://farzamplus.ss0.ir/ser1/ver.txt") End Sub Sub JobDone(Job As HttpJob) Dim td1,td2 As String ProgressDialogHide If Job.Success Then Select Job.JobName Case "ver" td1 = Job.GetString td2 = File.ReadString(File.DirAssets,"ver.txt") If td1 <> td2 Then a = 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.Close ht2.Initialize("update",Me) ht2.Download("http://farzamplus.ss0.ir/db.db") Else Exit End If Else Msgbox("نسخه جدیدی منتشر نشده است","بروز رسانی") End If Exit Case "update" Dim ou As OutputStream ou = File.OpenOutput(File.DirInternal,"db.db",False) File.Copy2(Job.GetInputStream, ou) ou.Close End Select End If End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
12 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.