Question

我是Visual Basic的新手，所以我对Syntax e.t.c

了解不多

所以，如果有人能帮助我，那就太棒了！

我很可能因为正在使用用户代理而获得403 Forbidden Error。该网站可能认为其不是真正的用户进入网站，因此阻止访问。

如何应用可绕过此问题的用户代理？我不知道在哪里放置语法。

我的代码：

Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim sources(1) As String
            array(0) = "http://proxy-ip-list.com"
            array(1) = "http://sslproxies24.blogspot.com/feeds/posts/default"

        For Each element As String In sources

            'Connect to the Proxy Source;
            Dim source As Net.HttpWebRequest = Net.WebRequest.Create(element)

            'Prepare the Response;
            Dim response As Net.HttpWebResponse = source.GetResponse

            'Load the HTML;
            Dim reader As IO.StreamReader = New IO.StreamReader(response.GetResponseStream())
            Dim html As String = reader.ReadToEnd

            'Regex;
            Dim expression As New Regex("[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}:[0-9]{1,4}")

            'Set the Matches variable to the Matched Sections of the HTML source;
            Dim matches As MatchCollection = expression.Matches(html)

            'Add the proxies to the ListBox;
            For Each proxy As Match In matches
                ListBox1.Items.Add(proxy)
            Next

        Next

    End Sub

End Class

Visual Basic - Web请求403禁止

0 个答案: