主题：[求助]子佩录音盒如何做

                Case BriSDKLib.BriEvent_PhoneDial '电话机拨号

                    Dim PhoneNumber  =  ByteArrayToString(EventData.szData)

                    Dim dialNum = PhoneNumber

                    dialNum = dialNum.Chars(dialNum.Length-1) '拨一个号码就会接收到一条消息，后一条信息会包含之前的拨号号码，这里每次只取最后拨号的号码

                    AppendStatus("电话机拨号： " & dialNum, EventData.uChannelID)

                    If drCurrentRow IsNot Nothing Then

                        drCurrentRow("电话号码") = PhoneNumber

                        AppendCallRecord("电话机拨号： " & dialNum, EventData.uChannelID)

                    End If

                    Exit Select

具体请看Select Case m.Msg里各种消息的处理和备注说明