رفتن به مطلب
  • 0

مشکل در خواندن فایل متنی از سایت


FarzamPlus

سوال

سلام خسته نباشید به دوستان عزیز .

 

من میخوام یه فایل متنی 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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

12 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

سلام. من کد های شما رو دقیق نگاه نکردم ولی فایل متنی شما یک فایل متنی ساده نیستش. بلکه یک فایل html هستش که باید توسط مرورگر یا webview خوانده و اجرا بشه.

این ها هم پیغام خطا نیستش . کد های html درون فایل هستش. (فایل html یک فایل متنی با پسوند htm یا html هستش)

لینک ارسال
به اشتراک گذاری در سایت های دیگر

ببخشید دوست عزیز ، شما نمونه کدی دارین که از این طریق بشه فایل متنی رو خواند ؟؟؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

فایل متنی رو همینجوری دانلود می کنن و می خونن. فقط مشکل اینه که فایل شما متنی نیست (متن ساده). فایل html هستش و کد های جاوا اسکریپت داخلش ظاهرا باید توسط مرورگر اجرا بشه تا عدد به دست بیاد. شاید بشه با webview مقدارش رو به دست اورد.

حالا چرا سرورتون یک متن ساده برنمیگردونه؟ یا سرور مال خودتون نیست؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 16 ساعت قبل، rasool.g گفته است :

فایل متنی رو همینجوری دانلود می کنن و می خونن. فقط مشکل اینه که فایل شما متنی نیست (متن ساده). فایل html هستش و کد های جاوا اسکریپت داخلش ظاهرا باید توسط مرورگر اجرا بشه تا عدد به دست بیاد. شاید بشه با webview مقدارش رو به دست اورد.

حالا چرا سرورتون یک متن ساده برنمیگردونه؟ یا سرور مال خودتون نیست؟

سرور مال خودم نیست ، یه هاست رایگانه .

 

این فایل متنی بخاطر چک کردن نسخه دیتابیس هستش ، یه برنامه ای هستش که به مشتری میرم و لیست قیمت هم توی فایل دیتابیس هستش ، طرف با زدن گزینه آپدیت ، اول میخوام بیاد این فایل متنی رو چک کنه با فایل متنی که توی گوشی هست اگر یکی نبود عددشون ، آپدیت دیتابیس رو انجام بده .

 

حالا الان موندم چکار کنم ، همین فایل رو توی این سایت های آپلود میذارم لینک میدم توی برنامه درست نشون میده ، توی این هاست ها نمیدونم چرا اینجوری نشون میده .

 

اگر کسی از دوستان روشی داره لطفا راهنمایی کنید .

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در در 1397/03/21, 21:26:43، FarzamPlus گفته است :

سلام خسته نباشید به دوستان عزیز .

 

من میخوام یه فایل متنی 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

 

پسوند همین فایل تغییر بده به  php  ببین چه میشه  تست کن .

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 3 ساعت قبل، FarzamPlus گفته است :

سرور مال خودم نیست ، یه هاست رایگانه .

 

این فایل متنی بخاطر چک کردن نسخه دیتابیس هستش ، یه برنامه ای هستش که به مشتری میرم و لیست قیمت هم توی فایل دیتابیس هستش ، طرف با زدن گزینه آپدیت ، اول میخوام بیاد این فایل متنی رو چک کنه با فایل متنی که توی گوشی هست اگر یکی نبود عددشون ، آپدیت دیتابیس رو انجام بده .

 

حالا الان موندم چکار کنم ، همین فایل رو توی این سایت های آپلود میذارم لینک میدم توی برنامه درست نشون میده ، توی این هاست ها نمیدونم چرا اینجوری نشون میده .

 

اگر کسی از دوستان روشی داره لطفا راهنمایی کنید .

 

اگر امکانش هست با یک فایل متنی دیگه تست کنید یا به جای اون داخل هاست یک فایل php مثلا به این شکل قرار بدید . ببینید درست نمیشه.

<?php
	header("Content-Type: text/plain"); //ضروری نیست
	echo "23"; //ورزن دیتابیس
?>

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

تشکر از شما دوستان عزیز .

 

ولی من همچنان این مشکل رو دارم

 

نمیدونم باید چکار کنم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 12 ساعت قبل، FarzamPlus گفته است :

تشکر از شما دوستان عزیز .

 

ولی من همچنان این مشکل رو دارم

 

نمیدونم باید چکار کنم

سلام بجا این کار بیا از php استفاده کن

این کارم اصولی نیست هی کاربر بیاد درخواست بفرسته واسه نسخه جدید 

شما از پوشه یا فایربیس واسه نسخه جدید اپ استفاده کن و لینک نسخه جدید رو بفرست واس/ اینطور حرفه ای تر هست

واس این کارتم بیا اینجور انجام بده

یه فایل php بساز اینارو بریز داخلش / 

<?php

    echo '"Version":"1.1"';

?>

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در در 1397/03/30, 11:02:50، میلاد گفته است :

سلام بجا این کار بیا از php استفاده کن

این کارم اصولی نیست هی کاربر بیاد درخواست بفرسته واسه نسخه جدید 

شما از پوشه یا فایربیس واسه نسخه جدید اپ استفاده کن و لینک نسخه جدید رو بفرست واس/ اینطور حرفه ای تر هست

واس این کارتم بیا اینجور انجام بده

یه فایل php بساز اینارو بریز داخلش / 


<?php

    echo '"Version":"1.1"';

?>

 

داداش دست شما درد نکنه بابت رهنمایی ، ولی اگر بتونی بیشتر راهنمایی کنی یا یه مثالی چیزی بزنی ممنون میشم . 

من زیاد حرفه ای نیستم ، تازه دارم شروع میکنم .

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 3 ساعت قبل، FarzamPlus گفته است :

داداش دست شما درد نکنه بابت رهنمایی ، ولی اگر بتونی بیشتر راهنمایی کنی یا یه مثالی چیزی بزنی ممنون میشم . 

من زیاد حرفه ای نیستم ، تازه دارم شروع میکنم .

 

میخوای با پوش اپدیت کنی یا هر زمان اپ باز میشه چک کنه ؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در در 1397/03/31, 17:49:24، میلاد گفته است :

میخوای با پوش اپدیت کنی یا هر زمان اپ باز میشه چک کنه ؟

میخوام روی دکمه بروز رسانی میزنه آپدیت بشه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...