使用vb脚本将指定的网址设置为兼容性视图_IE10

最新推荐文章于 2024-08-31 10:12:03 发布

vnicer

最新推荐文章于 2024-08-31 10:12:03 发布

阅读量3.7k

点赞数

本文链接：https://blog.csdn.net/vnices/article/details/37392163

版权

dim objRegistry
Const HKEY_CR = &H80000001 'HKEY_CURRENT_USER常量   
Const REG_BINARY=3 '二进制类型   
 Dim  strComputer,strKeyPath,strValue,retcode
'string varable   
strComputer = "."  
strKeyPath = "Software\Microsoft\Internet Explorer\BrowserEmulation\ClearableListData"
strValue = "UserFilter"  
  
'binary array   
Dim arrData  
arrData=Array(&H41,&H1f,&H00,&H00,&H53,&H08,&Had,&Hba,&H01,&H00,&H00,&H00,&H38,&H00,&H00,&H00,&H01,&H00,&H00,&H00,&H01,&H00,&H00,&H00,&H0c,&H00,&H00,&H00,&H10,&H1c,&Hfc,&He5,&H4b,&H97,&Hcf,&H01,&H01,&H00,&H00,&H00,&H0d,&H00,&H65,&H00,&H66,&H00,&H75,&H00,&H6e,&H00,&H64,&H00,&H73,&H00,&H2e,&H00,&H63,&H00,&H6f,&H00,&H6d,&H00,&H2e,&H00,&H63,&H00,&H6e,&H00)
Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")  
objRegistry.CreateKey HKEY_CR, strKeyPath  
objRegistry.SetBinaryValue HKEY_CR, strKeyPath, strValue, arrData