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

[yuercf]

小弟利用Winsocket控件实现C/S结构，主要实现实户端发送，服务器端接收Excel文件的功能，不知如何操作，请各位大哥帮忙!!!

[hezhongxia]

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

[yuercf]

我的Email是：[e-mail]
太谢谢你了！

[yuercf]

怎么还没有发过来？？？？？

[hello8118]

我也要一份，谢谢up!

[hello8118]

[e-mail]

[yuercf]

大哥，你在吗？为什么没有给我发过来？

[yuercf]

up

[yuercf]

我等到花儿也谢了！

[xxlroad]

希望这个对你有点用

他可以下文件

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

[yuercf]

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

[yuercf]

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

[SleepKyo]

你要发个邮件通知他啊~~~~不要在这里瞎等~~~~他不是叫你发个邮件给他通知他你要源程序吗？？

[yuercf]

老大我已经给他发邮件了呀

[yuercf]

我已经发过了，就不见回音

[yuercf]

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

[hezhongxia]

对不起，你的邮件我发了，就是发不出去，每次都被打了回来。
现在我给你关键代码。(如果你现在在网上的话，请连系我，我的QQ：28711743)
接收端：
注1: 最好定义一个全局字符变量 strTXT,Lenx as Long型变量
strTXT="FileSize" 接收文件大小字节(此变量先设置)
strTXT="File" 接收文件


private sub form_load()
Winsock1.Close
Winsock1.LocalPort = 3016
Winsock1.Listen
end sub

Private 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 sub

Private 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 打开文件，读出二进制数数据，发送二进制数据-->接收二进制数据，然后还原文件。主要思路是这样的。

[yuercf]

太谢谢你了