这个程序我以前也运行过，可以运行
但是现在不能运行了
错误出现在客户端，服务器端可以吧数据传过来，但是客户端的sdata中没有东西，这就是我调试的结果
有谁能帮我解决一下这个问题啊？？？
急~~~~~

在服务器端的这段代码:

Command1.Enabled = False
Open CommonDialog1.FileName For Input As #1
'bytenum = LOF(1)
'bytenum = "f" + bytenum
'sckserver(I).SendData "f" & bytenum
While Not EOF(1)
Line Input #1, mybyte
If mybyte = "" Then allbyte = allbyte + vbCrLf
allbyte = allbyte + mybyte
Wend
Close #1
sckserver(I).SendData allbyte

不要放在 ConnectionRequest 事件，最好这样做:
1、客户端在 Connect 事件中 Send 一个 OK 到服务器，以表示连接成功，正在等待数据接收；
2、服务器端在 DataArrival 事件中 Receive 客户端的命令，然后判断是否为 OK，如果是，就执行上面的代码。

不行的说~~~~~
还是有这个错误啊

在问一个问题，我把客户端的WINSOCK控件设置成了UDP格式的
现在是可以正常运行了，会不会有什么不妥？？？

我也知道啊
但是TCP没有办法用啊
老是出错啊
谢谢了