打开程序后反复弹出该窗口

Question

复制名称为say后缀为vbs的文件到文本文档中，显示如下:
Text = WScript.Arguments(0)
Speaker = WScript.Arguments(1)

Set s = CreateObject("SAPI.SpVoice")

For Each Voice In s.GetVoices
I = I + 1

If InStr(Voice.GetDescription, Speaker) > 0 Then
    Set s.Voice = s.GetVoices.Item(I-1)
    Exit For
End If

Next

s.Speak Text

Answer 1

引自免费微信小程序：皆我百晓生

看起来你在运行一个基于Windows Script Host (WSH) 的VBScript脚本时遇到了问题。这个错误消息表明系统无法找到或读取名为D:\galgame\Dreamin'Her-??u???-\Dreamin'Her-?u? ??-\lib\windows-x86_64\say.vbs的脚本文件。

以下是针对这个问题的解决步骤：

1. 首先，确认文件路径的准确性。检查是否存在一个名为say.vbs的文件，并且其路径与错误消息中所示的路径相匹配。如果路径中有特殊字符，可能是因为它们无法被正常识别，尝试在资源管理器中手动导航至该路径查看文件是否存在。

2. 如果文件存在但路径仍然有误，可能是由于文件夹或文件名中的特殊字符导致的。尝试将含有特殊字符的文件夹重命名，例如使用英文或数字替换掉特殊字符，然后再运行脚本。

3. 检查脚本文件本身是否有问题。你已经提供了部分脚本内容，这是一个用于语音合成的简单脚本。确保所有的语句都正确无误。将脚本内容粘贴到一个新的say.vbs文件中，然后放在容易访问的位置，比如桌面上，然后更改你的程序配置，使其指向新的脚本位置。

下面是完整的脚本内容，确认是否与你提供的相符，如果有任何差异，请修正：

Option Explicit
Dim s, I, Text, Speaker
Set s = CreateObject("SAPI.SpVoice")
Text = WScript.Arguments(0)
Speaker = WScript.Arguments(1)

For I = 1 To s.GetVoices.Count
    If InStr(s.GetVoices.Item(I).GetDescription, Speaker) > 0 Then
        Set s.Voice = s.GetVoices.Item(I)
        Exit For
    End If
Next

s.Speak Text

1. 确保你的系统安装了Microsoft Speech API。如果没有，你需要从微软官方网站下载并安装，这通常是Windows Update的一部分，但也可能需要单独获取。

2. 如果以上步骤都无法解决问题，尝试在命令提示符下执行脚本，看是否能得到更多关于错误的线索。打开命令提示符（按Win+R键，输入cmd并回车），然后使用cscript命令行工具执行脚本，如下：

cscript //nologo C:\path\to\your\say.vbs "Hello World" "Your Speaker Name"

请将上述命令中的C:\path\to\your\say.vbs替换为你的实际脚本路径，"Hello World"是你要让电脑朗读的文字，"Your Speaker Name"是你想要使用的语音引擎名称。

通过这些步骤，你应该能定位并解决问题。如果你需要进一步的帮助，特别是有关如何操作具体步骤的指导，随时告诉我。