利用Winsocket控件实现C/S结构，主要实现发送 接收Excel文件的功能？

Question

在这果里写代码，不好看，你也不一定理解，如果需要原程序的话，可以把Email告诉我。
也可以发Email给我，[email protected]
我有一个自己编的网络监视器可以得到对方的屏幕锁定对方等。运行方式是TCP/IP方式，得到对方的屏幕就是把对方机器上的文件通过WinSock在TCP/IP下传送到本机来，用来二进制文件的读写，把Excel文件读成二进制数据，再还原是可以的。我原来写一个报表传递程序就是这样实现的。

Answer 1

我的Email是：[email protected]
太谢谢你了！

Answer 2

希望这个对你有点用 他可以下文件http://www.21code.com/codebase/?pos=down&id=756
源码简介：
这个实用程序允许你通过TCP/IP，远程重新启动, 登录-离开, 下载文件, 删除文件, 调用应用程序,自动打开一个浏览器浏览网址，并且查看桌面  

Answer 3

小弟只想要针对Excel文件的传送接收方面的代码！！！帮忙呀

Answer 4

hezhongxia(老厶）太没信用了，说好了，却没有给我发过来，难道担心不给分，也太小气了吧！

Answer 5

有没有人帮忙呀，小弟实在别无办法，只有求助csdn中的高手了

Answer 6

对不起，你的邮件我发了，就是发不出去，每次都被打了回来。
现在我给你关键代码。(如果你现在在网上的话，请连系我，我的QQ：28711743)
接收端：
注1: 最好定义一个全局字符变量 strTXT,Lenx as Long型变量
strTXT="FileSize"   接收文件大小字节(此变量先设置)
strTXT="File"       接收文件
private sub form_load()
  Winsock1.Close
  Winsock1.LocalPort = 3016
  Winsock1.Listen
end subPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  Winsock1.Close
  Winsock1.Accept requestID
  Winsock1.SendData "FileLenx"
End Sub
'以下这个事件是Winsock1收到数据时发生的
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   dim lenx as long
   select case strtxt
       case "FileSize"   '接收文件大小
             Winsock1.GetData lenx
             Winsock1.SendData "File"
             strTXT="File"
          Case "File"
             On Error GoTo errx
             ReDim bytx(Lenx) As Byte
             If bytesTotal >= Lenx Then
                Winsock1.PeekData bytx, vbArray + vbByte, Lenx
                Dim l As Long
                l = FreeFile
                Open "c:\Excl.xls" For Binary Access Write As #l
                Put #1, , bytx
                Close #l
                msgbox "收到文件 C:\Excl.xls"
                ReDim bytx(0)
             End If
   end select
End Sub
'以下是发送端(全局变量同上)
Private sub command1_click()
    Winsock1.Close
    Winsock1.RemoteHost ="10.10.1.1"
    Winsock1.RemotePort = 3016
    Winsock1.Connect
end subPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim i As Long
  Winsock1.GetData strTXT
  Select Case strTXT
         Case "FileLenx"
              lenx=filelen("c:\book1.xls")
              Winsock1.SendData lenx
         Case "File"
              ReDim bytt(Lenx) As Byte
              Dim l As Long
              l = FreeFile
              Open "c:\book1.xls" For Binary Access Read As #l
              Get #l, , bytt
              Close #l
              Winsock1.SendData bytt
              ReDim bytt(0)
    ens select
End Sub
实在对不起，这是我现写的，如果有什么问题请连系我。
注:主要注意使用Open 打开文件，读出二进制数数据，发送二进制数据-->接收二进制数据，然后还原文件。主要思路是这样的。