分享:最完美最简洁的代码;如果你安装了声卡的话,还能发出声音。
MsgBox a
如果你安装了声卡的话,还能发出声音。
好东西不敢独享。 谢谢,这个代码正需要。 还要确保你音响开着,并且接通了电源,电源要有电,而且是220V交流电。
ps:并且要看了zx099x的神贴,才会响哦 声卡还需要正确驱动
我的电脑喵的一声
我的电脑'duang'的一声... 首先要是一个好声卡
笔记本电脑如果电池有电也可以响 好像在不同电脑上还可以发不同的声音呢
我电脑上是“嘟”的一声
朋友电脑上竟然是“叮”的一声
LZ真牛 他不用笔记本,暴露了
拿把锤子敲一下,包响。 我的静音了.... 没死机就好
LZ真牛 能不能让他“汪,汪”地叫?
理论上讲是可以的,望楼主给出代码 如果你将WINDOWS文件夹下的WAV文件都删掉的话,就会听到一个放易做图的声音了. 口味重的朋友可以试试 完全可以
LZ 太强了
期待中......
Private Sub Command1_Click()
'从网上下载一个狗叫声,WAV格式的,如果不是的话自己找工具转换
'把文件 狗叫声.wav拷贝到"C:\WINDOWS\Media\"
If Dir("C:\WINDOWS\Media\Windows XP 叮当声.wav") <> "" Then Name "C:\WINDOWS\Media\Windows XP 叮当声.wav" As "C:\WINDOWS\Media\Windows XP 叮当声2.wav"
If Dir("C:\WINDOWS\Media\狗叫声.wav") <> "" Then Name "C:\WINDOWS\Media\狗叫声.wav" As "C:\WINDOWS\Media\Windows XP 叮当声.wav"
MsgBox a
If Dir("C:\WINDOWS\Media\Windows XP 叮当声.wav") <> "" Then Name "C:\WINDOWS\Media\Windows XP 叮当声.wav" As "C:\WINDOWS\Media\狗叫声.wav"
If Dir("C:\WINDOWS\Media\Windows XP 叮当声2.wav") <> "" Then Name "C:\WINDOWS\Media\Windows XP 叮当声2.wav" As "C:\WINDOWS\Media\Windows XP 叮当声.wav"
End Sub
迟钝的人,拿啥敲也就这样了。 msgbox "sb"
咳咳,话说WINDOWS有声音组件的,可以调用他,让他发生,至于你的计算机是男是女,需要调用验证... 发声...
Beep
是男是女,摸摸才知道……
这年头,也不能完全保证。
+1 静静的电脑 果然是真的 话说
就是想看看
Beep;Beep
旺旺, 正需要找这方面的东西。。学习中。。 死企鹅什么时候当扮猪了…… 我怎么看不到下载地址 谢谢,这个代码正需要。 楼上练得一手挖坟的好功夫
补充:VB , 多媒体