module.bas

局域网语音大厅系统源代码

Attribute VB_Name = "Module1"
Public current_Dsb As Byte

 Public Const Buf_Size = 15000
Public ds As DirectSound
 Public dsb As DirectSoundBuffer
 Public dsd As DSBUFFERDESC
 Public dsc As DirectSoundCapture
 Public dscb As DirectSoundCaptureBuffer

 Public dscd As DSCBUFFERDESC
 Public CaptureWave As WAVEFORMATEX
 Public capCURS As DSCURSORS
 Public ByteBuffer() As Byte

 Public buffer1(Buf_Size) As Byte
 
 Public cCaps As DSCCAPS
 Public gfPlay As Boolean
Public dsb_Ready As Boolean