UC知道vbs简单问题
来源：百度知道 编辑：UC知道 时间：2024/06/02 04:29:53
在记事本输入
Dim msg,sapi
msg=InputBox("输入英文","发音程序")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
保存为vbs 可以作为英语发音程序 请问怎么让它能反复运行 而不是点确定之后就消失了呢？
不能完善一点吗
补充要求：
1。点击确定后 发音一次 并保留原输入的内容
2。点击取消后可正常退出
Dim msg,sapi
msg=InputBox("输入英文","发音程序")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
保存为vbs 可以作为英语发音程序 请问怎么让它能反复运行 而不是点确定之后就消失了呢？
不能完善一点吗
补充要求：
1。点击确定后 发音一次 并保留原输入的内容
2。点击取消后可正常退出
Dim msg,sapi
Set sapi=CreateObject("sapi.spvoice")
Do
msg=InputBox("输入英文","发音程序")
If msg <> "" Then sapi.Speak msg
Loop
'结束进程wscript.exe即可终止程序。