VBS调程序的右键，怎么弄？

04175884 · 发表于 2019-7-15 11:16:08

Set objShellApp = CreateObject("Shell.Application")
Set objFolderItem = objShellApp.NameSpace("C:\Windows\System32").Items().item("noteapd.exe")
Set objFIVs = objFolderItem.Verbs()
For i=0 To objFIVs.Count - 1
MsgBox objFIVs.Item(i)
Set objFIV = objFIVs.Item(i)
If objFIV.Name = "属笥(&R)" Then
objFIV.DoIt
Exit For
End IF
Next

复制代码

这个代码有什么错？运行不了,求VBS或批处理调用程序右键菜单

9zhmke · 发表于 2019-10-28 22:25:12

凡涉及汉字时必须注意编码，使用ansi或者utf8

		自动登录	找回密码
密码			注册

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

[问题求助] VBS调程序的右键，怎么弄？