批处理之家 - Powered by Discuz! Board

标题: [已解决]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://www.bathome.net/)