获取和设置WebBrowser内核IE版本(VB.NET)

static void SetWebBrowserFeatures(int ieVersion){ ???// don‘t change the registry if running in-proc inside Visual Studio ???if (LicenseManager.UsageMode != LicenseUsageMode.Runtime) ???????return; ???//获取程序及名称 ???var appName = System.IO.Path.GetFileName(System.Diagnostics.Process.GetCurrentProcess().MainModule.FileName); ???//得到浏览器的模式的值 ???UInt32 ieMode = GeoEmulationModee(ieVersion); ???var featureControlRegKey = @"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\"; ???//设置浏览器对应用程序（appName）以什么模式（ieMode）运行 ???Registry.SetValue(featureControlRegKey + "FEATURE_BROWSER_EMULATION", appName, ieMode, RegistryValueKind.DWord); ???// enable the features which are "On" for the full Internet Explorer browser ???Registry.SetValue(featureControlRegKey + "FEATURE_ENABLE_CLIPCHILDREN_OPTIMIZATION", appName, 1, RegistryValueKind.DWord);}static int GetBrowserVersion(){ ???int browserVersion = 0; ???using (var ieKey = Registry.LocalMachine.OpenSubKey(@"SOFTWARE\Microsoft\Internet Explorer", ?????RegistryKeyPermissionCheck.ReadSubTree, ?????System.Security.AccessControl.RegistryRights.QueryValues)) ???{ ???????var version = ieKey.GetValue("svcVersion"); ???????if (null == version) ???????{ ???????????version = ieKey.GetValue("Version"); ???????????if (null == version) ???????????????throw new ApplicationException("Microsoft Internet Explorer is required!"); ???????} ???????int.TryParse(version.ToString().Split(‘.‘)[0], out browserVersion); ???} ???if (browserVersion < 7) ???{ ???????throw new ApplicationException("Not Support"); ???} ???return browserVersion;}static UInt32 GeoEmulationModee(int browserVersion){ ???UInt32 mode = 11000; // Internet Explorer 11. Webpages containing standards-based !DOCTYPE directives are displayed in IE11 Standards mode.  ???switch (browserVersion) ???{ ???????case 7: ???????????mode = 7000; // Webpages containing standards-based !DOCTYPE directives are displayed in IE7 Standards mode.  ???????????break; ???????case 8: ???????????mode = 8000; // Webpages containing standards-based !DOCTYPE directives are displayed in IE8 mode.  ???????????break; ???????case 9: ???????????mode = 9000; // Internet Explorer 9. Webpages containing standards-based !DOCTYPE directives are displayed in IE9 mode.                     ???????????break; ???????case 10: ???????????mode = 10000; // Internet Explorer 10. ???????????break; ???????case 11: ???????????mode = 11000; // Internet Explorer 11 ???????????break; ???} ???return mode;}

‘set version‘e.g. SetWebBrowserFeatures(6)Private Shared Sub SetWebBrowserFeatures(ByVal ieVersion As Integer) ???If LicenseManager.UsageMode <> LicenseUsageMode.Runtime Then Return ???‘Get the program and name ???Dim appName = System.IO.Path.GetFileName(System.Diagnostics.Process.GetCurrentProcess().MainModule.FileName) ???‘Get the value of the browser‘s mode ???Dim ieMode As UInt32 = GeoEmulationModee(ieVersion) ???Dim featureControlRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\" ???‘Set the browser to run the app (appName) in what mode (ieMode) ???Registry.SetValue(featureControlRegKey & "FEATURE_BROWSER_EMULATION", appName, ieMode, RegistryValueKind.DWord) ???‘enable the features which are "On" for the full Internet Explorer browser ???Registry.SetValue(featureControlRegKey & "FEATURE_ENABLE_CLIPCHILDREN_OPTIMIZATION", appName, 1, RegistryValueKind.DWord)End Sub‘get versionPrivate Shared Function GetBrowserVersion() As Integer ???Dim browserVersion As Integer = 0 ???Using ieKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Internet Explorer", RegistryKeyPermissionCheck.ReadSubTree, System.Security.AccessControl.RegistryRights.QueryValues) ???????Dim version = ieKey.GetValue("svcVersion") ???????If version Is Nothing Then ???????????version = ieKey.GetValue("Version") ???????????If version Is Nothing Then Throw New ApplicationException("Microsoft Internet Explorer is required!") ???????End If ???????Integer.TryParse(version.ToString().Split("."c)(0), browserVersion) ???End Using ???If browserVersion < 7 Then ???????Throw New ApplicationException("Not Support!") ???End If ???Return browserVersionEnd FunctionPrivate Shared Function GeoEmulationModee(ByVal browserVersion As Integer) As UInt32 ???Dim mode As UInt32 = 11000 ???Select Case browserVersion ???????Case 7 ???????????mode = 7000 ???????Case 8 ???????????mode = 8000 ???????Case 9 ???????????mode = 9000 ???????Case 10 ???????????mode = 10000 ???????Case 11 ???????????mode = 11000 ???End Select ???Return modeEnd Function