[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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,能定义这个名称吗?

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

回复 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. ping 127.0.0.1 -n 3 >nul 2>nul
  18. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\画图.lnk"
  19. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\计算器.lnk"
  20. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\System Tools\资源监视器.lnk"
  21. 0000-win7.vbs "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\截图.lnk"
  22. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\记事本.lnk"
  23. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\命令提示符.lnk"
  24. 0000-win7.vbs "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\Internet Explorer.lnk"
  25. ping 127.0.0.1 -n 5 >nul 2>nul
  26. del /q 0000-win7.vbs
  27. exit
复制代码

TOP

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

TOP

回复 4# ggehuliang


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

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

TOP

不过,,我电脑是XP的,Win7没试过、、应该也行才对。不行跟我说一声哦~
哥编的不是批处理,是寂寞

TOP

可以的
  1. @copy 文件名.exe "%ALLUSERSPROFILE%\「开始」菜单\" >nul
复制代码
哥编的不是批处理,是寂寞

TOP

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

TOP

返回列表