level 1
爱翠无悔
楼主
'以下代码转至http://www.23dmc.com/
'需要使用 VBScript编译器(VBS也疯狂)V2.0以上版本编译
'下载地址 http://www.23dmc.com/thread-1-1-1.html
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"
2011年04月25日 01点04分
1
'需要使用 VBScript编译器(VBS也疯狂)V2.0以上版本编译
'下载地址 http://www.23dmc.com/thread-1-1-1.html
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"
