需要定时报时软件，要可自定义报时的内容

a4512353

求个可自定义报时内容的PC软件,大致要求是报时前先读一段内容，报时可以自定义每隔几分钟报时一次。
报时的内容大约如下：欢迎大家来到。。。，现在是北京时间X月X日X点X分
我的想法是前面那段语音可以自己录，但是怎样连起来实时报时
希望找到相关软件，谢谢

j542936

学校的那种定时下课闹钟？

帅帅糖爸

随便哪种报时软件，把报时语音文件换掉就是最简单的了吧

帅帅糖爸

[Asm] 纯文本查看 复制代码

' 创建一个用于报时的语音对象  
Set objTTS = CreateObject("sapi.spvoice")  
  
' 设置无限循环来检查时间  
Do While True  
    ' 获取当前时间  
    currentMinute = Minute(Now)  
      
    ' 检查是否为 0、15、30 或 45 分钟  
    If currentMinute = 0 Or currentMinute = 15 Or currentMinute = 30 Or currentMinute = 45 Then  
        ' 使用语音合成技术报时  
        objTTS.Speak "现在是北京时间 " & Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日 " & Hour(Now) & "时" & currentMinute & "分"  
        WScript.Sleep 2000 ' 暂停 2 秒让语音播放完  
    End If  
      
    ' 每秒检查一次时间  
    WScript.Sleep 1000  
Loop

帅帅糖爸

内容可以自定义，保存成vbs就行了

a4512353

帅帅糖爸 发表于 2024-3-1 10:23
内容可以自定义，保存成vbs就行了

报错
行：12
字符：无效字符
代码：800A0408

a4512353

帅帅糖爸 发表于 2024-3-1 09:13
随便哪种报时软件，把报时语音文件换掉就是最简单的了吧

找了一圈，没找到可以自定义报时间隔的软件

帅帅糖爸

a4512353 发表于 2024-3-1 20:56
报错
行：12
字符：无效字符

另存时需要改变编码，ANSI

[Asm] 纯文本查看 复制代码

MsgBox "已开始服务"  
  
'调用语音库  
Set objTTS = CreateObject("sapi.spvoice")  
Dim lastHourReported  
lastHourReported = -1 ' 用于跟踪上次报告的小时  
  
'循环检查时间  
Do  
    If Second(Time) = 0 Then  
        Dim minuteNow, hourNow  
        minuteNow = Minute(Now)  
        hourNow = Hour(Now)  
          
        ' 如果小时改变了，或者这是该小时的第一个整点，则报告日期  
        If hourNow <> lastHourReported Or minuteNow = 0 Then  
            objTTS.Speak "欢迎大家来到吾爱破解，现在是北京时间 " & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & " " & Hour(Time) & ":" & Right("0" & minuteNow, 2)  
            lastHourReported = hourNow  
        End If  
          
        Select Case minuteNow  
            Case 0, 15, 30, 42, 45  
            objTTS.Speak "欢迎大家来到吾爱破解，现在是北京时间 " & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & " " & Hour(Time) & ":" & Right("0" & minuteNow, 2)  
        End Select  
    End If  
    WScript.Sleep 1000 ' 一秒钟执行一次，以避免 CPU 占用  
Loop

liudream

帅帅糖爸 发表于 2024-3-4 08:03
另存时需要改变编码，ANSI

[mw_shl_code=asm,true]MsgBox "已开始服务"  

开启了这咋关闭？

ASCII

https://www.52pojie.cn/forum.php?mod=viewthread&tid=1896056&highlight=%D7%D4%B6%AF