保存成1.vbs,文件编码是ANSI
修改的快捷方式必须已经存在. | On Error Resume Next | | Dim fso,shell,folder,folderItem | | Set fso = CreateObject("Scripting.FileSystemObject") | | Set shell = CreateObject("Shell.Application") | | Set folder = shell.NameSpace(16) | | Set folderItem = folder.ParseName("浏览器.lnk") | | If folderItem.IsLink Then | | Dim shellLink | | Set shellLink = folderItem.GetLink | | shellLink.Arguments = "--incognito https://www.baidu.com" | | shellLink.Save | | End IfCOPY |
|