VBS脚本

最新推荐文章于 2024-05-15 21:33:11 发布

橘子洲头9

最新推荐文章于 2024-05-15 21:33:11 发布

阅读量1.4k

点赞数

分类专栏： vbs 文章标签： vbs

原文链接：https://tieba.baidu.com/p/2026221833

版权

vbs 专栏收录该内容

1 篇文章

订阅专栏

VBS脚本1

dim objSV
Set objSV = CreateObject("SAPI.SpVoice")
objSV.Speak("大家好,我是" & objSV.Voice.GetDescription & ",下面我给大家说一段绕口令.")
objSV.Rate = 5
objSV.Speak("巴老爷有八十八棵芭蕉树来了八十八个把式要在巴老爷八十八棵芭蕉树下住巴老爷拔了八十八棵芭蕉树不让八十八个把式在八十八棵芭蕉树下住八十八个把式烧了八十八棵芭蕉树巴老爷在八十八棵树边哭")
objSV.Rate = 0
objSV.Speak("太快了屌爆了有木有,我慢一点再说一次吧.")
objSV.Rate = 3
objSV.Speak("巴老爷有八十八棵芭蕉树来了八十八个把式要在巴老爷八十八棵芭蕉树下住巴老爷拔了八十八棵芭蕉树不让八十八个把式在八十八棵芭蕉树下住八十八个把式烧了八十八棵芭蕉树巴老爷在八十八棵树边哭")
objSV.Rate = 0
objSV.Speak("本期节目到此结束.谢谢收听!")

VBS脚本2

waittime=inputbox("请输入等待的时间（秒/s）","提醒时间","10")*1000
msg=inputbox("输入语音提示文字以便自动播报","提醒助手","10 minutes past")
For a=1 To 100000
WScript.Sleep waittime
set sapi=createobject("sapi.spvoice")
sapi.speak msg
next