Copy codeThe Code is as follows:
Function toDesktop (sUrl, sName ){
Try {
Var WshShell = new ActiveXObject ("WScript. Shell ");
Var oUrlLink = WshShell. CreateShortcut (WshShell. SpecialFolders ("Desktop") + "\" + sName + ". url ");
OUrlLink. TargetPath = sUrl;
OUrlLink. Save ();
} Catch (e ){
Alert ("the current IE security level does not allow operations! ");
}
}
<A href = "javascript: void (0);" onclick = "toDesktop ('HTTP: \ // www.163.com/','163netyi')"> create shortcuts </a>
Copy codeThe Code is as follows:
<! --- Copy the following text to notepad and save it as a. htm file. Open it with IE to preview the effect. --->
<Script language = "JavaScript">
Function toDesktop (sUrl, sName ){
Try
{
Var WshShell = new ActiveXObject ("WScript. Shell ");
Var oUrlLink = WshShell. CreateShortcut (WshShell. SpecialFolders ("Desktop") + "\" + sName + ". url ");
OUrlLink. TargetPath = sUrl;
OUrlLink. Save ();
}
Catch (e)
{
Alert ("the current IE security level does not allow operations! ");
}
}
</Script>
<Input name = "btn" type = "button" id = "btn" value = "Starlight download" onClick = "toDesktop ('HTTP: \ // cjss.tsh88.cn/', 'Super search')">
<Input name = "btn" type = "button" id = "btn" value = "C disk" onClick = "toDesktop ('file: \ // C :', 'C disk') ">