[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] 求助如何用bat添加桌面浏览器,属性 ,快捷方式,目标中的字符

如何用bat添加桌面浏览器,属性 ,快捷方式,目标中的字符,试了很多方法有的不行有的只能添加部分字符。

保存成1.vbs,文件编码是ANSI
修改的快捷方式必须已经存在.
  1. On Error Resume Next
  2. Dim fso,shell,folder,folderItem
  3. Set fso = CreateObject("Scripting.FileSystemObject")
  4. Set shell = CreateObject("Shell.Application")
  5. Set folder = shell.NameSpace(16) ' 桌面
  6. Set folderItem = folder.ParseName("浏览器.lnk") ' 快捷方式名
  7. If folderItem.IsLink Then
  8.   Dim shellLink
  9.   Set shellLink = folderItem.GetLink
  10.   shellLink.Arguments = "--incognito https://www.baidu.com" ' 修改参数
  11.   shellLink.Save
  12. End If
复制代码
微信:flashercs
QQ:49908356

TOP

本帖最后由 czjt1234 于 2024-11-23 17:28 编辑
  1. s = "Google Chrome.lnk"    '浏览器的名称
  2. Set oWshShell = CreateObject("WScript.Shell")
  3. oWshShell.CurrentDirectory = oWshShell.SpecialFolders("AllUsersDesktop")
  4. Set oWshShortcut = oWshShell.CreateShortcut(s)
  5. oWshShortcut.TargetPath = "C:\Windows\system32\cmd.exe"    '目标
  6. oWshShortcut.Arguments = "/k"                              '命令行参数
  7. oWshShortcut.WorkingDirectory = "C:\"                      '起始位置
  8. oWshShortcut.Hotkey = "CTRL+ALT+F"                         '快捷键
  9. oWshShortcut.WindowStyle = 1                               '运行方式
  10. oWshShortcut.Description = "备注"                           '备注
  11. oWshShortcut.IconLocation = "C:\Program Files\Internet Explorer\iexplore.exe,1"
  12. oWshShortcut.Save()
复制代码
运行方式可选值有3个:
1 窗口化 (缺省值)
3 最大化
7 最小化

IconLocation是快捷方式的图标
缺省值为TargetPath属性指定的文件的第一个图标
可以指定其它图标,如 "C:\Program Files\Internet Explorer\iexplore.exe,2"
其中的2表示该文件的第三个图标,第一个图标的序号为0

快捷键不区分大小写
比如 CTRL+ALT+F
比如 CTRL+Numpad2 表示 Ctrl + 小键盘的数字键2

QQ 20147578

TOP

回复 1# 无天

参见本坛一枚老帖 http://www.bathome.net/thread-33298-1-1.html 其中示范了桌面快捷方式各种属性值的修改方法...

TOP

powershell 能实现

TOP

返回列表