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