vb语音传输

粘的别人的，我也顺便看看

传输语音和文件都可以通过Mswinsock 实现，只是速度方面我没有试过，我正巧最近也弄了点Mswinsock 相关的东西，代码发给你看看，希望有帮助传送文件对于网络编程来说是基本的功能，比如远程控制软件。在编制一个软件时，我从网上下了很多传文件的程序，这些程序提供的传文件功能根本就不能用。传文本还可以，传二进制文件根本就不行。因此，作为一个基本的功能模块，有必要单独介绍一下。 首先，在VB中要传送字符串，你可以这样写：Dim strData As StringstrData = "Test"Winsock1.SendData strData 但是如果你传送的二进制文件，你还能用String变量来存放吗？从理论上分析是不行的，我也做了实验，确实是不行的。文件虽然可以传，但是接受的文件和发送的不一样，原因可能是二进制文件里可以有任何"字符"，但是不是所有的字符都可以放在String变量里。 除了String类型的变量，VB中其他类型的变量都只有几个字节长，难道一次只能发几个字节吗？那样岂不是要累死机器了！其实，情况没有那么悲观，我们完全可以使用数组来解决这个问题，就是使用byte数组。把要传送的文件都读到数组里，然后发送出去。程序如下：FileName 为要传送的文件名，WinS为发送文件的WinSock控件。这是一个发送端的程序。Public Sub SendFile(FileName As String, WinS As Winsock)Dim FreeF As Integer ''空闲的文件号Dim LenFile As Long ''文件的长度Dim bytData() As Byte ''存放数据的数组FreeF = FreeFile ''获得空闲的文件号Open FileName For Binary As #FreeFile ''打开文件 DoEvents LenFile = LOF(FreeFile) ''获得文件长度ReDim bytData(1 To LenFile) ''根据文件长度重新定义数组大小Get #FreeFile,