VB WebBrowser1设置内核版本

最新推荐文章于 2022-01-14 13:24:20 发布

原创最新推荐文章于 2022-01-14 13:24:20 发布 · 3.8k 阅读

2 ·

CC 4.0 BY-SA版权

VB 专栏收录该内容

14 篇文章

订阅专栏

本文介绍如何通过修改注册表设置不同版本的Internet Explorer浏览器模式，包括IE10、IE9和IE8等，以实现对特定应用程序的兼容性和标准模式的控制。

加入注册表

Set x = CreateObject("wscript.shell")
b=x.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\" & App.EXEName)
If b = "" Then
Set x = Nothing
Dim w
Set w = CreateObject("wscript.shell")
w.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\" & App.EXEName, "2711", "REG_DWORD"
Set w = Nothing
Else
Set x = Nothing
End If

On Error GoTo Err1
Dim LinkName As String
LinkName = CreateObject("Wscript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION")
If LinkName <> "" Then
Set x = Nothing
Dim w
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\" & App.EXEName + ".exe", "2711", "REG_DWORD"
Set w = Nothing
Else
Set x = Nothing
End If
Exit Sub
Err1:
Exit Sub

FEATURE_BROWSER_EMULATION设置说明
值	说明
10001 (0x2711)	Internet Explorer 10。网页以IE 10的标准模式展现，页面!DOCTYPE无效
10000 (0x02710)	Internet Explorer 10。在IE 10标准模式中按照网页上!DOCTYPE指令来显示网页。Internet Explorer 10 默认值。
9999 (0x270F)	Windows Internet Explorer 9. 强制IE9显示，忽略!DOCTYPE指令
9000 (0x2328)	Internet Explorer 9. Internet Explorer 9默认值，在IE9标准模式中按照网页上!DOCTYPE指令来显示网页。
8888 (0x22B8)	Internet Explorer 8，强制IE8标准模式显示，忽略!DOCTYPE指令
8000 (0x1F40)	Internet Explorer 8默认设置，在IE8标准模式中按照网页上!DOCTYPE指令展示网页
7000 (0x1B58)	使用WebBrowser Control控件的应用程序所使用的默认值，在IE7标准模式中按照网页上!DOCTYPE指令来展示网页。

注：11000(0×2af8) IE11