VBSOCKET实现文件传输.docxVIP

接受端的程序如下: 接受端的程序如下: VB中使用 VB中使用Win Sock控件传送文件 传送文件对于网络编程来说是基本的功能，比如远程控制软件。在编制一个软件 时，我从网上下了很多传文件的程序，这些程序提供的传文件功能根本就不能用。 传文本还可以，传二进制文件根本就不行。因此，作为一个基本的功能模块，有 必要单独介绍一下。 首先，在VB中要传送字符串，你可以这样写： Dim strData As Stri ng strData = Test Win sock1.Se ndData strData 但是如果你传送的二进制文件，你还能用 String变量来存放吗？从理论上分析 是不行的，我也做了实验，确实是不行的。文件虽然可以传，但是接受的文件和 发送的不一样，原因可能是二进制文件里可以有任何 字符，但是不是所有的字 符都可以放在String变量里。 除了 String类型的变量，VB中其他类型的变量都只有几个字节长，难道一次只 能发几个字节吗？那样岂不是要累死机器了！ 其实，情况没有那么悲观，我们完 全可以使用数组来解决这个问题，就是使用 byte数组。把要传送的文件都读到 数组里，然后发送出去。程序如下： FileName为要传送的文件名，WinS为发送文件的 Win Sock控件。这是一个发 送端的程序。 Public Sub Se ndFile(FileName As St