لیست کردن لینک

[علی اخلاقی 0]

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

از ی نفر پرسیدم گفت که لینک هارو باید لیست کنم  

اگه کسی کدی داره ممنون میشم که برام بفرسته

[علی اخلاقی 0]

در ۱۴۰۰/۱۲/۲۸ در ۰۳:۰۵، DexterFstone گفته است:

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

ارور بفرستید

 

این ارور رو داد

[DexterFstone 396]

در ۱۴۰۰/۱۲/۲۸ در ۲۲:۰۹، علی اخلاقی گفته است:

 

این ارور رو داد

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

	Dim List1 As List


	List1 = File.ReadList(File.DirAssets, "links.txt")

 

[DexterFstone 396]

در ۱۴۰۰/۱۲/۲۷ در ۱۸:۴۲، علی اخلاقی گفته است:

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

از ی نفر پرسیدم گفت که لینک هارو باید لیست کنم  

اگه کسی کدی داره ممنون میشم که برام بفرسته

سلام من ی راه حل سراغ دارم ولی چقدر اصولی هست نمیدونم

Dim l as list = 'لینک های خود را به لیست اضافه کنید
for i = 0 to l.size - 1
	Dim j As HttpJob
	j.Initialize("", Me)
	j.Download(l.get(i))
	Wait For (j) JobDone(j As HttpJob)
	If j.Success Then
   		'عملیات مورد نظر پس از دانلود فایل
	End If
	j.Release

 

[علی اخلاقی 0]

در ۱۴۰۰/۱۲/۲۷ در 22:34، DexterFstone گفته است:

سلام من ی راه حل سراغ دارم ولی چقدر اصولی هست نمیدونم

Dim l as list = 'لینک های خود را به لیست اضافه کنید
for i = 0 to l.size - 1
	Dim j As HttpJob
	j.Initialize("", Me)
	j.Download(l.get(i))
	Wait For (j) JobDone(j As HttpJob)
	If j.Success Then
   		'عملیات مورد نظر پس از دانلود فایل
	End If
	j.Release

 

 

خیلی ممنون بخاطر وقتی که گذاشتین ❤️🌹

 

این کد رو زدم اما خطا داد

[DexterFstone 396]

در ۱۴۰۰/۱۲/۲۷ در 23:06، علی اخلاقی گفته است:

 

خیلی ممنون بخاطر وقتی که گذاشتین ❤️🌹

 

این کد رو زدم اما خطا داد

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

ارور بفرستید