ServerDL.com
چهارشنبه 30 شهریور 1390, 15: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
وقت شما بخیر
چند تا سوال در باره ویژال بیسیک دارم
من یک برنامه با ویژال طراحی کردم که کاربرد اون این هستش که هر بار که اجرا می کنید قبل از باز شدن کامل از لینک که در سورس برنامه طراحی شده یک اسکن گرفته و در کامپیوتر ذخبره می کند.
نمی دونم منظورم رو دقیق بیان کردم یا نه ؟
حالا مشکل اساسی من اینجاست
من می خوام طوری در ویژال این لینک رو تعیین کنم که در سورس 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