httpjob و تایمر و txt

[amir7900 13]

source test.rarخب من یه اپ دارم ک میخوام با httpjob یه فایل تکست رو دانلود کنه و اگه متنش این بود ی عملی انجام بده خب حالا به تایمر میگم ک هر 10 دقه اون فایل رو دانلود کنه و میخوام چک کنه اگه تغییر کرد متنش یه عمل رو انجام بده و اگه تغییری نکرده کاری نکنه دوباره...واضح تر بگم ک میخوام متن داخل فایل تکست رو تغییر بدم و برنامه وقت یک بار با هر تغییر اون عمل رو انجام بده

فکر کنم از این باز تر نشه

ممنون میشم کمک کنید

[amir7900 13]

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	httpjob1.Initialize("httpjob1",Me)
	timer1.Initialize("timer1",30000)
	timer1.Enabled = True
	If File.Exists(File.DirInternal,"b4a.iz") = False Then
	File.WriteString(File.DirInternal,"b4a.iz","www.basic4android.org")
	End If
End Sub

Sub timer1_tick
httpjob1.Download("linke download")
End Sub

Sub JobDone (job As HttpJob)
If job.Success = True
	Dim st As String = File.ReadString(File.DirInternal,"b4a.iz")
	If st <> job.GetString Then
	File.WriteString(File.DirInternal,"b4a.iz",job.GetString)
	' amali ke mikhay anjam beshe
	End If
End If
End Sub

تست نکردم خودم . تست کنید خودتون اول.

 

ممنون از کمکتون ولی من این قسمتش رو فهمیدم برای همینم تست نکردم

If st <> job.GetString Then
	(File.WriteString(File.DirInternal,"b4a.iz",job.GetString

[sganji 678]

این قسمتشو فهمیدید یا نفهمیدید؟

اگه فهمیدید چرا تست کردید؟

اگه نفهمیدید توضیح بدم...

[amir7900 13]

هیچ کس نمیدونه؟ینی حتما من باید اسپم بدم؟

[amir7900 13]

این قسمتشو فهمیدید یا نفهمیدید؟

اگه فهمیدید چرا تست کردید؟

اگه نفهمیدید توضیح بدم...

ببخشید ن نگرفت

نفهمیدم

[مهدی ایزدی 9,203]

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	httpjob1.Initialize("httpjob1",Me)
	timer1.Initialize("timer1",30000)
	timer1.Enabled = True
	If File.Exists(File.DirInternal,"b4a.iz") = False Then
	File.WriteString(File.DirInternal,"b4a.iz","www.basic4android.org")
	End If
End Sub

Sub timer1_tick
httpjob1.Download("linke download")
End Sub

Sub JobDone (job As HttpJob)
If job.Success = True
	Dim st As String = File.ReadString(File.DirInternal,"b4a.iz")
	If st <> job.GetString Then
	File.WriteString(File.DirInternal,"b4a.iz",job.GetString)
	' amali ke mikhay anjam beshe
	End If
End If
End Sub

تست نکردم خودم . تست کنید خودتون اول.

[sganji 678]

علامت <> یعنی مخالف,نامساوی,نابرابر

job.GetString هم صعی میکنه یه متن از فایلی که دان شده بگیره

[amir7900 13]

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

اگه میشه چجوری؟

[mohammad_mahdi 451]

واقعا که براتون متاسفم آقای حذف کننده پست من(اسم هم نمیبرم). من حلالت نمیکنم. 2 بار پستم رو حذف کردی. اگه این پستم رو هم حذف کنید، مجبورم به مدیر گزارش بدم و ...

 

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

[amir7900 13]

واقعا که براتون متاسفم آقای حذف کننده پست من(اسم هم نمیبرم). من حلالت نمیکنم. 2 بار پستم رو حذف کردی. اگه این پستم رو هم حذف کنید، مجبورم به مدیر گزارش بدم و ...

 

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

من مثل همون سورس میخوام تغییرات رو بدم

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

یه نگاه به سایت بندازین متوجه میشین هدفم چیه

[amir7900 13]

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

مثال زدم

و میخوام هر ده دقیقه که چک میکنه اگه متن تغییر نکرده عملی که براش تعریف شده رو از نو انجام نده یعنی هر عمل یک بار تا تغییر بعدی گت استرینگ اون

این این واضح تر نیمتونم بگم

[مهدی ایزدی 9,203]

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

مثال زدم

و میخوام هر ده دقیقه که چک میکنه اگه متن تغییر نکرده عملی که براش تعریف شده رو از نو انجام نده یعنی هر عمل یک بار تا تغییر بعدی گت استرینگ اون

این این واضح تر نیمتونم بگم

توی همون کد بالا باید JobDone رو به این صورت بنویسید:

Sub JobDone (job As HttpJob)
If job.Success = True
	Dim st As String = File.ReadString(File.DirInternal,"b4a.iz")
	If st <> job.GetString Then
	File.WriteString(File.DirInternal,"b4a.iz",job.GetString)
		If job.GetString = "a" Then
		' kare morede nazar vaseye a
		Else If job.GetString = "b" Then
		' kare morede nazar vaseye b
		Else If job.GetString = "c" Then
		' kare morede nazar vaseye c
		Else If job.GetString = "d" Then
		' kare morede nazar vaseye d
		End If
	End If
End If
End Sub

[amir7900 13]

 

توی همون کد بالا باید JobDone رو به این صورت بنویسید:

Sub JobDone (job As HttpJob)
If job.Success = True
	Dim st As String = File.ReadString(File.DirInternal,"b4a.iz")
	If st <> job.GetString Then
	File.WriteString(File.DirInternal,"b4a.iz",job.GetString)
		If job.GetString = "a" Then
		' kare morede nazar vaseye a
		Else If job.GetString = "b" Then
		' kare morede nazar vaseye b
		Else If job.GetString = "c" Then
		' kare morede nazar vaseye c
		Else If job.GetString = "d" Then
		' kare morede nazar vaseye d
		End If
	End If
End If
End Sub

ببخشید یه سوال اون فایل ک دادید ba4.izدلیل خاصی داشت با این فرمت؟

[Yasin_m 1]

ببخشید یه سوال اون فایل ک دادید ba4.izدلیل خاصی داشت با این فرمت؟

معمولا برای گمراه کردن کسی که میخواد دیتا برنامه رو تغییر بده،فرمت های فایل رو نمی زارن یا چیز دیگه ای بجز فرمت اصلی فایل میزارن .

مثلا:

B4a.txt => b4a.iz