اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


FarzamPlus

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

13 ارسال در این موضوع قرار دارد

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

 

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

 

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


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

سلام. من کد های شما رو دقیق نگاه نکردم ولی فایل متنی شما یک فایل متنی ساده نیستش. بلکه یک فایل 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، میلاد گفته است :

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

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

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری