VBS编程之-让主板唱歌

mchudie

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

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 女声 中英文"，安装即可。