请问在一个VBS脚本中是否可以运行两个或多个独立的循环

newxso

我想在一个VBS脚本中运行两个独立的循环，或者在一个VBS循环中嵌套另一个循环。此情形在BAT中用 for 就很容易实现，不知VBS能否实现，请高手指点。

zqz0012005

1、什么叫独立的循环？非嵌套循环不都是独立的吗？

2、嵌套循环很容易啊

for i=1 to 9
    for j=1 to 9
        if j <= i then str = str & i & "×" & j & "=" & i * j & vbTab
    next
    str=str & vbCrlf
next
WScript.Echo str
复制代码

newxso

是这样的，现在有两个VBS1和VBS2，VBS1是循环检测即时钟点，VBS2是一个延时循环提示程序，如何把VBS1合拼到VBS2中呢？

VBS1：

Set WshShell = CreateObject("Wscript.Shell")
SleepTime = "23:00:00"
While true
   if DateDiff("s", Time, SleepTime) < 0 then 
     WshShell.Popup "睡眠时间已到，马上就会关机!    ", 20, "温馨提示", vbInformation
     WshShell.run "shutdown -s -r -t 0"
     Wscript.Quit
   end if
   WScript.Sleep(10000) 
wend 
复制代码

VBS2：

Set WshShell = CreateObject("Wscript.Shell")
for i = 1 to 3
     Wscript.Sleep 1000*60*60
     WshShell.Popup "你已经使用电脑" &i& "个小时了，请注意休息!    ", 10, "温馨提示", vbInformation
next
Wscript.Sleep 1000*15
WshShell.Popup "电脑的使用时间已到，马上就会关机!    ", 20, "温馨提示", vbInformation
WshShell.run "shutdown -s -r -t 0"
复制代码

[ 本帖最后由 newxso 于 2008-11-10 09:03 编辑 ]

zqz0012005

其实你的意思就是满足两个条件之一就关机：超过23:00:00或者超过3个小时

Set WshShell = CreateObject("Wscript.Shell")
SleepTime = "23:00:00"
for i = 1 to 3
    counter = 0
    While counter<60
        if DateDiff("s", Time, SleepTime) < 0 then 
            WshShell.Popup "睡眠时间已到，马上就会关机!    ", 20, "温馨提示", vbInformation
            WshShell.run "shutdown -s -r -t 0"
            Wscript.Quit
        end if
        WScript.Sleep 1000*60
        counter = counter + 1
    wend 
    WshShell.Popup "你已经使用电脑" &i& "个小时了，请注意休息!    ", 10, "温馨提示", vbInformation
next
Wscript.Sleep 1000*15
WshShell.Popup "电脑的使用时间已到，马上就会关机!    ", 20, "温馨提示", vbInformation
WshShell.run "shutdown -s -r -t 0"
复制代码

newxso

用版主的方法解决了两个VBS合拼的问题，多谢指点。其实我的原意是，在执行延时前先启动另一个循环，再进入延时，而被启动的另一个循环与这时的延时互相独立地进行。我想这样需要启动两个进程，在一个脚本中可能不能实现。

[ 本帖最后由 newxso 于 2008-11-20 07:19 编辑 ]

everest79

vbs不支持多线程，你要实现这种功能，可能要找个第三方线程组件，可以在网上搜搜

newxso

关于在一个 VBS 脚本中实现两个独立循环的问题，暂时用了以下方法：

Set WshShell = CreateObject("Wscript.Shell")
if WScript.Arguments.Count = 0 then
   MyName = WScript.ScriptFullName
   WshShell.run(chr(34) & MyName & chr(34) & " a"),0,false
   One
else
   Two
end if
Wscript.Quit

'循环1
Sub One()
    for i = 1 to 5
        WshShell.popup "提示" & i & "次!", 2, "提示A"
        Wscript.Sleep 1000
    next
End Sub

'循环2
Sub Two()
    for j = 1 to 10
        WshShell.popup "提示" & j & "次!", 2, "提示B"
        Wscript.Sleep 1000
    next
End Sub
复制代码

利用以上方法，可以把在 3 楼提到的两个 VBS 合拼到一个 VBS 中。

[ 本帖最后由 newxso 于 2008-11-26 08:54 编辑 ]