如何使用 VBS-SAPI-VOICE 读取所有参数？

Question

我想创建一个程序，自动读取所有开始参数。这就是我几个小时后的结局研究和调试但它仍然无法正常工作。（我对 VBScript 不是很有经验。）错误消息类似于 "Instruction expected" 或 "statement expected" 不知道翻译的对不对。（我用的是德文版。原来的错误信息是："Anweisung erwartet"）

Private Sub Say()
Set VOICE = createobject("sapi.spvoice")
Set Args = WScript.Arguments
Count = 0
While(count > Args.Count)
    VOICE.speak(WScript.Arguments(count))
    count = count + 1
End While
End Sub

Say()

有人有想法吗？我希望你明白我的意思。（我的英文很烂）

Answer 1

参考this你可以这样写:

Set VOICE = createobject("sapi.spvoice")
' Store the arguments in a variable:
Set objArgs = Wscript.Arguments
If objArgs.Count = 0 Then 
    Wscript.Echo "Missing parameters"
    VOICE.Speak "Missing parameters"
End If

' Display all command-line arguments
For Each strArg in objArgs
  WScript.Echo strArg
  VOICE.Speak strArg
Next

如何使用 VBS-SAPI-VOICE 读取所有参数？

How can I read all arguments with the VBS-SAPI-VOICE?

vbscript

sapi