将下面一段代码放入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>