疑問 - 請教關於寫簡單的程式來模擬鋼琴(vbscript)

[mini]

這
dim MCIOBJ
set MCIOBJ = CreateObject("WScript.Shell")
MCIOBJ.run "mplay32.exe /play /close c:\piano.wav"
三行，存成 某某.vbs 就可得到效果了

去掉 /close 的話，演奏完 mplay32.exe開啟的播放視窗程式就不會自動關閉

MCIOBJ.run "Rundll32.exe Shell32.dll, Control_RunDLL mmsys.cpl,,0"
只是比喻
"是否有方法能使用 .dll 裡的API ?" 而已

Q:FoxAPIv15好像也可以,不過是簡體版,所以使用上會有亂碼
A:你可以用 Microsoft AppLocale 來掛上 FoxAPIv15簡體版
這樣就可以看到到簡體字
或 到中文化版區 求助 繁中化

[cruise70]

作者: mini

這
dim MCIOBJ
set MCIOBJ = CreateObject("WScript.Shell")
MCIOBJ.run "mplay32.exe /play /close c:\piano.wav"
三行，存成 某某.vbs 就可得到效果...

不好意思 再請教大大..

要寫這個程式我目前能夠想到的是
準備各音階的聲音檔 , 製作的時候
只能寫好譜或是給一個inputbox讓使用者填入整首譜 , 然後讓vbs執行
這種方式應該不難 , 但是我比較想要作的是彈什麼就是什麼 , 就像一般的鋼琴般
把鍵盤當作琴鍵 , 按一個音是個音...

我有查到一個網站
http://faculty.stut.edu.tw/~tang/project/proj_ref.htm
鋼琴鍵盤示範midi發聲程式設計 這項有VB原始碼
我比較驚訝的是好像是直接以winAPI來發音 , 所以不需要準備什麼鋼琴音
看了一下他好像有用到winmm的東西 , 沒學過VB和API用法
一下子看很吃力 , 完全不知所云
不知道這個程式 , 有沒有辦法vbscript化 ?
不用太複雜 , 只要可以彈就好了

他是以Form用滑鼠來彈 ( 雖然看過資料WSH可以利用,IE的物件叫出表單 )
我有想過 , 想用鍵盤彈感覺好像很難達成
因為用能夠給他指令的 , 目前我只知道
1. 以inputbox給 , 但是按一個音後要按enter , 所以不可行
2. 用另外的txt檔給或是由DOS執行時 , 順便給指令
但是這個跟一次給整首歌的情形 , 不就沒兩樣了
不知道有沒有辦法 , 達成按一個鍵就達成某事件(EX:一個鋼琴音)
的方法

[mini]

Q: 不知道這個程式 , 有沒有辦法vbscript化 ?
A: 個人是覺得沒辦法...
※VB的 WinAPI 是很簡單使用的東西 (當然你還是要了解各參數欄的意義)

如果你能解決 WSH彈奏的問題 (這一點個人想不出辦法，看了一下 VBScript 所不支援的 VBA 功能 還真不少...)
對於
設計好樂普格式後
利用讀取寫好的樂普
自動彈曲
這還好解決