- dim ctr
- ctr = 0
- do
- if ctr = 3 then
- Set Shutdown=WScript.CreateObject("Shell.Application")
- Shutdown.ShutdownWindows
- exit do
- else
- ctr = ctr+1
- WScript.Sleep (1000*60*60)
- set Wmp = CreateObject("WMPlayer.ocx")
- Wmp.Url = "1hour.mp3"
- do Until Wmp.PlayState = 1
- Wsh.Sleep 1000
- loop
- end if
- loop
复制代码 以上代码每一小时播放一次提醒,分别顺序播 1hour.mp3、2hour.mp3、3hour.mp3 ,三小时后停止播放并启用关机程序。请问如何把 ctr 应用到 Wmp.Url = "1hour.mp3" 句中来代替其中的数字 1 呢?我试过 Wmp.Url = "ctr&hour.mp3" 这种形式均不能。
[ 本帖最后由 newxso 于 2008-9-28 06:58 编辑 ] |