请问老师vbs如何调用主机的Beep声音函数？ - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 请问老师vbs如何调用主机的Beep声音函数？

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有7633人关注过本帖树形打印复制链接主题：请问老师vbs如何调用主机的Beep声音函数？

3dian

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：416 积分：2483 威望：0 精华：0 注册：2012/5/17 9:23:48

请问老师vbs如何调用主机的Beep声音函数？ 发帖心情

Post By：2012/9/11 14:17:32 [只看该作者]

因为PLAYSOUND是要外接音响的，但是很多人向我反映机器没有音响，或者不方便开音响，希望我能提供主机的bios的发声，最好能提供bios的长短设置。pel公式我查了，没有相关函数，那么vbs应该可以调用吧，请老师帮帮我。我实在不想用TB给客户编。

jinzhe

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：罗宾汉帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25

Post By：2012/9/11 14:20:57 [只看该作者]

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

金字塔—专业程序化交易量化投资平台

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com

3dian

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：416 积分：2483 威望：0 精华：0 注册：2012/5/17 9:23:48

Post By：2012/9/11 16:37:42 [只看该作者]

老师，有结果吗？谢谢！

admin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32

Post By：2012/9/11 21:07:19 [只看该作者]

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