[VB.NET]DownloadStringのタイムアウトへの対策について

Question

下記でタイムアウトが発生します。対処方法をご教示ください。

Dim wc As New System.Net.WebClient()
wc.Encoding = System.Text.Encoding.UTF8
Dim str As String = wc.DownloadString("http://XXXXXXXXXXX")

Answer 1

タイムアウト設定を変更することで回避できるのであれば、この設定を変更したいのですが、System.Net.WebClientにはタイムアウトを設定するためのプロパティがなく、また、上記で提案のあるHttpClientは古い.Net Frameworkでは使用できません。
この場合は、WebRequestを使用するか、または以下のサイトのようにWebClientを継承したクラスを作成することにより、タイムアウトの値を設定・変更できます。
http://milk-tea.myvnc.com/blog/adiary.cgi/0206

Answer 2

System.Net.WebClientは.net 1.1時代の古いクラスなので、HttpClientを使用してくださいな。

Imports System.Net.Http

Public Class Form1
    '↓Asyncを付けるのをお忘れなく。
    Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim url As String = "http://www.example.com/"
        Dim result As String = String.Empty
        Try
            result = Await DownloadString(url)
        Catch ex As TaskCanceledException
            ' タイムアウト時の処理
            Console.WriteLine(ex)
            Console.WriteLine("タイムアウト")
        End Try

        Console.WriteLine(result)
    End Sub
    Async Function DownloadString(url As String) As Task(Of String)
        Using client As New HttpClient()
            ' タイムアウト値の設定
            client.Timeout = TimeSpan.FromMilliseconds(10000D)
            Return Await client.GetStringAsync(url)
        End Using
    End Function
End Class

□参考情報
Async および Await を使用した非同期プログラミング (C# および Visual Basic)
Asynchronous Programming with Async and Await (Visual Basic) 英語