瑞星卡卡安全论坛

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
msgbox "时间到",,"友情提示"
exit do
else
end if
wscript.sleep 1000
loop


用户系统信息：Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; Trident/4.0; QQDownload 645; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0)

自己改好了:kaka1: 但是这个音乐默认的是用win自带播放程序，而且程序还不显示出来就只有声音把VBS关闭了，声音也不会关掉- -:kaka6: 音乐播放完了- -win自带播放程序也不会关闭:kaka6:

求高人完美下:kaka1:
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

用kill结束进程 Shell "cmd /c taskkill /im 进程名 /f", vbHide