Board logo

标题: [文本处理] 求教将快捷方式附到开始菜单的批处理命令 [打印本页]

作者: woonew    时间: 2022-4-29 13:44     标题: 求教将快捷方式附到开始菜单的批处理命令

求教将快捷方式附到开始菜单的命令
相当于右击某个程序的快捷方式》附到[开始]菜单,的效果,批处理命令是什么?
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

本帖最后由 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

求教将快捷方式附到开始菜单的命令
相当于右击某个程序的快捷方式》附到[开始]菜单,的效果,批处理命令是 ...
woonew 发表于 2022-4-29 13:44
  1. @echo off
  2. ———————————————————————————
  3. cls
  4. ——————————————————————————————————————————————————
  5. del /q 0000-win7.vbs
  6. ::创建exe文件的lnk快捷方式
  7. ::win7系统下,在开始菜单的附件accessories下面,建立快捷方式
  8. @echo off
  9. set "SrcFile=%SystemRoot%\system32\shutdown.exe"
  10. set "Args=-s -t 2"
  11. set "LnkFile=关机.LNK"
  12. call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%" "%IconPath%"
  13. pause & goto :eof
  14. ::Arguments              目标程序参数
  15. ::Description            快捷方式备注
  16. ::FullName               返回快捷方式完整路径
  17. ::Hotkey                 快捷方式快捷键
  18. ::IconLocation           快捷方式图标,不设则使用默认图标
  19. ::TargetPath             目标
  20. ::WindowStyle            窗口启动状态
  21. ::WorkingDirectory       起始位置
  22. :CreateShort
  23. 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")
  24. ::创建exe文件的lnk快捷方式
  25. ::win7系统下,在开始菜单的附件accessories下面,建立快捷方式
  26. set SrcFile=logoff
  27. set LnkFile=C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\注销
  28. call :CreateShort "%SrcFile%" "%LnkFile%" "%IconPath%"
  29. goto :eof
  30. ::Arguments              目标程序参数
  31. ::Description            快捷方式备注
  32. ::FullName               返回快捷方式完整路径
  33. ::Hotkey                 快捷方式快捷键
  34. ::IconLocation           快捷方式图标,不设则使用默认图标
  35. ::TargetPath             目标
  36. ::WindowStyle            窗口启动状态
  37. ::WorkingDirectory       起始位置
  38. :CreateShort
  39. 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")
  40. set "profils=C:\Program Files"
  41. if exist "C:\Program Files (x86)" set "profils=C:\Program Files (x86)"
  42. ::创建exe文件的lnk快捷方式
  43. ::win7系统下,在开始菜单的附件accessories下面,建立快捷方式
  44. set SrcFile=%profils%\Internet Explorer\iexplore.exe
  45. set LnkFile=%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Internet Explorer
  46. call :CreateShort "%SrcFile%" "%LnkFile%"
  47. goto :eof
  48. ::Arguments              目标程序参数
  49. ::Description            快捷方式备注
  50. ::FullName               返回快捷方式完整路径
  51. ::Hotkey                 快捷方式快捷键
  52. ::IconLocation           快捷方式图标,不设则使用默认图标
  53. ::TargetPath             目标
  54. ::WindowStyle            窗口启动状态
  55. ::WorkingDirectory       起始位置
  56. :CreateShort
  57. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")
  58. echo Sub startpin(lnkfile)>>0000-win7.vbs
  59. echo 'Const CSIDL_COMMON_PROGRAMS = ^&H17>>0000-win7.vbs
  60. echo Set objShell = CreateObject("Shell.Application")>>0000-win7.vbs
  61. echo 'Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)>>0000-win7.vbs
  62. echo 'strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path>>0000-win7.vbs
  63. echo path=Left(lnkfile,InStrRev(lnkfile,"\"))>>0000-win7.vbs
  64. echo Set objFolder = objShell.Namespace(path)>>0000-win7.vbs
  65. echo name=Replace(lnkfile,path,"")>>0000-win7.vbs
  66. echo Set objFolderItem = objFolder.ParseName(name)>>0000-win7.vbs
  67. echo Set colVerbs = objFolderItem.Verbs>>0000-win7.vbs
  68. echo For Each objVerb in colVerbs>>0000-win7.vbs
  69. echo     If Left(objVerb.name,2) = "附到" Then objVerb.DoIt>>0000-win7.vbs
  70. echo Next>>0000-win7.vbs
  71. echo End Sub>>0000-win7.vbs
  72. echo startpin Wscript.Arguments(0)>>0000-win7.vbs
  73. ping 127.0.0.1 -n 3 >nul 2>nul
  74. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\Paint.lnk" 画图.lnk
  75. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\Calculator.lnk" 计算器.lnk
  76. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\System Tools\Resource Monitor.lnk" 资源监视器.lnk
  77. ren "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\关机.lnk"
  78. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\Snipping Tool.lnk" 截图.lnk
  79. ren "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Notepad.lnk" 记事本.lnk
  80. ren "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Command Prompt.lnk" 命令提示符.lnk
  81. ren "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\注销.lnk"
  82. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\画图.lnk"
  83. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\计算器.lnk"
  84. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\System Tools\资源监视器.lnk"
  85. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\关机.lnk"
  86. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\截图.lnk"
  87. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\记事本.lnk"
  88. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\命令提示符.lnk"
  89. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\注销.lnk"
  90. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Internet Explorer.lnk"
  91. ping 127.0.0.1 -n 5 >nul 2>nul
  92. del /q 0000-win7.vbs
  93. ——————————————————————————————————————————————————
  94. ——————————————————————————————————————————————————
  95. exit
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2