دانلود قسمتی از فایل از لینک مستقیم با VB6.0

برنامه ی segment downloader رو که حتما میشناسید یه برنامه ایه برای ترمیم فایل های دانلود شده به صورت آنلاین من ورژن های 2.5 و 3.1 رو دارم و استفاده میکنم ولی بعضی وقت ها ادا در میاره و قفل میکنه حالا اینش زیاد مهم نیست مشکل وقتی پیش میاد که بخوام مثلا 2000 سگمنت از یک فایل چند گیگابایتی رو باهاش دانلود کنم تا ببینم مشکلش کجاس چون تعداد سگمنت ها زیاده برنامه خیلی سنگین میشه و بعضی وقت ها هم کلا هنگ میکنه

چطور میتونم (ترجیحا) با وی بی 6 یا سی شارپ 2010 برنامه ای بنویسم که مثلا از بایت 1000 ام تا بایت 3000 ام از یک لینک(مستقیم) رو دانلود کنه

سلام
در خصوص VB6 سالهاست که کار نمیکنم ولی میتوانم سرنخ کدهای #C و VB.Net مربوطه را به شما بدهم:

کد:

---

//C# 2008/2010
public void Download(string url, string file, long starturl, long startfile, long maxlength)
{
    const int SIZE = 4*1024;
    byte[] buffer = new byte[SIZE];

    var req = (System.Net.HttpWebRequest)System.Net.HttpWebRequest.Create(url);
    req.AddRange(starturl);

    using (var res = req.GetResponse())
    using (var streamfile = new System.IO.FileStream(file, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write))
    using (var streamurl = res.GetResponseStream())
    {
        streamfile.Position = startfile;

        while (maxlength > 0)
        {
            int iread = streamurl.Read(buffer, 0, SIZE);
            if (iread <= 0) break;
            maxlength -= iread;

            streamfile.Write(buffer, 0, iread);
        }
    }
}


'VB.Net 2008/2010
Public Sub Download(ByVal url As String, ByVal file As String, ByVal starturl As Long, ByVal startfile As Long, ByVal maxlength As Long)
    Const SIZE As Integer = 4 * 1024
    Dim buffer As Byte() = New Byte(SIZE - 1) {}

    Dim req = DirectCast(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
    req.AddRange(starturl)

    Using _
        res = req.GetResponse(), _
        streamfile As New System.IO.FileStream(file, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write), _
        streamurl = res.GetResponseStream()

        streamfile.Position = startfile

        Do While (maxlength > 0)
            Dim iread As Integer = streamurl.Read(buffer, 0, &H1000)
            If (iread <= 0) Then Return
            maxlength = (maxlength - iread)

            streamfile.Write(buffer, 0, iread)
        Loop
    End Using
End Sub

---

کد فوق خیلی هم کامل نیست و تمام جوانب را در نظر نگرفته، فرصت بیشتری هم ندارم که کد را در سطح یک برنامه بینقص کامل کنم.

در تابع فوق ...
پارامتر اول لینک دانلود مستقیم و قابل ادامه فایل است (Resumable بودن بسیار مهم است)
پارامتر دوم مسیر فایل در هارد است.
پارامتر سوم آدرس آفست شروع دانلود از سرور است.
پارامتر چهارم هم آدرس آفست ذخیره اطلاعات در فایل مقصد است.
پارامتر پنج هم حدکثر طول اطلاعات مورد نیاز برای دانلود است. اگر میخواهید فایل تا آخر دانلود شود، کافیست long.maxvalue را پاس دهید.
موفق باشید.