flashercs

保存成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 If
复制代码