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

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

  1. Set objShellApp = CreateObject("Shell.Application")
  2. Set objFolderItem = objShellApp.NameSpace("C:\Windows\System32").Items().item("noteapd.exe")
  3. Set objFIVs = objFolderItem.Verbs()
  4. For i=0 To objFIVs.Count - 1
  5. MsgBox objFIVs.Item(i)
  6. Set objFIV = objFIVs.Item(i)
  7. If objFIV.Name = "属笥(&R)" Then
  8. objFIV.DoIt
  9. Exit For
  10. End IF
  11. Next
复制代码
这个代码有什么错?运行不了,求VBS或批处理调用程序右键菜单

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

TOP

返回列表