找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 27936|回复: 3

[文本处理] 【已解决】BAT:如何批量将多个快捷键的运行方式更改为最大化

[复制链接]
发表于 2014-9-19 03:50:29 | 显示全部楼层 |阅读模式
本帖最后由 思想之翼 于 2014-9-20 20:14 编辑

有多个运用程序的快捷键,如何批量将这些快捷键的运行方式更改为最大化?
发表于 2014-9-19 10:26:49 | 显示全部楼层
本帖最后由 apang 于 2014-9-19 19:22 编辑
  1. strPath = Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"")-1)
  2. Set objShell = CreateObject("Shell.Application")
  3. Set objFolder = objShell.Namespace(strPath)
  4. Set fso = CreateObject("Scripting.FileSystemObject")

  5. For Each file in fso.GetFolder(strPath).Files
  6.     If LCase(Right(file, 4)) = ".lnk" Then
  7.         Set objShellLink = objFolder.ParseName(file.Name).GetLink
  8.         objShellLink.ShowCommand = 3
  9.         objShellLink.Save
  10.     End If
  11. Next

  12. MsgBox "OK"
复制代码

评分

参与人数 1技术 +1 收起 理由
思想之翼 + 1 解决问题

查看全部评分

 楼主| 发表于 2014-9-19 17:42:22 | 显示全部楼层
本帖最后由 思想之翼 于 2014-9-19 17:55 编辑

回复 2# apang

感谢您的帮助!
好像快捷键要在桌面,如果快捷键被移入某个文件夹里,代码好像不起作用了。
能否将代码修改为:改变与代码处于同一个文件内的所有快捷键的运行方式为“最大化”?
发表于 2014-9-19 19:23:20 | 显示全部楼层
回复 3# 思想之翼


    已修改
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-21 01:22 , Processed in 0.030969 second(s), 18 queries .

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表