/*实现给网页创建桌面快捷方式*/
<script>
function creat_kuaijie(){
var objShell=new ActiveXObject("WScript.Shell");
var strDesktop=objShell.SpecialFolders("Desktop");
var objLink = objShell.CreateShortcut(strDesktop + "//一米阳光网页快捷方式.lnk");
alert(window.location.href);
with(objLink){
TargetPath = "http://hi.baidu.com/xiaohongyang";
WindowStyle = 1;
Hotkey = "CTRL+ALT+U";
Description = "这是程序描述";
WorkingDirectory = strDesktop;
Save();
}
}
</script>