vb.net - Web Request Get Response が 2 回目の試行で失敗する

Question

Web サイトでユーザー名を検索してメインの html ページをダウンロードし、次のページへのリンクを見つけてダウンロードするなどのプログラムを作成しました。初めてプログラムを実行すると、検索に対する応答が正しく機能し、すべての HTML ページをダウンロードするための応答が正しく機能します。ただし、2 回目の検索を行うと、検索に対する応答の取得に失敗します。サーバーが一定期間に非常に多くの検索しか許可していないのではないかと思いましたが、そうではありません。プログラムを閉じて再度実行すると、すべて正常に動作します。最初の試行以外の試行で get 応答が失敗するのはなぜですか? Web リクエストを新規として定義することはできず、リソースを解放するための応答を取得すると、Web リクエストを閉じる方法がないようです。バックグラウンドワーカーでプロセス全体を実行しているためですか？何が悪いのかわからない。昨日はいつでも好きなだけ検索できました...

検索フォームのコードは次のとおりです。

Private Sub FormSearch_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'if the user name is empty then initialize it
    If My.Settings.UserName = "" Then
        My.Settings.UserName = ""
    End If
    'if the current url is empty then initialize it
    If My.Settings.CurrentURL = "" Then
        My.Settings.CurrentURL = ""
    End If
    My.Settings.Save()
End Sub

Private Sub TextBoxUserName_TextChanged(sender As Object, e As EventArgs) Handles TextBoxUserName.TextChanged
    'if the text length of the text box is greater then zero
    If TextBoxUserName.TextLength > 0 Then
        'enable the search button
        ButtonSearch.Enabled = True
    Else
        'disable the search button and set focus on the text box
        ButtonSearch.Enabled = False
        TextBoxUserName.Focus()
    End If
End Sub

Private Sub ButtonSearch_Click(sender As Object, e As EventArgs) Handles ButtonSearch.Click
    'trim the text box of any spaces
    My.Settings.UserName = Trim(TextBoxUserName.Text)
    'if the user name is not equal to null
    If My.Settings.UserName <> "" Then
        'set the current url and test if it exists
        My.Settings.CurrentURL = "*url here*"
        If URLExists(My.Settings.CurrentURL) = True Then
            'save the settings
            My.Settings.Save()
            'return ok for the dialog result and close the form
            Me.DialogResult = Windows.Forms.DialogResult.OK
            Me.Close()
        Else 'cannot find the account
            'set the text box text to null and set focus on it
            TextBoxUserName.Text = ""
            TextBoxUserName.Focus()
        End If
    End If
End Sub

Private Function URLExists(url As String) As Boolean
    'create a new uri
    Dim uriURL As New Uri(url)
    'create a new web request of the uri
    Dim wrRequest As WebRequest = WebRequest.Create(uriURL)
    'set the web request timeout and method
    wrRequest.Timeout = 30000
    wrRequest.Method = "GET"
    'create a new web response
    Dim wrResponse As WebResponse
    Try
        'if the response succeeds then return true
        wrResponse = wrRequest.GetResponse
        Return True
    Catch ex As Exception 'the response failed so return false
        LabelMessage.Text = ex.Message
        Return False
    End Try
End Function