更改UserAgent后不再有WebBrowser的大小

时间:2019-05-27 19:39:20

标签: vb.net

基本上,我正在尝试使用自定义用户代理和自定义窗口大小向Web服务器发出Web请求。

我尝试使用一种广泛使用的功能来更改WebBrowser用户代理,但是它停止使用我的自定义窗口大小。

    <DllImport("urlmon.dll", CharSet:=CharSet.Ansi)>
    Private Shared Function UrlMkSetSessionOption(ByVal dwOption As Integer, ByVal pBuffer As String, ByVal dwBufferLength As Integer, ByVal dwReserved As Integer) As Integer
    End Function
    Const URLMON_OPTION_USERAGENT As Integer = &H10000001
    Public Function ChangeUserAgent(ByVal Agent As String)
        UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, Agent, Agent.Length, 0)
    End Function

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim testua As String = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:67.0) Gecko/20100101 Firefox/67.0"


        Dim WS_EX_TOOLWINDOW As Integer = &H80
        Dim GWL_EXSTYLE As Integer = -20

        Me.FormBorderStyle = FormBorderStyle.None
        Me.ShowInTaskbar = False
        WebBrowser1.Size = New Size(1920, 1080)

        ChangeUserAgent(testua)


        WebBrowser1.Navigate("https://example.com/a.php", Nothing, Nothing, testua)


    End Sub

您可以问我为什么要使用此功能?因为使用:

WebBrowser1.Navigate("https://example.com/a.php", Nothing, Nothing, "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:67.0) Gecko/20100101 Firefox/67.0")

不更改我网站上的用户代理(使用Javascript检测UA)

我想要一个自定义窗口大小+一个自定义用户代理。只是在更改我的用户代理,而不再更改我的窗口大小。

0 个答案:

没有答案