找到一个把程序附到开始菜单的批处理,请高手改一下

765058729

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

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




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

2018-7-27 00:13 上传

点击文件名下载附件

MPFENG

楼下帮忙。

chaos888

三楼负责办理

9zhmke

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

1. 
   
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" '指定存放位置
   
6. 
   
7. 
   
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
    
18. 
    
19. 
    
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

9zhmke 发表于 2018-7-27 16:37
试了一下，显示倒是可以了，但是没办法点击啊，你们的是否正确？

vbs出现错误,我提供的bat没有问题,闲了您再研究研究

765058729

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

后面那段代码是从你给的批处理里分解出来的，如果没执行的话，菜单上会看不到内容，所以是运行了的
我以前都是直接把文件复制到菜单位置，我添加的菜单一般都指向了 “D:\我的文档\系统设置\开始菜单” ，所以没遇到过你这个问题，添加到注册表的目的是什么呢？

765058729

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

chaos888 发表于 2018-7-27 08:27
三楼负责办理

真6  

willson_mx

楼主，你的VBS文件，现在只能添加一个，怎么改才能批量添加快捷方式呢？谢谢

willson_mx

折腾了一个下午，终于东拼西凑地把代码改成我想要的了。我改的代码可实现同一文件夹下的所有快捷方式批量附到开始菜单，不用在代码中输入快捷方式的名称和路径。如果有同名的快捷方式已附在开始菜单，会跳过，不是快捷方式的文件，也会跳过。
改良了脚本，新的VBS请到这里下载
http://wuyou.net/forum.php?mod=v ... &extra=page%3D1

窄口牛

既然已经是一堆快捷方式，为啥不直接拖进去？

willson_mx

窄口牛 发表于 2019-3-27 18:32
既然已经是一堆快捷方式，为啥不直接拖进去？

直接拖进去并不生效，开始菜单上不会出现图标

窄口牛

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




已经是快捷方式就这么拖进去即可，如果是一些软件的路径，那就是vbs比较方便一i些。

willson_mx

窄口牛 发表于 2019-3-28 08:31
那应该是你设置了不允许拖拽？

我们说的地方不一样，你的是出现在所有程序里的，我们想它们出现在所有程序上面那个空白地方

willson_mx

我们想要图标出现在这里

lifei

批量添加快捷方式