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

即可。