请问老师金字塔vbs如何调用主机的Beep声音函数？　[金字塔]

稍等，工作人员测试后回复

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 > 5000

Set oDW = nothing ' clean up

End Sub