VB调用主板蜂鸣器,发出警告声音

'主板蜂鸣

'

' Beep

'

' VB声明

' Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

' 说明

' 用于生成简单的声音

' 返回值

' Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError

' 参数表

' 参数 类型及说明

' dwFreq Long，声音频率（从37Hz到32767Hz）。在windows95中忽略

' dwDuration Long，声音的持续时间，以毫秒为单位。如为-1，表示一直播放声音，直到再次调用该函数为止。在windows95中会被忽略 （1秒=1000毫秒）

' ---------------------------------------------

' PB声明

'

' FUNCTION ulong Beep(ulong dwFreq,ulong dwDuration) LIBRARY "kernel32.dll"

'

'

' 根据自己需要调整两个参数调用即可

'

' 如

' beep(879,2000)

'