回复：怎么让这段VBS代码时间到了用音乐提示我，
自己改好了
但是这个音乐默认的是用win自带播放程序，而且程序还不显示出来就只有声音把VBS关闭了，声音也不会关掉- -
音乐播放完了- -win自带播放程序也不会关闭
求高人完美下
dim i,j,shell
set shell=createobject("shell.application")
i=inputbox("请输入时间[H]","提示","时数[H]")
j=inputbox("请输入时间[M]","提示","分数[M]")
do
if hour(time)=csng(i) and minute(time)=csng(j) then
shell.minimizeall
set ws=createobject("wscript.shell")
ws.run"这里写的要打开的音乐文件的路径",x,ture
msgbox "时间到",,"友情提示"
exit do
else
end if
wscript.sleep 1000
loop
