设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 求教将快捷方式附到开始菜单的批处理命令 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 17662|回复: 2

[文本处理] 求教将快捷方式附到开始菜单的批处理命令

[复制链接]
woonew
发表于 2022-4-29 13:44:27 | 显示全部楼层 |阅读模式
求教将快捷方式附到开始菜单的命令
相当于右击某个程序的快捷方式》附到[开始]菜单，的效果，批处理命令是什么？
win7下，我直接xcopy "快捷方式.lnk" "C:\Users\Administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\快捷方式.lnk" /Y /K
文件是复制过来了，但在左下开始菜单里没有显示出来，不知道为什么
回复

举报

WHY
发表于 2022-4-29 19:55:54 | 显示全部楼层
本帖最后由 WHY 于 2022-4-29 19:56 编辑

快捷方式名称：xxx.Lnk
  1. PowerShell "$oShell=New-Object -com Shell.Application;$oShell.NameSpace('%~dp0').ParseName('xxx.Lnk').Verbs()|?{$_.Name -match '^附到'}|forEach{$_.DoIt()}"
复制代码
回复

举报

ygqiang
发表于 2022-4-30 18:14:29 | 显示全部楼层
求教将快捷方式附到开始菜单的命令
相当于右击某个程序的快捷方式》附到[开始]菜单，的效果，批处理命令是 ...
woonew 发表于 2022-4-29 13:44
  1. @echo off
  2. ———————————————————————————



  6. cls

  8. ——————————————————————————————————————————————————
  9. del /q 0000-win7.vbs

  11. ::创建exe文件的lnk快捷方式
  12. ::win7系统下，在开始菜单的附件accessories下面，建立快捷方式
  13. @echo off
  14. set "SrcFile=%SystemRoot%\system32\shutdown.exe"
  15. set "Args=-s -t 2"
  16. set "LnkFile=关机.LNK"
  17. call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%" "%IconPath%"
  18. pause & goto :eof

  20. ::Arguments              目标程序参数
  21. ::Description            快捷方式备注
  22. ::FullName               返回快捷方式完整路径
  23. ::Hotkey                 快捷方式快捷键
  24. ::IconLocation           快捷方式图标，不设则使用默认图标
  25. ::TargetPath             目标
  26. ::WindowStyle            窗口启动状态
  27. ::WorkingDirectory       起始位置

  29. :CreateShort
  30. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""startmenu"") & ""\\Programs\accessories\%~3""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Arguments=""%~2"":b.IconLocation=""%windir%\system32\shell32.dll,27"":b.Save:close")


  33. ::创建exe文件的lnk快捷方式
  34. ::win7系统下，在开始菜单的附件accessories下面，建立快捷方式
  35. set SrcFile=logoff
  36. set LnkFile=C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\注销
  37. call :CreateShort "%SrcFile%" "%LnkFile%" "%IconPath%"
  38. goto :eof

  40. ::Arguments              目标程序参数
  41. ::Description            快捷方式备注
  42. ::FullName               返回快捷方式完整路径
  43. ::Hotkey                 快捷方式快捷键
  44. ::IconLocation           快捷方式图标，不设则使用默认图标
  45. ::TargetPath             目标
  46. ::WindowStyle            窗口启动状态
  47. ::WorkingDirectory       起始位置

  49. :CreateShort
  50. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""C:\windows\system32"":b.IconLocation=""%windir%\system32\shell32.dll,44"":b.Save:close")



  54. set "profils=C:\Program Files"

  56. if exist "C:\Program Files (x86)" set "profils=C:\Program Files (x86)"


  59. ::创建exe文件的lnk快捷方式
  60. ::win7系统下，在开始菜单的附件accessories下面，建立快捷方式
  61. set SrcFile=%profils%\Internet Explorer\iexplore.exe
  62. set LnkFile=%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Internet Explorer
  63. call :CreateShort "%SrcFile%" "%LnkFile%"
  64. goto :eof

  66. ::Arguments              目标程序参数
  67. ::Description            快捷方式备注
  68. ::FullName               返回快捷方式完整路径
  69. ::Hotkey                 快捷方式快捷键
  70. ::IconLocation           快捷方式图标，不设则使用默认图标
  71. ::TargetPath             目标
  72. ::WindowStyle            窗口启动状态
  73. ::WorkingDirectory       起始位置

  75. :CreateShort
  76. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")



  80. echo Sub startpin(lnkfile)>>0000-win7.vbs
  81. echo 'Const CSIDL_COMMON_PROGRAMS = ^&H17>>0000-win7.vbs
  82. echo Set objShell = CreateObject("Shell.Application")>>0000-win7.vbs
  83. echo 'Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)>>0000-win7.vbs
  84. echo 'strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path>>0000-win7.vbs
  85. echo path=Left(lnkfile,InStrRev(lnkfile,""))>>0000-win7.vbs
  86. echo Set objFolder = objShell.Namespace(path)>>0000-win7.vbs
  87. echo name=Replace(lnkfile,path,"")>>0000-win7.vbs
  88. echo Set objFolderItem = objFolder.ParseName(name)>>0000-win7.vbs
  89. echo Set colVerbs = objFolderItem.Verbs>>0000-win7.vbs
  90. echo For Each objVerb in colVerbs>>0000-win7.vbs
  91. echo     If Left(objVerb.name,2) = "附到" Then objVerb.DoIt>>0000-win7.vbs
  92. echo Next>>0000-win7.vbs
  93. echo End Sub>>0000-win7.vbs
  94. echo startpin Wscript.Arguments(0)>>0000-win7.vbs

  96. ping 127.0.0.1 -n 3 >nul 2>nul

  98. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\Paint.lnk" 画图.lnk
  99. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\Calculator.lnk" 计算器.lnk

  101. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\System Tools\Resource Monitor.lnk" 资源监视器.lnk

  103. ren "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\关机.lnk"

  105. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\Snipping Tool.lnk" 截图.lnk


  108. ren "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Notepad.lnk" 记事本.lnk
  109. ren "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Command Prompt.lnk" 命令提示符.lnk

  111. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\注销.lnk"




  116. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\画图.lnk"
  117. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\计算器.lnk"

  119. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\System Tools\资源监视器.lnk"

  121. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\关机.lnk"

  123. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\截图.lnk"


  126. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\记事本.lnk"
  127. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\命令提示符.lnk"

  129. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\注销.lnk"

  131. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Internet Explorer.lnk"

  133. ping 127.0.0.1 -n 5 >nul 2>nul

  135. del /q 0000-win7.vbs




  140. ——————————————————————————————————————————————————
  141. ——————————————————————————————————————————————————
  142. exit
复制代码
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-20 03:13 , Processed in 0.019661 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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