如何在桌面上建立快捷方式

 将下面一段代码放入html文件中，即可在桌面上建立一快捷方式：

<script language="VBScript">
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath + "\ET短信平台.lnk")
link.Description = "ET短信平台"
link.TargetPath = "http://www.et.com.ro"
link.Save()
</script>