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