适用于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; 
}