Set xl = WScript.CreateObject("excel.Application")
xl.Visible = False
Set fich = xl.Workbooks.Add
Set mdle = fich.VBProject.VBComponents.Add(1)
num = 0
num = num + 1: mdle.CodeModule.InsertLines num, "Declare Function midiOutClose Lib ""winmm.dll"" (ByVal hMidiOut As Long) As Long"
num = num + 1: mdle.CodeModule.InsertLines num, "Declare Function midiOutOpen Lib ""winmm.dll"" (lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long"
num = num + 1: mdle.CodeModule.InsertLines num, "Declare Function midiOutShortMsg Lib ""winmm.dll"" (ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long"
num = num + 1: mdle.CodeModule.InsertLines num, "Declare Sub Sleep Lib ""kernel32"" (ByVal dwMilliseconds As Long)"
num = num + 1: mdle.CodeModule.InsertLines num, "sub musiq()"
num = num + 1: mdle.CodeModule.InsertLines num, "notes=array(70,70,69,70,72,70,67,70,70,69,70,72,70,65,67,67,63,65,67,65,63,62,62,65,65,60,62,63,65,67,69,70,69,67,65,62,58,65,55,55,58,58)"
num = num + 1: mdle.CodeModule.InsertLines num, "durees=array(600,800,200,200,200,200,200,600,800,200,200,200,200,200,600,800,200,200,200,200,200,1400,200,200,600,400,200,200,200,200,200,200,200,200,1200,400,200,1600,200,400,200,1200)"
num = num + 1: mdle.CodeModule.InsertLines num, "For lin = 0 To ubound(notes)"
num = num + 1: mdle.CodeModule.InsertLines num, "ntt = CInt(notes(lin))"
num = num + 1: mdle.CodeModule.InsertLines num, "lowint& = (ntt * 256) + 144"
num = num + 1: mdle.CodeModule.InsertLines num, "VelOut& = 100 * 256"
num = num + 1: mdle.CodeModule.InsertLines num, "highint& = VelOut& * 256"
num = num + 1: mdle.CodeModule.InsertLines num, "ntt = lowint& + highint&"
num = num + 1: mdle.CodeModule.InsertLines num, "midiOutOpen hMidiOut, 0, 0, 0, 0"
num = num + 1: mdle.CodeModule.InsertLines num, "midiOutShortMsg hMidiOut, ntt"
num = num + 1: mdle.CodeModule.InsertLines num, "Sleep durees(lin)"
num = num + 1: mdle.CodeModule.InsertLines num, "midiOutClose hMidiOut"
num = num + 1: mdle.CodeModule.InsertLines num, "next"
num = num + 1: mdle.CodeModule.InsertLines num, "Thisworkbook.close(false)"
num = num + 1: mdle.CodeModule.InsertLines num, "Application.quit"
num = num + 1: mdle.CodeModule.InsertLines num, "end sub"
xl.Run "musiq"