|
黑名单法精简注册表的一次性批量处理注册表的辅助方法可以3秒得出可删除的注册表文件
本方法来自江南一颗葱的提问,由本论坛大神@slore出手解决了!
极限精简注册表是为了在保持同等功能的前提下,将注册表里无关的冗余项目全部都删除掉,这样能让pe开机更快进入桌面也能让pe的体积做到最小!
而黑名单删除注册表的方法和一键批处理黑名单删除pe核心文件一样是最稳pe制作方法,但是注册表项目枝节藤蔓实在太多太繁琐了。
Slore大神提供了一个RemoveSubKey.vbs来辅助批量处理注册表导入reg文件的删除黑名单,具体语句如下:
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateTrue = -1, TristateFalse = 0
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("pe-soft-black.reg", ForReading, False)
keys = f.ReadAll()
f.Close()
Dim i, n, arr, arr_out
arr = Split(keys, vbCrLf)
Redim arr_out(UBound(arr))
arr_out(0) = "Windows Registry Editor Version 5.00"
arr_out(1) = vbCrLf
n = 2
Dim lastkey
lastkey="-invaild-window-registry-key-"
For i = 2 To UBound(arr) - 1
If InStr(1, arr(i), lastkey) = 0 Then
arr_out(n) = arr(i)
n = n + 1
lastkey = Left(arr(i), Len(arr(i)) - 1) 'Remove ']'
End If
Next
Redim Preserve arr_out(n)
Set f = fso.CreateTextFile("c.txt", ForWriting)
f.Write(join(arr_out, vbCrLf))
f.Close()
MsgBox "Finished"
|
评分
-
查看全部评分
|