标题: [已解决]VBS中一个变量的使用 [打印本页]
作者: newxso 时间: 2008-9-27 20:03 标题: [已解决]VBS中一个变量的使用
- 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 编辑 ]
作者: zqz0012005 时间: 2008-9-27 22:58
逻辑结构有问题!
根据下面的代码自己分析- ctr = 0
- do
- ctr = ctr+1
- if ctr = 3 then
- Set Shutdown=WScript.CreateObject("Shell.Application")
- Shutdown.ShutdownWindows
- exit do
- else
- WScript.Sleep (1000*60*60)
- set Wmp = CreateObject("WMPlayer.ocx")
- Wmp.Url = ctr & "hour.mp3"
- do Until Wmp.PlayState = 1
- Wsh.Sleep 1000
- loop
- end if
- loop
复制代码
用while...wend语句更简洁- ctr = 0
- while ctr < 3
- ctr = ctr + 1
- WScript.Sleep 1000*60*60
- set Wmp = CreateObject("WMPlayer.ocx")
- Wmp.Url = ctr & "hour.mp3"
- do Until Wmp.PlayState = 1
- Wsh.Sleep 1000
- loop
- wend
- CreateObject("Shell.Application").ShutdownWindows
复制代码
作者: newxso 时间: 2008-9-28 06:45
终于明白了,多谢版主帮忙。看来要好好学一下VBS基础。
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |