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

mini · 2006-09-25, 07:12 PM

這
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簡體版
這樣就可以看到到簡體字
或到中文化版區求助繁中化

2006-09-25, 07:12 PM	#4 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13488 精華: 0 現金: 26849 金幣資產: 3024779 金幣	這 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簡體版這樣就可以看到到簡體字或到中文化版區求助繁中化

	送花文章: 2053, 收花文章: 8067 篇, 收花: 26918 次

Google 提供的廣告