【VB技巧】VB播放wav资源文件

VB播放wav资源文件:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1          '将控制权立即转让给程序
Private Const SND_NODEFAULT = &H2 '不使用缺省声音
Private Const SND_MEMORY = &H4     '指向一个内存文件
Private Const SND_LOOP = &H8            '循环播放
Dim B() As Byte

Private Sub Form_Load()
B = LoadResData(101, "CUSTOM")
sndPlaySound B(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY Or SND_LOOP
End Sub

文章来源于lcx.cc:【VB技巧】VB播放wav资源文件

相关推荐: 【漏洞】酷狗存在严重的XSS和Url跳转漏洞

博主补充：     你就没有测试一下发图片的地方么？非要搞得那么复杂。哎~     哎，这种垃圾漏洞，哎，不想多说什么了，太简单了：     同时演示XSS和Url跳转：     1.插入图片     2.网络地址处填写：javascript:alert(/N…