+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : مشروع تحميل ملفات من الانترنت (/showthread.php?tid=24926)
مشروع تحميل ملفات من الانترنت - viv - 12-05-18
رأيت برنامج شبيه هنا ولكن الاختلاف لا يضر يفيد في الاطلاع
لمحة عن الكود
PHP كود :
Private WithEvents downloader As New FileDownloader
PHP كود :
' A simple implementation of setting the directory path,
' adding files from a textbox and starting the download
Private Sub btnStart_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnStart.Click
Dim openFolderDialog As New FolderBrowserDialog
With downloader
If openFolderDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
.Files.Clear()
.LocalDirectory = openFolderDialog.SelectedPath
For Each path As String In txtFilesToDownload.Lines
' The FileInfo structure will parse your path,
' and split it to the path itself and the file name,
' which will both be available for you
.Files.Add(New FileDownloader.FileInfo(path))
Next
.Start()
End If
End With
End Sub
PHP كود :
Private Sub btnPauze_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnPauze.Click
' Pause the downloader
downloader.Pause()
End Sub
PHP كود :
Private Sub btnResume_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnResume.Click
' Resume the downloader
downloader.Resume()
End Sub
PHP كود :
Private Sub btnStop_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnStop.Click
' Stop the downloader
' Note: This will not be instantaneous - the current requests need to
' be closed down, and the downloaded files need to be deleted
downloader.Stop()
End Sub
PHP كود :
' This event is fired every time the paused or busy state is changed,
' and used here to set the controls of the interface
Private Sub downloader_StateChanged() _
Handles downloader.StateChanged 'This is equal to: Handles
'downloader.IsBusyChanged, downloader.IsPausedChanged
' Setting the buttons
btnStart.Enabled = downloader.CanStart
btnStop.Enabled = downloader.CanStop
btnPauze.Enabled = downloader.CanPause
btnResume.Enabled = downloader.CanResume
' Enabling or disabling the setting controls
txtFilesToDownload.ReadOnly = downloader.IsBusy
cbUseProgress.Enabled = Not downloader.IsBusy
End Sub
PHP كود :
' Occurs every time a block of data has been downloaded,
' and can be used to display the progress with
' Note that you can also create a timer, and display the progress
' every certain interval
' Also note that the progress properties return a size in bytes,
' which is not really user friendly to display
' The FileDownloader class provides shared functions to format these
' byte amounts to a more readable format, either in binary or decimal notation
Private Sub downloader_ProgressChanged() Handles downloader.ProgressChanged
pBarFileProgress.Value = CInt(downloader.CurrentFilePercentage)
lblFileProgressDetails.Text = String.Format("Downloaded {0} of {1} ({2}%)", _
FileDownloader.FormatSizeBinary(downloader.CurrentFileProgress), _
FileDownloader.FormatSizeBinary(downloader.CurrentFileSize), _
downloader.CurrentFilePercentage) & String.Format(" - {0}/s", _
FileDownloader.FormatSizeBinary(downloader.DownloadSpeed))
If downloader.SupportsProgress Then
pBarTotalProgress.Value = CInt(downloader.TotalPercentage)
lblTotalProgressDetails.Text = _
String.Format("Downloaded {0} of {1} ({2}%)", _
FileDownloader.FormatSizeBinary(downloader.TotalProgress), _
FileDownloader.FormatSizeBinary(downloader.TotalSize), _
downloader.TotalPercentage)
End If
End Sub
RE: مشروع تحميل ملفات من الانترنت - princelovelorn - 12-05-18
جزاك الله خيرا وبارك فيك أخي الفاضل