能否在VB.net webbrowser控件中显示移动网页

我想在VB.NETWebBrowser中只显示网页的移动版本，但找不到方法。在Internet explorer中，只需按f12键，然后从“仿真”选项卡将浏览器配置文件更改为windows phone

由于VB.Net浏览器模拟IE，我看不出没有设置浏览器配置文件的任何原因。我已经将浏览器模拟的注册表设置更改为复制IE 11，但看不到您将在何处设置浏览器配置文件

---

这方面的内容似乎不多，所以如果有人有任何想法，请欣赏。

这是我最后使用的代码，似乎可以在web浏览器控件中正确显示网站。您需要做的另一件事是将注册表中的.exe文件的浏览器模拟设置为11001，否则您将看到大量脚本错误（

Computer\HKEY\u CURRENT\u USER\Software\Microsoft\internetexplorer\Main\FeatureControl\FEATURE\u Browser\u emulation

）

导入System.Runtime.InteropServices
公开课表格1
私有共享函数UrlMkSetSessionOption（ByVal dwOption为整数，ByVal pBuffer为字符串，ByVal dwBufferLength为整数，ByVal dwReserved为整数）为整数
端函数
Const URLMON_OPTION_USERAGENT作为整数=&H10000001
公共函数ChangeUserAgent（ByVal代理作为字符串）
UrlMkSetSessionOption（URLMON_OPTION_USERAGENT，Agent，Agent.Length，0）
端函数
私有子表单1_Load（发送方作为对象，e作为事件参数）处理MyBase.Load
Dim UA As String=“Mozilla/5.0（兼容；MSIE 10.0；Windows Phone 8.0；Trident/6.0；IEMobile/10.0；ARM；Touch；Microsoft；Lumia 950）”
ChangeUserAgent（UA）
WebBrowser1.Navigate（“www.amazon.co.uk”，“_self”，无任何内容，“用户代理：”&UA）
端接头
末级

这是我最后使用的代码，似乎可以在web浏览器控件中正确显示网站。您需要做的另一件事是将注册表中的.exe文件的浏览器模拟设置为11001，否则您将看到大量脚本错误（

Computer\HKEY\u CURRENT\u USER\Software\Microsoft\internetexplorer\Main\FeatureControl\FEATURE\u Browser\u emulation

）

导入System.Runtime.InteropServices
公开课表格1
私有共享函数UrlMkSetSessionOption（ByVal dwOption为整数，ByVal pBuffer为字符串，ByVal dwBufferLength为整数，ByVal dwReserved为整数）为整数
端函数
Const URLMON_OPTION_USERAGENT作为整数=&H10000001
公共函数ChangeUserAgent（ByVal代理作为字符串）
UrlMkSetSessionOption（URLMON_OPTION_USERAGENT，Agent，Agent.Length，0）
端函数
私有子表单1_Load（发送方作为对象，e作为事件参数）处理MyBase.Load
Dim UA As String=“Mozilla/5.0（兼容；MSIE 10.0；Windows Phone 8.0；Trident/6.0；IEMobile/10.0；ARM；Touch；Microsoft；Lumia 950）”
ChangeUserAgent（UA）
WebBrowser1.Navigate（“www.amazon.co.uk”，“_self”，无任何内容，“用户代理：”&UA）
端接头
末级

这取决于您访问的网站的配置方式。有些人可能会尝试使用用户代理字符串来确定是否显示移动视图。其他人可能只是使用视口的大小和响应性设计技术来改变布局。感谢您的回复，我最终使用了下面的代码，它似乎满足了我目前的需要。这取决于您访问的网站的配置方式。有些人可能会尝试使用用户代理字符串来确定是否显示移动视图。其他人可能只是使用视口的大小和响应性设计技术来改变布局。感谢您的回复，我最终使用了下面的代码，它似乎达到了我目前所需要的效果。如果您也希望以编程方式更改浏览器模拟，我在中为其提供了一个类。如果您也希望以编程方式更改浏览器模拟，我在中为其提供了一个类。

Imports System.Runtime.InteropServices

Public Class Form1

    <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 Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim UA As String = "Mozilla/5.0 (compatible; MSIE 10.0; Windows Phone 8.0; Trident/6.0; IEMobile/10.0; ARM; Touch; Microsoft; Lumia 950)"

        ChangeUserAgent(UA)

        WebBrowser1.Navigate("www.amazon.co.uk", "_self", Nothing, "User-Agent: " & UA)

    End Sub
End Class