求一个VB后台模拟鼠标的代码

Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10

接下来把下面的代码粘贴到你想播放声音文件的地方，比如放在命令按钮的Click事件中

Dim sFlags As Long

sFlags = SND_ASYNC Or SND_NODEFAULT