下面是VBS代码的语音识别程序，哪位大神帮我把这段代码翻成VFP的，谢谢！
'VBS语音识别程序
Dim ScriptComplete '程序结束标志
Dim SR '语音识别(Speech Recognition)对象
Dim Grammar '语音识别的命令语法对象
'初始化命令字典对象，可根据自己的需要添加命令
Set WshShell = CreateObject("WScript.Shell") '创建WshShell对象
ScriptComplete = False '初始化程序结束标志
'创建语音识别对象，调用由"Command.XML"所定义的语法，并启动语音识别引擎
Set SR = WScript.CreateObject("SAPI.SpSharedRecoContext", "RecoContext_")
Set Grammar = SR.CreateGrammar
Grammar.CmdLoadFromFile "Command.xml", 0
Grammar.CmdSetRuleIdState 0, 1
'等候你的语音命令(需要安装麦克风),当识别出"命令结束"命令时程序结束
Do
   WScript.Sleep 1000
Loop Until ScriptComplete
'语音命令被识别
Sub RecoContext_Recognition(ByVal StreamNumber,ByVal StreamPosition,ByVal RecognitionType,ByVal Result )
    Text = Result.PhraseInfo.GetText '获取语音识别引擎所识别的命令
    If Text <> "命令结束" Then
       MsgBox Text
     Else
       ScriptComplete = true '程序结束标志
    End If  
End Sub

inkey(1)是等待1秒，让用户键盘输入。
而本任务要等待的是：
SAPI中的ISpeechRecoContext（事件）
Recognition事件：当SR引擎产生一个识别时发生；
它被作为语音识别中最重要的一个事件，因为它返回一次成功识别的结果。一次成功的识别就是一个单词或者短语满足识别上下文的的开发语法的要求或者语音质量满足最低信任值。如果上述两点都不符合，引擎将会返回FalseRecognition事件。被发音的内容不满足信任值有很多原因，如背景干扰、不清晰语音、不常用单词或短语。
结果成员中包括识别结果对象，并且从这些可以得出更多关于语音的信息。

不知道这个事件在VFP中怎么写...

[此贴子已经被作者于2021-12-28 09:58编辑过]

这个博客里有4篇介绍SAPI的博文，可惜我看不太懂，您看能不能把那个事件移植到VFP里写。。。
https://

就是不知道这个事件在VFP里怎么写
Sub RecoContext_Recognition(ByVal StreamNumber,ByVal StreamPosition,ByVal RecognitionType,ByVal Result )     '如果语音命令被识别时发生
    。。。。
End Sub

[此贴子已经被作者于2021-12-28 10:11编辑过]

出错信息：方法程序或事件不能含有嵌套的过程或类定义。

RecoContext不是个控件，是VFP用Set RecoContext = WScript.CreateObject("SAPI.SpSharedRecoContext", "RecoContext_")创建的一个对象；
Recognition是创建的这个对象本身的事件：当Recognition产生一个语音识别时发生，它是语音识别中最重要的一个事件，因为它返回一个成功识别的结果；
现在的问题是，不知道这个事件在VFP中怎么写...

问题已自己解决，谢谢！