Server jarak jauh mengembalikan kesalahan: 500

Hai teman-teman. Saya mencoba mengumpulkan tautan gambar di web.[DELETED].com tetapi ketika saya menjalankan kode saya, saya mendapatkan kesalahan server jarak jauh (500). Pada dasarnya program saya berjalan melalui loop untuk setiap halaman dan mengumpulkan semua link gambar ke dalam daftar. Saya tidak yakin apakah itu kesalahan mereka atau kesalahan saya. Ada 12 gambar per halaman ditambah link ke halaman berikutnya untuk diurai. Ini kode saya:

Apa yang saya coba:

<pre>        Do
            Dim wrWebRequest As HttpWebRequest = CType(WebRequest.Create(strURL), HttpWebRequest)
            Dim wrWebResponse As HttpWebResponse = CType(wrWebRequest.GetResponse(), HttpWebResponse)
            Dim strStream As Stream = wrWebResponse.GetResponseStream()
            Dim intBuffer(8388608) As Byte
            Dim intBytesToRead As Integer = CInt(intBuffer.Length)
            Dim intBytesRead As Integer = 0
            While intBytesToRead > 0
                Dim intNumber As Integer = strStream.Read(intBuffer, intBytesRead, intBytesToRead)
                If intNumber = 0 Then
                    Exit While
                End If
                intBytesRead += intNumber
                intBytesToRead -= intNumber
            End While
            strStream.Close()
            Dim fsFileStream As New FileStream("index.html", FileMode.Create, FileAccess.Write)
            fsFileStream.Write(intBuffer, 0, intBytesRead)
            fsFileStream.Close()
            fsFileStream = New FileStream("index.html", FileMode.Open, FileAccess.Read)
            Dim srSteamReader As New StreamReader(fsFileStream)
            Dim strData As String = srSteamReader.ReadToEnd
            srSteamReader.Close()
            fsFileStream.Close()

            Dim rgxPost As Regex = New Regex("""url"": ""https://web.[DELETED].com/p/\w*\S*"">")
            Dim mchPost As Match = rgxPost.Match(strData)
            While mchPost.Success
                lstPosts.Add(mchPost.ToString)
                mchPost = mchPost.NextMatch
            End While

            Dim rgxCursor As Regex = New Regex("cursor=\w*\S*&uid=\d*")
            Dim mchCursor As Match = rgxCursor.Match(strData)
            If mchCursor.Success Then
                strURL = "https://web.[DELETED].com/kaiagerber?" & mchCursor.ToString
            Else
                strURL = ""
                Exit Do
            End If
        Loop