图省事儿，直接弄了个Win10壁纸包，上万张风景啊、动漫之类的壁纸，设定为每十分钟一换。某些壁纸吧，要么难看，要么干脆是色情图凑数，若翻目录一个个甄别并删除属实折磨人，故此又弄个脚本，期以解决问题，如下：Const HKCU = &H80000001 'HKEY_CURRENT_USERsComputer = "."Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _& sComputer & "\root\default:StdRegProv")sKeyPath = "Control Panel\Desktop\"sValueName = "TranscodedImageCache"oReg.GetBinaryValue HKCU, sKeyPath, sValueName, sValuesContents = ""For i = 24 To UBound(sValue)vByte = sValue(i)If vByte <> 0 And vByte <> "" ThensContents = sContents & Chr(vByte)End IfNextCreateObject("Wscript.Shell").Run "explorer.exe /select,""" & sContents & """"运行后报错，如图：该脚本复制自： https://www.baiyunxitong.com/bangzhu/4131.html
