Board logo

标题: [其他] 用批处理将程序附到「开始」菜单，能实现吗？ [打印本页]
作者: hzusb    时间: 2012-10-26 23:33     标题: 用批处理将程序附到「开始」菜单，能实现吗？

1.我想用批处理将某一程序附到「开始」菜单，能实现吗？就是WIN7开始菜单左半部分，不是所有程序里。

2.VBS的方法：
论坛看到一段VBS代码，但是不能定义开始菜单的名称，代码如下：
  1. Set sApp = CreateObject("Shell.Application")

  2. Set oFolder = sApp.Namespace("C:\Windows\System32\")

  3. Set oApp = oFolder.ParseName("notepad.exe")

  4. For Each verb in oApp.Verbs

  5.     If InStr(verb.Name, "附到「开始」菜单") Then verb.DoIt

  6. Next
复制代码
这段代码可以用，但开始菜单里显示的名称是notepad，能定义这个名称吗？

感谢朋友帮我解答一下，最好能定义开始菜单里显示的名称，谢谢！
作者: hzusb    时间: 2012-10-27 19:58

论坛的大神们呢？没人搞得定？还是不愿说呀？
作者: ggehuliang    时间: 2012-10-28 09:34

可以的
  1. @copy 文件名.exe "%ALLUSERSPROFILE%\「开始」菜单\" >nul
复制代码
作者: ggehuliang    时间: 2012-10-28 09:39

不过，，我电脑是XP的，Win7没试过、、应该也行才对。不行跟我说一声哦~
作者: hzusb    时间: 2012-10-28 20:56

回复 4# ggehuliang


XP这部分也有，就是开始菜单中最近打开的程序这个面板里面。

你这个代码应该是在所有程序里面，跟我说的不是同一个概念，感谢你的回复。
作者: 5872169    时间: 2018-11-26 11:14

用这个代码，DOCX文档无法附到开始菜单
作者: ygqiang    时间: 2018-11-26 14:26

回复 1# hzusb 
  1.     

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

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

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

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

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

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

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

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

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

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

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

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

  14. echo Next>>0000-win7.vbs

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

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

  17. 

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

  19. 

  20. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\画图.lnk"

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

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

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

  24. 

  25. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\记事本.lnk"

  26. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\命令提示符.lnk"

  27. 

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

  29. 

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

  31. 

  32. del /q 0000-win7.vbs

  33. exit
复制代码




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