Board logo

标题: [系统相关] [已解决]win7下bat命令，在开始菜单的附件accessories下，建快捷方式，并可运行? [打印本页]
作者: ygqiang    时间: 2014-12-3 11:37     标题: [已解决]win7下bat命令，在开始菜单的附件accessories下，建快捷方式，并可运行?

本帖最后由 ygqiang 于 2014-12-3 11:54 编辑

[已解决]win7系统bat命令，在开始菜单的附件accessories下面，建立快捷方式，并且可以运行?

在下面这个位置建立快捷方式
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\
（win7系统下，开始菜单下面的附件/accessories路径）

win7系统下，下面这个bat命令，在「开始」菜单下面建立快捷方式，并且可以运行。
startmenu改成accessories，好像也没用。

有人说：“startmenu是特殊文件夹所以可以用specialfolders函数获取路径
accessories不是特殊文件，所以需要把specialfolders函数整个替换成确定的accessories文件夹路径”
  1. ::创建exe文件的lnk快捷方式

  2. @echo off

  3. set "SrcFile=%SystemRoot%\system32\shutdown.exe"

  4. set "Args=-s -t 2"

  5. set "LnkFile=关机.LNK"

  6. call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%"

  7. pause & goto :eof

  8. 

  9. ::Arguments              目标程序参数

  10. ::Description            快捷方式备注

  11. ::FullName               返回快捷方式完整路径

  12. ::Hotkey                 快捷方式快捷键

  13. ::IconLocation           快捷方式图标，不设则使用默认图标

  14. ::TargetPath             目标

  15. ::WindowStyle            窗口启动状态

  16. ::WorkingDirectory       起始位置

  17. 

  18. :CreateShort

  19. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""startmenu"") & ""\%~3""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Arguments=""%~2"":b.Save:close")
复制代码
作者: ygqiang    时间: 2014-12-3 11:54

解决了。。。
  1. ::创建exe文件的lnk快捷方式

  2. @echo off

  3. set "SrcFile=%SystemRoot%\system32\shutdown.exe"

  4. set "Args=-s -t 2"

  5. set "LnkFile=关机.LNK"

  6. call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%"

  7. pause & goto :eof

  8. 

  9. ::Arguments              目标程序参数

  10. ::Description            快捷方式备注

  11. ::FullName               返回快捷方式完整路径

  12. ::Hotkey                 快捷方式快捷键

  13. ::IconLocation           快捷方式图标，不设则使用默认图标

  14. ::TargetPath             目标

  15. ::WindowStyle            窗口启动状态

  16. ::WorkingDirectory       起始位置

  17. 

  18. :CreateShort

  19. 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.Save:close")
复制代码
作者: ygqiang    时间: 2014-12-3 12:26

本帖最后由 ygqiang 于 2014-12-3 12:32 编辑 
  1. ——————————————————————————————————————————————————

  2. ——————————————————————————————————————————————————

  3. del /q 0000-win7.vbs

  4. 

  5. ::创建exe文件的lnk快捷方式

  6. ::win7系统下，在开始菜单的附件accessories下面，建立快捷方式

  7. @echo off

  8. set "SrcFile=%SystemRoot%\system32\shutdown.exe"

  9. set "Args=-s -t 2"

  10. set "LnkFile=关机.LNK"

  11. call :CreateShort "%SrcFile%" "%Args%" "%LnkFile%"

  12. pause & goto :eof

  13. 

  14. ::Arguments              目标程序参数

  15. ::Description            快捷方式备注

  16. ::FullName               返回快捷方式完整路径

  17. ::Hotkey                 快捷方式快捷键

  18. ::IconLocation           快捷方式图标，不设则使用默认图标

  19. ::TargetPath             目标

  20. ::WindowStyle            窗口启动状态

  21. ::WorkingDirectory       起始位置

  22. 

  23. :CreateShort

  24. 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.Save:close")

  25. 

  26. 

  27. ;创建exe文件的lnk快捷方式

  28. ::win7系统下，在开始菜单的附件accessories下面，建立快捷方式

  29. set SrcFile=logoff

  30. set LnkFile=C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\注销

  31. call :CreateShort "%SrcFile%" "%LnkFile%"

  32. goto :eof

  33. 

  34. ::Arguments              目标程序参数

  35. ::Description            快捷方式备注

  36. ::FullName               返回快捷方式完整路径

  37. ::Hotkey                 快捷方式快捷键

  38. ::IconLocation           快捷方式图标，不设则使用默认图标

  39. ::TargetPath             目标

  40. ::WindowStyle            窗口启动状态

  41. ::WorkingDirectory       起始位置

  42. 

  43. :CreateShort

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

  45. 

  46. 

  47. 

  48. echo Sub startpin(lnkfile)>>0000-win7.vbs

  49. echo 'Const CSIDL_COMMON_PROGRAMS = ^&H17>>0000-win7.vbs

  50. echo Set objShell = CreateObject("Shell.Application")>>0000-win7.vbs

  51. echo 'Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)>>0000-win7.vbs

  52. echo 'strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path>>0000-win7.vbs

  53. echo path=Left(lnkfile,InStrRev(lnkfile,"\"))>>0000-win7.vbs

  54. echo Set objFolder = objShell.Namespace(path)>>0000-win7.vbs

  55. echo name=Replace(lnkfile,path,"")>>0000-win7.vbs

  56. echo Set objFolderItem = objFolder.ParseName(name)>>0000-win7.vbs

  57. echo Set colVerbs = objFolderItem.Verbs>>0000-win7.vbs

  58. echo For Each objVerb in colVerbs>>0000-win7.vbs

  59. echo     If Left(objVerb.name,2) = "附到" Then objVerb.DoIt>>0000-win7.vbs

  60. echo Next>>0000-win7.vbs

  61. echo End Sub>>0000-win7.vbs

  62. echo startpin Wscript.Arguments(0)>>0000-win7.vbs

  63. 

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

  65. 

  66. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\Paint.lnk"

  67. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\Calculator.lnk"

  68. 

  69. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\System Tools\Resource Monitor.lnk"

  70. 

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

  72. 

  73. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\Snipping Tool.lnk"

  74. 

  75. 

  76. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Notepad.lnk"

  77. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Command Prompt.lnk"

  78. 

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

  80. 

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

  82. 

  83. del /q 0000-win7.vbs
复制代码




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