منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود التحميل واستكمال التحميل من الانترنت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : كود التحميل واستكمال التحميل من الانترنت (/showthread.php?tid=6318)

كود التحميل واستكمال التحميل من الانترنت - RaggiTech - 17-10-12

كاتب الموضوع : kslawy



أعضاء المنتدي الكرام

السلام عليكم ورحمة الله وبركاته

أقدم لكم اليوم كود بحثت عنه طويلاً في مواقع الانترنت
كود تحميل واستكمال التحميل

أخيراً حصلت علي الكود من أحد منتديات MSDN وهو كود سهل الفهم

وقد قمت بتطبيقه ويعمل بصورة جيدة 100%

-----------: الكــود :-----------

كود :
Public Class Form1
'fs is a FileStream that used to store the download file.
Dim fs As FileStream
Dim httpRequest As HttpWebRequest
Dim httpResponse As HttpWebResponse
Dim receivedStream As Stream
Dim downLoadThread As Thread
Dim url As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
'Start a new thread to download.
downLoadThread = New Thread(AddressOf DownLoad)
downLoadThread.Start()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
'Abort download thread
downLoadThread.Abort()
End Sub
Sub DownLoad()
If (TextBox1.Text = Nothing) Then
MessageBox.Show("URL needed")
Return
End If
url = TextBox1.Text
Dim fileName As String = "D:\Download\My.mp3"
Dim startPos As Long
If (File.Exists(fileName)) Then
fs = File.OpenWrite(fileName)
startPos = fs.Length
'Seek the file stream to a specified position.
fs.Seek(startPos, SeekOrigin.Current)
Else
fs = New FileStream(fileName, FileMode.Create)
startPos = 0
End If
Try
httpRequest = CType(HttpWebRequest.Create(url), HttpWebRequest)
If (startPos > 0) Then
httpRequest.AddRange(CType(startPos, Integer))
End If
httpResponse = httpRequest.GetResponse()
'Dim totalBytes As Long
receivedStream = httpResponse.GetResponseStream()
Dim byteArray(1024) As Byte

Dim osize As Integer = receivedStream.Read(byteArray, 0, byteArray.Length)
While osize > 0
fs.Write(byteArray, 0, osize)
osize = receivedStream.Read(byteArray, 0, byteArray.Length)
End While
MessageBox.Show("Success")
Finally
fs.Close()
receivedStream.Close()
End Try

End Sub
End Class

كما يمكن استخدام الكود في نسخ الملفات وإستكمال النسخ بالتغيير قليلاً في الكود

وعلي هذا الأساس أقوم حالياً بتطوير برنامج للتحميل من الانترنت شبيه إلي حد ما

ببرنامج " انترنت داونلود مانجا "

-- صورة البرنامج --


---- < رابط الكود الأساسي > ----

أضغط هنا