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

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/vnicer/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

展开阅读全文

没有更多推荐了,返回首页