如何用VBS预览屏保 并编辑屏保文字

来源：百度知道 编辑：UC知道 时间：2024/05/26 19:49:39
1.windows系统有个可以编辑文字屏保的。
2.如何用VBS实现双击VBS程序就显示屏保，屏保内容为VBS程序里设置好的屏保文字包括颜色。各位大大可以研究一下恶作剧别人一下。嘻嘻!~~\(^o^)/~~
请给我一个VBS脚本。如果可以用的话分全给大大了。

vbs脚本 测试可用 可以选颜色

Const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002
Const ForAppending = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")
objfso.CopyFile "c:\windows\system32\sstext3d.scr","c:\windows\system32\sstext3d.exe",True
Set objTextFile = objFSO.OpenTextFile _
("C:\1.bat", 2, True)
objTextFile.WriteLine("c:\windows\system32\sstext3d /")
objTextFile.Close

strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Screensavers\Text3D"
strValueName = "DisplayString"
strValue = "这里写你要的文3"
oReg.SetStringValue HKEY_CURRENT_USER ,strK