PDA

View Full Version : ویژال بیسیک >> اضافه کردن چند url



ServerDL.com
چهارشنبه 30 شهریور 1390, 14:16 عصر
سلام
وقت شما بخیر
چند تا سوال در باره ویژال بیسیک دارم
من یک برنامه با ویژال طراحی کردم که کاربرد اون این هستش که هر بار که اجرا می کنید قبل از باز شدن کامل از لینک که در سورس برنامه طراحی شده یک اسکن گرفته و در کامپیوتر ذخبره می کند.
نمی دونم منظورم رو دقیق بیان کردم یا نه ؟
حالا مشکل اساسی من اینجاست
من می خوام طوری در ویژال این لینک رو تعیین کنم که در سورس 2تا لینک بدم که بر مبنا اولویت فایل رو دریافت کنه
که مثلا اگر سرور اول به مشکل خورد فایل رو از سرور دوم دریافت شود .
منظورم اینه که url1 و url2 داشته باشد .




url = "http://server5.iran12.net/Server-vip.www.iran12.net.pbk"
localFileName = Environ("tmp") & "\Server-vip.www.iran12.net.pbk"
errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
Command13.Enabled = True
Else
Text1.Text = " Error Please Check your Internet connection "
End If

در مرحله دوم می خوام که فایل در کامییوتر کاربر در مسیر :
C://iran12
ذخیره شود که در صورت قطع ارتباط کاربر با اینترنت بتواند به راحتی به فایل دسترسی پیدا کند
منتظر پاسخ شما هستم
سورس .exe نیز در ضمیمه ارسال می کنم

لینک سورس
http://online.serverdl.com/Iran12.net.exe

ServerDL.com
شنبه 02 مهر 1390, 02:10 صبح
مهندسین توان مند برنامه نویسی کسی برای کمک نیست اینجا ؟