vbs注册表增删改

vbs注册表增删改非常简单.过去竟然能忍受那么多次手动在注册表编辑器操作…应该认真反思自己的懒惰了.

Dim op
Set op=WScript.CreateObject("WScript.Shell")
' 读:op.RegRead("HKCR\.xxf\value")
' 删:op.RegDelete("HKCR\.xxf\value")
dim path
path="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MAO Settings\AddonLoadTimeThreshold"
op.RegWrite path,,"REG_DWORD"
'3000表示启动IE的时候,若加载时间不大于3秒,IE不会弹出"通过禁用加载项.."这个无聊的框图

参考http://pcedu.pconline.com.cn/empolder/wz/vbscript/0507/667539_1.html