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

Question

我想创建一个程序，自动读取所有的起始参数，这是我经过几个小时的研究和调试后的结果，但还是不行。这是我经过几个小时的研究和调试后得到的结果，但它仍然不能正常工作。错误信息的原文是："Anweisung erwart"。"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

参考 这个 你可以写这样的东西。

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