怎样让计算机扬声器发出声音报警？

[tanhx]

如题，怎样通过程序让计算机扬声器发出声音报警？我用Beep()函数为什么没有声音？请作过这方面的高手指点！

[kssys]

Beep(1000,1000)

另外检查你的Window是否设置为无声

[tanhx]

加上参数后提示有错误，只有不加参数才正常

[tanhx]

系统声音应该是开着的

[hhjjhjhj]

通过声卡还是PC喇叭

[tanhx]

PC喇叭

[kssys]

可能设大了，试试Beep(500,500)
需要加参数,使用了参数后提示的错误是什么？

另，把你的API声明贴出来

[tanhx]

“Public Sub Beep()”的参数太多。这不是一个库函数吗？我没有进行声明，如果需要声明，应该怎样做？

[rola]

用Beep(）方法，其中的参数可以自己试一下，看什么样的频率和间隔适合自己

[CCL]

调用API可以精确控制PC喇叭的。
Public Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Integer, ByVal dwDuration As Integer) As Integer
前一个值是频率，后一个值是持续时间。

[kssys]

to:“Public Sub Beep()”的参数太多
看不懂，.NET有内置的Beep方法，只有两个重载，一个是没有参数，一个只有两个参数。

to:这不是一个库函数吗？我没有进行声明，如果需要声明，应该怎样做？
之前以为你是调用API~_~，现在看来你是使用了.NET方法，该方法要求要有管理员权限~

[li_guang_hua]

根本不要参数：
Dim I As Integer
For I = 1 To 100 ' Loop 100 times.
Beep ' Sound a tone.
Next I

[laidon]

用api吧
先在Public Class Form1后声明一下：
Public Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Integer, ByVal dwDuration As Integer) As Integer
在需要时调用：
beep(100,100)
可以通过两个参数改变频率和时间
我以前也用过.net里的beep，但一直没找出为什么不好用，这个api绝对好用，强烈建议楼主使用

[tanhx]

多谢各位大虾相助……