查看單個文章
舊 2006-09-25, 07:12 PM   #4 (permalink)
mini
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:97 | 在線時長:9842小時 | 升級還需:154小時級別:97 | 在線時長:9842小時 | 升級還需:154小時級別:97 | 在線時長:9842小時 | 升級還需:154小時級別:97 | 在線時長:9842小時 | 升級還需:154小時級別:97 | 在線時長:9842小時 | 升級還需:154小時級別:97 | 在線時長:9842小時 | 升級還需:154小時級別:97 | 在線時長:9842小時 | 升級還需:154小時
註冊日期: 2002-12-07
文章: 13338
精華: 0
現金: 26438 金幣
資產: 3024298 金幣
預設


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簡體版
這樣就可以看到到簡體字
或 到中文化版區 求助 繁中化
mini 目前離線  
送花文章: 2012, 收花文章: 7997 篇, 收花: 26799 次
回覆時引用此帖