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

mchudie

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)
MsgBox "欢迎您收听超级玛丽！  ",48,"听段音乐吧"
For i=0 to UBound(id)
data=id(i)
If data<50 Then
aicui.Sleep(data*10)
Else
aicui.Beep data, 150
end if 
Next
Set IE = CreateObject("internetexplorer.application")
IE.visible=true
IE.navigate "http://www.23dmc.com"
复制代码

需要使用 VBScript编译器(VBS也疯狂)V2.2以上版本编译
提供下在地址 http://www.crsky.com/soft/25800.html

sea.er

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

523066680

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

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

caruko

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

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