如何用蜂鸣器发音来报警,当报警时其它程序没有挂起,照样能运行!

解决方案 »

  1.   

    API MessageBeep() 是异步的。
      

  2.   

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

  3.   

    楼上的大哥可以给点具体的代码吗?我真的是一点都不懂!
    API   MessageBeep() 具体怎么做啊?
    在这里先谢谢了!
      

  4.   

    MessageBeep通过喇叭发声,Beep用蜂鸣器发声但是非异步的。
    Option ExplicitPublic Const MB_ICONASTERISK As Long = &H40&
    Public Const MB_ICONEXCLAMATION As Long = &H30&
    Public Const MB_ICONHAND As Long = &H10&
    Public Const MB_ICONQUESTION As Long = &H20&
    Public Const MB_OK As Long = &H0&Declare Function MessageBeep Lib "user32.dll" (ByVal wType As Long) As LongSub Main()
        MessageBeep MB_OK
    End Sub
      

  5.   

    如果你的机器上没有装声卡(这样的机器很难找到了),直接用 Beep 函数就可以。
      

  6.   

    messagebeep 这个貌似系统静音的话就没有声音了
      

  7.   

    小心音量控制PC Speaker太小或静音