标题：请问老师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 > 5000

Set oDW = nothing ' clean up

End Sub

 

非常感谢 admin 老师，不过请问这个在公式中如何调用呢？麻烦老师做一个小例子，非常感谢！

http://www.weistock.com/bbs/dispbbs.asp?boardid=9&Id=11048

 

看视频教程的VBA部分

谢谢老师，我认真学习了一遍，可是我还是有2个问题：
1：我把它做成宏以后，运行了以下这个宏，怎么声音响这么久，在哪里控制声音时间，我把循环代码注释掉好像也不行。
2：我在公式里如何调用呢？我看做成自定义函数可以调用，但是好像做成自定义函数调用后并没有声音啊！
烦请老师解答以下！非常感谢！