'下面是一个vbs版URL新建器 '复制到记事本，保存为.vbs文件即可 '下面是代码： dim filem,txt,https filem=inputbox("请输入新建URL文件名（不包括后缀名）","","新建URL") https=inputbox("请输入URL目标网址") set txt=CreateObject("Scripting.Filesystemobject").opentextfile(filem & ".url",8,True)'在相同位置建立URL文件 txt.WriteLine("[InternetShortcut]") txt.WriteLine("URL=" & https) txt.WriteLine("showcommand=3")'写入URL内容 msgbox("【" & now & "】URL文件建立完毕")'建立完毕提示