VBS 完成类似Sleep的延时

在C++ 中需要延时可以使用Sleep 函数完成，在VBS中没有类似sleep的函数，延时可以使用如下语句完成延时：

WScript.sleep 5000 

单位是毫秒；

奈何我们公司的开发平台里并不支持WScript 对象，只能另寻他法，在网上搜到一个小函数不错：

Sub Sleep(MSecs)
    Dim objOutputFile
    Dim fso
    Set fso=CreateObject("Scripting.FileSystemObject")
    If fso.FileExists("sleeper.vbs")=False  Then
       Set objOutputFile=fso.CreateTextFile("sleeper.vbs",True)
       objOutputFile.Write "WScript.Sleep WScript.Arguments(0)"
       objOutputFile.Close
    End If

    CreateObject("WScript.Shell").Run "sleeper.vbs "& MSecs,1,True
End Sub

该函数其实是创建了个vbs文件，在文件里使用了WScript.sleep 完成延时，在运行该文件来完成延时的功能，调用如下：

Sleep  20

即可。