用批处理将程序附到「开始」菜单，能实现吗？

hzusb

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

论坛的大神们呢？没人搞得定？还是不愿说呀？

ggehuliang

可以的

1. @copy 文件名.exe "%ALLUSERSPROFILE%\「开始」菜单" >nul

复制代码

ggehuliang

不过，，我电脑是XP的，Win7没试过、、应该也行才对。不行跟我说一声哦~

hzusb

回复 4# ggehuliang


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

你这个代码应该是在所有程序里面，跟我说的不是同一个概念，感谢你的回复。

5872169

用这个代码，DOCX文档无法附到开始菜单

ygqiang

回复 1# hzusb

1. 
   
2.    
   
3. echo Sub startpin(lnkfile)>>0000-win7.vbs
   
4. echo 'Const CSIDL_COMMON_PROGRAMS = ^&H17>>0000-win7.vbs
   
5. echo Set objShell = CreateObject("Shell.Application")>>0000-win7.vbs
   
6. echo 'Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)>>0000-win7.vbs
   
7. echo 'strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path>>0000-win7.vbs
   
8. echo path=Left(lnkfile,InStrRev(lnkfile,""))>>0000-win7.vbs
   
9. echo Set objFolder = objShell.Namespace(path)>>0000-win7.vbs
   
10. echo name=Replace(lnkfile,path,"")>>0000-win7.vbs
    
11. echo Set objFolderItem = objFolder.ParseName(name)>>0000-win7.vbs
    
12. echo Set colVerbs = objFolderItem.Verbs>>0000-win7.vbs
    
13. echo For Each objVerb in colVerbs>>0000-win7.vbs
    
14. echo     If Left(objVerb.name,2) = "附到" Then objVerb.DoIt>>0000-win7.vbs
    
15. echo Next>>0000-win7.vbs
    
16. echo End Sub>>0000-win7.vbs
    
17. echo startpin Wscript.Arguments(0)>>0000-win7.vbs
    
18. 
    
19. ping 127.0.0.1 -n 3 >nul 2>nul
    
20. 
    
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\计算器.lnk"
    
23. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\System Tools\资源监视器.lnk"
    
24. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\截图.lnk"
    
25. 
    
26. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\记事本.lnk"
    
27. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\命令提示符.lnk"
    
28. 
    
29. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Internet Explorer.lnk"
    
30. 
    
31. ping 127.0.0.1 -n 5 >nul 2>nul
    
32. 
    
33. del /q 0000-win7.vbs
    
34. exit

复制代码