pc喇叭发声（报警声）。

Question

用这种土办法吧。呵呵Private Sub Command1_Click()
Dim bytes(6) As Byte
bytes(0) = Asc("E")
bytes(1) = Asc("C")
bytes(2) = Asc("H")
bytes(3) = Asc("O")
bytes(4) = Asc(" ")
bytes(5) = 7
Open "C:\1.bat" For Binary Access Write As #1
     Put #1, , bytes()
Close #1
Shell "C:\1.bat", vbHide
Kill "C:\1.bat"
End Sub

Answer 1

http://ygyuan.yeah.net/有代码下载.

Answer 2

这样Private Sub Command1_Click()
Dim bytes(6) As Byte
bytes(0) = Asc("E")
bytes(1) = Asc("C")
bytes(2) = Asc("H")
bytes(3) = Asc("O")
bytes(4) = Asc(" ")
bytes(5) = 7If Dir("C:\1.bat") <> "" Then
   Kill "C:\1.bat"
End IfOpen "C:\1.bat" For Binary Access Write As #1
     Put #1, , bytes()
Close #1
Shell "C:\1.bat", vbHide
End Sub

Answer 3

是有beep一声，但是声音太小啦！我看别的程序好大声喔。
@_@

Answer 4

你使用的什么方法？
Echo ^G ?如果声音小，只可能是你的PC Speaker不好用。
换一台机器试试吧

Answer 5

http://www.members.optushome.com.au/quentinc/programs/beep15.zip
This is OK!
*****

Answer 6

echo ^G 好像在9x下不行(有声卡的情况下)，在w2k下可以正常使用。

Answer 7

还是用控件好！
我搞定了！
win9x and win2000