[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创] VBS编程之-让主板唱歌

本帖最后由 mchudie 于 2011-4-25 10:09 编辑
  1. id=Array(659, 659, 15, 659, 15, 523, 659, 15, 784, 30, 392, 45, 523, 30, 392, 30, 330, 30, 440, 30, 494, 15, 466, 440, 15, 392, 15,659, 784, 880, 15, 698, 784, 15, 659, 15, 523, 587, 494, 30, 523, 30, 392, 30, 330, 30, 440, 30, 494, 15, 466, 440, 15, 392, 15, 659, 784, 880, 15, 698, 784, 15, 659, 15, 523, 587, 494, 15, 784, 740, 622, 659, 523, 587, 392, 440, 523, 15, 440, 523, 587, 15, 784, 740, 622, 659, 523, 15, 1046, 15, 1046, 1046, 30, 784, 740, 622, 659, 523, 587, 392, 440, 523, 15, 440, 523, 587, 15, 622, 30, 587, 30, 523, 30, 392, 392, 15, 392, 30, 523, 523, 15, 523, 15, 523, 587, 15, 659, 523, 15, 440, 392, 15, 523, 523, 15, 523, 15, 523, 587, 659, 15, 392, 15, 523, 523, 15, 523, 15, 523, 587, 15, 659, 523, 15, 440, 392, 15, 659, 659, 15, 659, 15, 523, 659, 15, 784, 30, 523, 30, 392, 30, 330, 30, 440, 30, 494, 15, 466, 440, 15, 392, 15, 659, 784, 880, 15, 698, 784, 15, 659, 15, 523, 587, 494, 30, 523, 30, 392, 30, 330, 30, 440, 30, 494, 15, 466, 440, 15, 392, 15, 659, 784, 880, 15, 698, 784, 15, 659, 15, 523, 587, 494, 30, 659, 523, 15, 392, 15, 415, 15, 440, 698, 15, 698, 698, 30, 494, 880, 15, 880, 5, 880, 5, 784, 5, 698, 15, 659, 523, 15, 440, 392, 30, 659, 523, 15, 392, 15, 415, 15, 440, 698, 15, 698, 698, 30, 494, 698, 5, 698, 5, 698, 5, 698, 5, 659, 5, 587, 523, 30)
  2. MsgBox "欢迎您收听超级玛丽!  ",48,"听段音乐吧"
  3. For i=0 to UBound(id)
  4. data=id(i)
  5. If data<50 Then
  6. aicui.Sleep(data*10)
  7. Else
  8. aicui.Beep data, 150
  9. end if
  10. Next
  11. Set IE = CreateObject("internetexplorer.application")
  12. IE.visible=true
  13. IE.navigate "http://www.23dmc.com"
复制代码
需要使用 VBScript编译器(VBS也疯狂)V2.2以上版本编译
提供下在地址 http://www.crsky.com/soft/25800.html

IE.navigate "http://www.23dmc.com"

TOP

"VBS编程之-让主板唱歌"
这个标题不给力,我看成了……

"VBS编程之-让版主唱歌"

TOP

=.= 其实VBS还可以让电脑读小说的。
set so=CreateObject("SAPI.SpVoice")
so.Speak "您好"

如果要读中文,需要WIN 7系统,或者去下载中文语音包。
http://g.iciba.com/dictdown/tts.html
下载 "捷通华声 XiaoKun 女声 中英文",安装即可。

TOP

返回列表