VBscript循环 - 每15分钟告诉一次

Question

我只想要一个文件，我可以双击并让Windows口头告诉我每15分钟的时间。 （直到我杀了这个过程）

我找到了一个VBscript的教程，它讲述了每小时的时间： https://www.nextofwindows.com/windows-trick-how-to-make-your-computer-to-speak-out-time-at-every-hour

我无法让Windows调度程序为我的目的使用它（仅在双击时启动并且每15分钟运行一次），老实说，我只想在脚本本身编写一个15分钟间隔的循环。 （也许使用Do / While循环和Sleep()？）

另一个问题：

我尝试添加一个分钟变量，因此Windows也会宣布会议记录：

Dim speaks, speech
speaks = “It is ” & hour(time) & minute(time)
Set speech = CreateObject(“sapi.spvoice”)
speech.Speak speaks

然而，它以这种方式以奇数格式宣布时间。例如，它现在是凌晨5点01分，当我运行脚本时，Windows说“它是五十一”。为什么它将5:01解释为五十加一？早些时候，当我在4点32分进行测试时，它说“四百二十二点”。我希望以正常的12小时方式说出时间。

Answer 1

这是5秒。所以60 x 15 = 900。

如果您希望将数字解析为单个数字，则数字之间需要空格。

MIN_AMOUNT