我正在尝试将当前用户代理更改为其他用户代理。这个导航网页但不会改变用户代理。
Dim webBrowser1 As Object
webBrowser1 = CreateObject("InternetExplorer.Application")
webBrowser1.Navigate("http://www.example.org", Nothing, Nothing, "User-Agent: blabla")
这样做的正确方法是什么?
答案 0 :(得分:2)
您可以创建一个System.Net.Webclient,并为其提供所需的标题。
Imports System.Net
Module Module1
Sub Main()
' Resource acquisition statement.
Using client As New WebClient
' Set one of the headers.
client.Headers("User-Agent") = "Mozilla/4.0"
' Download data as byte array.
Dim arr() As Byte = client.DownloadData("http://www.dotnetperls.com/")
' Display result.
Console.WriteLine(arr.Length)
End Using
End Sub
End Module