VBS,制作个性化开机问候语 - 中国DOS联盟论坛


set sp=createobject("SAPI.SPVOICE")
tm=hour(now)

if tm>= 4 and tm<10 then
	sp.speak("Good morning!")
elseif tm>=10 and tm<12 then
	sp.speak("Good day!")
elseif tm>=12 and tm<18 then
	sp.speak("Good afternoon!")
else
	sp.speak("Good evening!")
end if
wscript.sleep 700
sp.speak("Welcome to windows!   This is kitty's computer!")
set sp=nothing

可以把他放入启动文件夹或者运行一下下面的 SETUP(需要把上面的文件命名为 welcome.vbs)


set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")

a="HKEY_CURRENT_USER\Softw"
b="are\Microsoft\Windows\CurrentVersion\Ru"
c="n\welcome"

d="C:\WINDOWS\system32\we"
e="lcome.vbs"

ws.regwrite a&b&c,d&e
if fso.fileexists("welcome.vbs") then
	fso.movefile "welcome.vbs","C:\WINDOWS\system32\"
end if

[ Last edited by zhoushijay on 2007-5-29 at 06:38 PM ]

第1楼　zhoushijay	发表于 2007-05-29 12:10
高级用户　发帖 375　积分 845
VBS,制作个性化开机问候语 set sp=createobject("SAPI.SPVOICE") tm=hour(now) if tm>= 4 and tm<10 then sp.speak("Good morning!") elseif tm>=10 and tm<12 then sp.speak("Good day!") elseif tm>=12 and tm<18 then sp.speak("Good afternoon!") else sp.speak("Good evening!") end if wscript.sleep 700 sp.speak("Welcome to windows! This is kitty's computer!") set sp=nothing 可以把他放入启动文件夹或者运行一下下面的 SETUP(需要把上面的文件命名为 welcome.vbs) set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") a="HKEY_CURRENT_USER\Softw" b="are\Microsoft\Windows\CurrentVersion\Ru" c="n\welcome" d="C:\WINDOWS\system32\we" e="lcome.vbs" ws.regwrite a&b&c,d&e if fso.fileexists("welcome.vbs") then fso.movefile "welcome.vbs","C:\WINDOWS\system32\" end if [ Last edited by zhoushijay on 2007-5-29 at 06:38 PM ]