[已解决]VBS中一个变量的使用

newxso

1. dim ctr
   
2. ctr = 0
   
3. do
   
4. if ctr = 3 then
   
5. Set Shutdown=WScript.CreateObject("Shell.Application")
   
6. Shutdown.ShutdownWindows
   
7. exit do
   
8. else
   
9. ctr = ctr+1
   
10. WScript.Sleep (1000*60*60)
    
11. set Wmp = CreateObject("WMPlayer.ocx")
    
12. Wmp.Url = "1hour.mp3"
    
13. do Until Wmp.PlayState = 1
    
14. Wsh.Sleep 1000
    
15. loop
    
16. end if
    
17. 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

逻辑结构有问题！
根据下面的代码自己分析

1. ctr = 0
   
2. do
   
3.     ctr = ctr+1
   
4.     if ctr = 3 then
   
5.         Set Shutdown=WScript.CreateObject("Shell.Application")
   
6.         Shutdown.ShutdownWindows
   
7.         exit do
   
8.     else
   
9.         WScript.Sleep (1000*60*60)
   
10.         set Wmp = CreateObject("WMPlayer.ocx")
    
11.         Wmp.Url = ctr & "hour.mp3"
    
12.         do Until Wmp.PlayState = 1
    
13.             Wsh.Sleep 1000
    
14.         loop
    
15.     end if
    
16. loop

复制代码

用while...wend语句更简洁

1. ctr = 0
   
2. while ctr < 3
   
3.     ctr = ctr + 1
   
4.     WScript.Sleep 1000*60*60
   
5.     set Wmp = CreateObject("WMPlayer.ocx")
   
6.     Wmp.Url = ctr & "hour.mp3"
   
7.     do Until Wmp.PlayState = 1
   
8.         Wsh.Sleep 1000
   
9.     loop
   
10. wend
    
11. CreateObject("Shell.Application").ShutdownWindows

复制代码

newxso

终于明白了，多谢版主帮忙。看来要好好学一下VBS基础。