は、いくつかのファイルをダウンロードするために使用することができる方法を示し簡単なサンプルです:
Imports System.Threading
Imports DotNetBrowser
Module Module1
Sub Main()
Dim browser As Browser
browser = BrowserFactory.Create()
browser.DownloadHandler = New SampleDownloadHandler
DownloadFile(browser, "http://www.7-zip.org/a/7z1604.exe")
DownloadFile(browser, "http://www.7-zip.org/a/7z1604-src.7z")
Console.In.ReadLine()
browser.Dispose()
End Sub
Class SampleDownloadHandler
Implements DownloadHandler
Public Event AllowDownloadCalled(download As DownloadItem)
Public Function AllowDownload(download As DownloadItem) As Boolean Implements DownloadHandler.AllowDownload
AddHandler download.DownloadEvent, Sub(s, e)
If e.Item.Completed Then
Console.WriteLine("Downloaded: " + e.Item.DestinationFile)
End If
End Sub
Console.WriteLine("Download allowed: " + download.URL)
RaiseEvent AllowDownloadCalled(download)
Return True
End Function
End Class
Private Sub DownloadFile(browser As Browser, url As String)
Dim downloadHandler As SampleDownloadHandler
downloadHandler = browser.DownloadHandler
Dim downloadEvent As New ManualResetEvent(False)
Dim allowDownloadEvent As New SampleDownloadHandler.AllowDownloadCalledEventHandler(Sub(d As DownloadItem) downloadEvent.Set())
AddHandler downloadHandler.AllowDownloadCalled, allowDownloadEvent
browser.LoadURL(url)
downloadEvent.WaitOne()
RemoveHandler downloadHandler.AllowDownloadCalled, allowDownloadEvent
End Sub
End Module
このケースを処理する方法を示す完全なサンプルは、以下のリンクで見つけることができます: https://dotnetbrowser.support.teamdev.com/support/solutions/articles/9000110831-downloading-several-files