Board logo

标题: [文件操作] [已解决]win7系统，运行1次bat命令，就自动将快捷方式，添加到开始菜单的这个位置? [打印本页]
作者: ygqiang    时间: 2014-6-13 01:18     标题: [已解决]win7系统，运行1次bat命令，就自动将快捷方式，添加到开始菜单的这个位置?

win7系统，运行1次bat命令，就自动将快捷方式，添加到开始菜单的这个位置？如何实现？

开始菜单—所有程序，里面的软件快捷键，鼠标点击右键项目，里面有“附到开始菜单”的选项。
但是也有的没有这个选项，这是啥原因？

每次重装win7系统或者更换1台win7主机，都需要用鼠标右键，重复点击很多软件的快捷键，才能全部添加到开始菜单这个位置。
如果bat批处理命令，运行1次就能实现，会更方便。
  1. ——————————————————————————————————————————————————

  2. del /q 0000-win7.vbs

  3. 

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

  5. set SrcFile=logoff

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

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

  8. goto :eof

  9. 

  10. ::Arguments              目标程序参数

  11. ::Description            快捷方式备注

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

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

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

  15. ::TargetPath             目标

  16. ::WindowStyle            窗口启动状态

  17. ::WorkingDirectory       起始位置

  18. 

  19. :CreateShort

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

  21. 

  22. 

  23. 

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

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

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

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

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

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

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

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

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

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

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

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

  36. echo Next>>0000-win7.vbs

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

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

  39. 

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

  41. 

  42. 

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

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

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

  46. 

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

  48. 

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

  50. 

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

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

  53. 

  54. 

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

  56. 

  57. del /q 0000-win7.vbs

  58. 

  59. ——————————————————————————————————————————————————
复制代码




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