轉(zhuǎn)：http://hi.baidu.com/polar_light/blog/item/b852b1012d389b0a728da5e6.html
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 ,strKeyPath,strValueName,strValue
strValueName = "SurfaceColor"
dwValue ="FF"
oReg.SetDWORDValue HKEY_LOCAL_USER,strKeyPath,strValueName
Dim objws
Set objws=WScript.CreateObject("wscript.shell")
objws.Run "c:\1.bat",0,true
'以下是3D文字的參數(shù) 可以自定義
'[HKEY_CURRENT_USER\Software\Microsoft\Screensavers\Text3D]
'"AllScreensSame"=dword:00000000
'"SurfaceType"=dword:00000001
'"Specular"=dword:00000001
'"SurfaceColor"=dword:00FF0000 (當(dāng)前藍(lán)色 ) 文字顏色 標(biāo)準(zhǔn)RGB色 0000FF 紅 00FF00綠 FF0000藍(lán)
'"CustomTexture"=""
'"CustomEnvironment"=""
'"UseCustomColor"=dword:00000000
'"UseCustomTexture"=dword:00000000
'"UseCustomEnvironment"=dword:00000000
'"MeshQuality"=dword:000001f4
'"Size"=dword:0000000a
'"RotationSpeed"=dword:0000000a
'"RotationStyle"=dword:00000001
'"DisplayString"="DotDot11521" 要顯示文文字
'"DisplayTime"=dword:00000000
'"FontWeight"=dword:00000000 文字寬度
'"FontHeight"=dword:00000060 文字高度
'"FontItalic"=dword:01000000 斜體
'"FontCharSet"=dword:00000001
'"FontPitchFamily"=dword:535b8b00
'"FontFace"="宋體" 字體
'[HKEY_CURRENT_USER\Software\Microsoft\Screensavers\Text3D\Screen 1]
'"Leave Black"=dword:00000000
'"Disable Hardware"=dword:00000000
'"Width"=dword:00000000
'"Height"=dword:00000000
'"Format"=dword:00000000
'"Adapter ID"=hex:3e,1e,b7,d7,69,47,cf,11,39,6a,d3,00,00,c2,cb,35
posted on 2012-07-14 16:04
小王 閱讀(1627)
評(píng)論(0) 編輯 收藏 引用 所屬分類:
腳本