Set obSpeak = Wscript.CreateObject("SAPI.SpVoice")
'obSpeak.rate = 1
Dim i
'For i = 0 to 10 step 2
obspeak.speak("qiergao")
obspeak.speak("qiergao")
obspeak.speak("dar dar de qiergao")
'Next
老传统，复制到记事本，后缀改为vbs，双击即可帮糕帅富们吆喝喊话，省去你的大声吆喝
写个程序卖切糕——自动喊话版
常见问题
相关文章
猜你喜欢
- VB 中创建表格(1) 2015-12-14
- 实现电费缴纳 2015-12-13
- VBScript调用WinRAR备份项目目录用日期作为文件名 2015-12-12
- 显示文件夹的树形目录 2015-12-11
- Base64文件编码 2015-12-07
- 使用Predicate 的递归FindControl 2015-12-01
- asp 数组显示方法 2015-12-01
- ASP.NET Suggester – 自动完成控件 2015-11-27
- VBA转换Excel数据表为SQL脚本 2015-11-25
- VB动态自定义菜单项（自绘菜单） 2015-11-23
