VB语音读文方法

Attribute VB_Name = "DealWav"Dim WAVBuffer() As ByteDim DataLenOut As LongDim Datapos1 A