适用于hta的Sleep函数

function Sleep(n){
    var a = new ActiveXObject("WScript.Shell");
    a.Run("%comspec% /c ping -n " + n + " 127.0.0.1 > nul", 0, 1);
    a = null;
}