请问各大高手！
小弟在书刊上看到一段关于用Winsock控件制作聊天器的原代码！
———————————————————————————————————
客户器端的代码如下：
Private Sub Command1_Click()
Winsock1.Connect Winsock1.RemoteHost, Winsock1.RemotePort
End SubPrivate Sub Command2_Click()
If Trim(Text2.Text) <> "" Then
Winsock1.SendData Text2.Text
Text2.Text = ""
Else
MsgBox "没有消息可以发送！"
End If
End Sub
Private Sub Form_Load()
Winsock1.RemotePort = 80
Winsock1.RemoteHost = "127.0.0.1"
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
End Sub
Private Sub Winsock1_Close()
Winsock1.Close
Command2.Enabled = False
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim a As String
Winsock1.GetData a, vbString
Text1.Text = a
a = ""
End Sub
———————————————————————————————————
服务器端的代码如下：
Private Sub Command1_Click()
If Trim(Text2.Text) <> "" Then
Winsock1.SendData Text2.Text
Text2.Text = ""
Else
MsgBox "没有消息可以发送！"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
sckserver(0).LocalPort = 80
sckserver(0).Bind sckserver(0).LocalPort
sckserver(0).Listen
Label1.Caption = "IP:" + CStr(sckserver(0).LocalIP)
End Sub
Private Sub sckserver_ConnectionRequest(index As Integer, ByVal requestID As Long)
If sckserver.Count = 1 Then
Load sckserver(1)
sckserver(1).Accept requestID
Command1.Enabled = True
End If
End Sub
Private Sub sckserver_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim a As String
sckserver(1).GetData a, vbString
Text1.Text = a
a = ""
End Sub
注：服务器端的Winsock按件名为sckserver，Index属性为0
———————————————————————————————————
但是当Index属性为0时服务器端就不可以发送了信息给客户端了！
但……当Index属性为“空”时，虽然可以通过。
不过新的问题又出现了！
就是Private Sub sckserver_ConnectionRequest(index As Integer, ByVal requestID As Long
这一句编译错误“过程声明与同名事件或过和的描述不匹配”
请各大高手指案一下。
———————————————————————————————————另外如果上面的问题解决了。
可否顺便回答我下面的这一条？（下面是我自己想的，不知是对还是错。）
就是如果在“服务器端”的程序中加入DriveListBox控件、DirListBox控件
和FileListBox控件，那么怎样才能将这些控件的信息传到“客户器端”？
也就是在“客户器端”可以查看“服务器端”的磁盘资料。（有点异想天开^_^）
还有如何操作“服务器端”的机器？（不好！好像要变成低级木马了！）
如果这个方法是错的请高手写个正确的给我。
我在这里置于十二万分的谢意~！
适于打印的主题视图