金字塔vbs如何調用主機的Beep聲音函數？ [金字塔]
- 咨詢內容： 因為PLAYSOUND是要外接音響的，但是很多人向我反映機器沒有音響，或者不方便開音響，希望我能提供主機的bios的發聲，最好能提供bios的長短設置。pel公式我查了，沒有相關函數，那么vbs應該可以調用吧，請老師幫幫我。我實在不想用TB給客戶編。
- 金字塔客服：
稍等，工作人員測試后回復
- 用戶回復： 老師，有結果嗎？謝謝！
- 網友回復：
Sub Test()
' beep demo, jw 19Jan01
' instantiate DynaWrap...
Set oDW = CreateObject("DynamicWrapper")
' declare the api call...
oDW.Register "KERNEL32.DLL", "Beep", "i=ll", "f=s", "r=l"
' call the api (parameters are: frequency, duration)
f = 50
Do
f = f + 50
oDW.Beep f, 100
Loop Until f > 5000Set oDW = nothing ' clean up
End Sub
- 網友回復： 非常感謝 admin 老師，不過請問這個在公式中如何調用呢？麻煩老師做一個小例子，非常感謝！
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 262069696 進行 有償 編寫！（不貴！點擊查看價格！）
相關文章
-
沒有相關內容
會員登錄/注冊