Pure Sleep function for VB Script

Sub Sleep(intSeconds) 
    dteStart = Time() 
    dteEnd = DateAdd("s", intSeconds, dteStart)  

    While dteEnd > Time() 
        DoNothing 
    Wend
End Sub 

Sub DoNothing 
    'While/Wend has quirks when it is empty
End Sub

간단하지만 잘 먹히는 VB Script용 Sleep function참고로 보통 VB에서 쓰는 Sleep은 win32 API 가져와야하고(vbscript에서는 불가능, VB는 가능)

WScript.Shell의 Sleep function은 Vbscript에서는 먹히지 않음(이유는 모르겠음)

속도는 크게 신경 쓰면 않됨~! vbsciprt 쓰면서 성능 문제는 일단 포기 ㅎㅎ