Fery666
دوشنبه 21 خرداد 1397, 22:24 عصر
سلام خسته نباشید به دوستان عزیز .
من میخوام یه فایل متنی txt رو از هاست بخونم ، دانلود میشه ولی میخوام اطلاعات فایل رو بخونم این پیغام میده :
<html><body><script type="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
من میخوام یه فایل متنی txt رو از هاست بخونم ، دانلود میشه ولی میخوام اطلاعات فایل رو بخونم این پیغام میده :
<html><body><script type="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