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

hzusb

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

2.VBS的方法：
论坛看到一段VBS代码，但是不能定义开始菜单的名称，代码如下：

Set sApp = CreateObject("Shell.Application")
Set oFolder = sApp.Namespace("C:\Windows\System32\")
Set oApp = oFolder.ParseName("notepad.exe")
For Each verb in oApp.Verbs
    If InStr(verb.Name, "附到「开始」菜单") Then verb.DoIt
Next
复制代码

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

感谢朋友帮我解答一下，最好能定义开始菜单里显示的名称，谢谢！

hzusb

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

ggehuliang

可以的

@copy 文件名.exe "%ALLUSERSPROFILE%\「开始」菜单\" >nul
复制代码

ggehuliang

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

hzusb

回复 4# ggehuliang


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

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

5872169

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

ygqiang

回复 1# hzusb

    
echo Sub startpin(lnkfile)>>0000-win7.vbs
echo 'Const CSIDL_COMMON_PROGRAMS = ^&H17>>0000-win7.vbs
echo Set objShell = CreateObject("Shell.Application")>>0000-win7.vbs
echo 'Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)>>0000-win7.vbs
echo 'strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path>>0000-win7.vbs
echo path=Left(lnkfile,InStrRev(lnkfile,"\"))>>0000-win7.vbs
echo Set objFolder = objShell.Namespace(path)>>0000-win7.vbs
echo name=Replace(lnkfile,path,"")>>0000-win7.vbs
echo Set objFolderItem = objFolder.ParseName(name)>>0000-win7.vbs
echo Set colVerbs = objFolderItem.Verbs>>0000-win7.vbs
echo For Each objVerb in colVerbs>>0000-win7.vbs
echo     If Left(objVerb.name,2) = "附到" Then objVerb.DoIt>>0000-win7.vbs
echo Next>>0000-win7.vbs
echo End Sub>>0000-win7.vbs
echo startpin Wscript.Arguments(0)>>0000-win7.vbs

ping 127.0.0.1 -n 3 >nul 2>nul

0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\画图.lnk"
0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\计算器.lnk"
0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\System Tools\资源监视器.lnk"
0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\截图.lnk"

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

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

ping 127.0.0.1 -n 5 >nul 2>nul

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