如何使用MSScript控件获取VBScript中的所有函数名而不执行脚本代码？

如何只获取所有函数和过程的名称，而不是自己编写解析器

以下面的vbs代码为例，其中包括1个函数、1个过程、2个语句，我想获取函数和过程名称：1）“GetValue”2“ABC_结果”

虽然微软提供的

IScriptControl:：AddCode

可以工作，但谁的问题是 它总是执行语句（如“ABC_Result 20”，“While True Wend”）默认值

//\test.vbs

Function GetValue(varVal)
  GetValue = varval*2
End Function

Sub ABC_Result(count)
  'msgbox is not allowed in server side, so use beep

  Dim WshShell
  Set WshShell = CreateObject("Wscript.Shell")
  beep = chr(007)
  Dim i
  For i=0 To CInt(count)
    WshShell.Run "cmd /c @echo " & beep, 0
  Next
End Sub

ABC_Result 20

While True
Wend

编写“解析器”可能是一种方法，使用诸如Instr（）之类的字符串函数，甚至正则表达式

---

但是，也有类似的第三方工具可以为您提供交叉引用列表

1）语法和结构使其难以理解；2）如果我理解您的问题，您是希望捕获函数/子名称，还是希望捕获它们的文本？你能更新一下你的问题以便更容易理解吗？：）谢谢Lizz的评论。我简化了我的问题，希望你能更容易理解。