无忧启动论坛

标题: 找到一个把程序附到开始菜单的批处理,请高手改一下 [打印本页]
作者: 765058729    时间: 2018-7-27 00:13
标题: 找到一个把程序附到开始菜单的批处理,请高手改一下
本帖最后由 765058729 于 2018-8-4 23:34 编辑

我看它的原理是通过vbs执行，请教怎么把它全部转换成vbs？最好一个vbs可以批量添加快捷方式。

这样以后就不用通过注册表那么麻烦了，请高手帮帮忙，谢谢




附到开始菜单测试.rar (738 Bytes, 下载次数: 97)

作者: MPFENG    时间: 2018-7-27 07:48
楼下帮忙。
作者: chaos888    时间: 2018-7-27 08:27
三楼负责办理
作者: 9zhmke    时间: 2018-7-27 16:37
本帖最后由 9zhmke 于 2018-7-27 16:41 编辑

试了一下，显示倒是可以了，但是没办法点击啊，你们的是否正确？

  2. Set WshShell=WScript.CreateObject("WScript.Shell")
  3. Set objShell = CreateObject("Shell.Application")
  4. Set objFSO = CreateObject("Scripting.FileSystemObject")
  5. lnkfile="%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs" '指定存放位置


  8. lnkfile=WshShell.ExpandEnvironmentStrings(lnkfile) '解析环境变量，还原成真实路径
  9. Shortcut "IE牛难骑","C:\Program Files\Internet Explorer\iexplore.exe" '建立快捷方式的名字和路径文件
  10. path=Left(lnkfile,InStrRev(lnkfile,""))
  11. name=Replace(lnkfile,path,"")
  12. Set objFolder = objShell.Namespace(path)
  13. Set objFolderItem = objFolder.ParseName(name)
  14. Set colVerbs = objFolderItem.Verbs
  15. For Each objVerb in colVerbs
  16.         If Left(objVerb.name,2) = "附到" Then objVerb.DoIt
  17. Next


  20. Function Shortcut(Short_name,path_and_name) '为菜单创建一个快捷方式
  21.         lnkfile=lnkfile & "" & Short_name & ".lnk"    '名称
  22.     set oShellLink = WshShell.CreateShortcut(lnkfile)
  23.     oShellLink.TargetPath = path_and_name      '目标
  24.     oShellLink.WindowStyle = 1    '窗口样式  1默认窗口激活，参数3最大化激活，参数7最小化
  25.     oShellLink.Hotkey = ""         '快捷键
  26.     oShellLink.IconLocation = path_and_name & ",0"     '第几个图标
  27.     oShellLink.Description = Short_name      '备注
  28.     oShellLink.WorkingDirectory = left(path_and_name,InStrRev(path_and_name,"")-1)   '起始位置
  29.     oShellLink.Arguments = ""    '参数
  30.     oShellLink.Save     '保存
  31. End Function
复制代码
作者: 765058729    时间: 2018-7-27 19:12
本帖最后由 765058729 于 2018-7-27 19:32 编辑
9zhmke 发表于 2018-7-27 16:37
试了一下，显示倒是可以了，但是没办法点击啊，你们的是否正确？




vbs出现错误,我提供的bat没有问题,闲了您再研究研究
作者: 765058729    时间: 2018-7-28 11:59
本帖最后由 765058729 于 2018-7-28 12:02 编辑
9zhmke 发表于 2018-7-27 16:37
试了一下，显示倒是可以了，但是没办法点击啊，你们的是否正确？


今天测试一下,你修改的这个是可以创建快捷方式,也可以指定位置,但是与模拟文件右键附到开始菜单有明显区别,


点击文件右键附到开始菜单会在这里创建快捷方式,而且还会添加到注册表里,%userprofile%\AppData\Roaming\Microsoft\Intern~1\QuickL~1\UserPi~1\StartMenu\

你修改的只能指位置创建快捷方式,没有点击附到开始菜单的动作,所以没有改动注册表,下面的代码好像没有工作
Set objFolder = objShell.Namespace(path)
name=Replace(lnkfile,path,"")
Set objFolderItem = objFolder.ParseName(name)
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
    If Left(objVerb.name,2) = "附到" Then objVerb.DoIt
Next
End Sub
startpin Wscript.Arguments(0)

作者: 9zhmke    时间: 2018-7-28 12:09
后面那段代码是从你给的批处理里分解出来的，如果没执行的话，菜单上会看不到内容，所以是运行了的
我以前都是直接把文件复制到菜单位置，我添加的菜单一般都指向了 “D:\我的文档\系统设置\开始菜单” ，所以没遇到过你这个问题，添加到注册表的目的是什么呢？
作者: 765058729    时间: 2018-7-28 12:37
本帖最后由 765058729 于 2018-7-28 12:41 编辑
9zhmke 发表于 2018-7-28 12:09
后面那段代码是从你给的批处理里分解出来的，如果没执行的话，菜单上会看不到内容，所以是运行了的
我以前 ...


好像是只要有附到开始菜单的动作,注册表就会有改动,我也不是很懂,不过我根据你辛苦劳动得来的代码改动一下成功,多谢,我自己真的是一窍不能,摸索着玩

我估摸着它的原理是先在附件的文件夹创建一个快捷方式,然后再检索这个快捷方式的右键菜单,只要有"附到"这两个字就点击,用下面的代码可以


Set WshShell=WScript.CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
lnkfile="%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Accessories\" '指定存放位置

lnkfile=WshShell.ExpandEnvironmentStrings(lnkfile) '解析环境变量，还原成真实路径
Shortcut "附到开始菜单测试","C:\Program Files\Internet Explorer\iexplore.exe" '建立快捷方式的名字和路径文件
Set objShell = CreateObject("Shell.Application")
path=Left(lnkfile,InStrRev(lnkfile,"\"))
Set objFolder = objShell.Namespace(path)
name=Replace(lnkfile,path,"")
Set objFolderItem = objFolder.ParseName(name)
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
    If Left(objVerb.name,2) = "附到" Then objVerb.DoIt
Next



Function Shortcut(Short_name,path_and_name) '为菜单创建一个快捷方式
        lnkfile=lnkfile & "" & Short_name & ".lnk"    '名称
    set oShellLink = WshShell.CreateShortcut(lnkfile)
    oShellLink.TargetPath = path_and_name      '目标
    oShellLink.WindowStyle = 1    '窗口样式  1默认窗口激活，参数3最大化激活，参数7最小化
    oShellLink.Hotkey = ""         '快捷键
    oShellLink.IconLocation = path_and_name & ",0"     '第几个图标
    oShellLink.Description = Short_name      '备注
    oShellLink.WorkingDirectory = left(path_and_name,InStrRev(path_and_name,"")-1)   '起始位置
    oShellLink.Arguments = ""    '参数
    oShellLink.Save     '保存
End Function
作者: JackMai    时间: 2018-9-14 16:17
chaos888 发表于 2018-7-27 08:27
三楼负责办理

真6  
作者: willson_mx    时间: 2019-3-25 12:26
楼主，你的VBS文件，现在只能添加一个，怎么改才能批量添加快捷方式呢？谢谢
作者: willson_mx    时间: 2019-3-27 16:26
本帖最后由 willson_mx 于 2019-3-31 10:21 编辑

折腾了一个下午，终于东拼西凑地把代码改成我想要的了。我改的代码可实现同一文件夹下的所有快捷方式批量附到开始菜单，不用在代码中输入快捷方式的名称和路径。如果有同名的快捷方式已附在开始菜单，会跳过，不是快捷方式的文件，也会跳过。
改良了脚本，新的VBS请到这里下载
http://wuyou.net/forum.php?mod=v ... &extra=page%3D1
作者: 窄口牛    时间: 2019-3-27 18:32
既然已经是一堆快捷方式，为啥不直接拖进去？
作者: willson_mx    时间: 2019-3-28 08:08
窄口牛 发表于 2019-3-27 18:32
既然已经是一堆快捷方式，为啥不直接拖进去？

直接拖进去并不生效，开始菜单上不会出现图标
作者: 窄口牛    时间: 2019-3-28 08:31
本帖最后由 窄口牛 于 2019-3-28 08:47 编辑

那应该是你设置了不允许拖拽？




已经是快捷方式就这么拖进去即可，如果是一些软件的路径，那就是vbs比较方便一i些。
作者: willson_mx    时间: 2019-3-28 15:55
本帖最后由 willson_mx 于 2019-3-28 15:56 编辑
窄口牛 发表于 2019-3-28 08:31
那应该是你设置了不允许拖拽？


我们说的地方不一样，你的是出现在所有程序里的，我们想它们出现在所有程序上面那个空白地方
作者: willson_mx    时间: 2019-3-28 15:55
我们想要图标出现在这里

开始.jpg (9.33 KB, 下载次数: 71)

开始.jpg
作者: lifei    时间: 2019-9-19 21:46
批量添加快捷方式



欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3