适用于hta的sleep函数

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