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