中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-04 17:22
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » VBS,制作个性化开机问候语 查看 748 回复 0
楼 主 VBS,制作个性化开机问候语 发表于 2007-05-29 12:10 ·  中国 新疆 乌鲁木齐 电信
高级用户
★★★
Autowalk
积分 845
发帖 375
注册 2007-03-03 01:58
19年会员
UID 80606
性别 男
状态 离线

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 ]
你好,脚本专家!
<a target=blank href=tencent://message/?uin=29654761&Site=www.111.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:29654761:5 alt="点击这里给我发消息"></a>
论坛跳转: