20CN网络安全小组第一代论坛: 一个关于Winsock控件的问题！纪风大哥请进来一下吧！

这是在 20CN网络安全小组第一代论坛 的论坛 编程破解 中的主题 一个关于Winsock控件的问题！纪风大哥请进来一下吧！。

要查看这个主题，请使用这个 URL:
http://www.20cn.net/cgi-bin/ubb/ultimatebb.cgi?ubb=get_topic;f=5;t=000140

由 柳叶雅彦 发表于 :

请问各大高手！
小弟在书刊上看到一段关于用Winsock控件制作聊天器的原代码！
———————————————————————————————————
客户器端的代码如下：
Private Sub Command1_Click()
Winsock1.Connect Winsock1.RemoteHost, Winsock1.RemotePort
End Sub

Private 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控件，那么怎样才能将这些控件的信息传到“客户器端”？
也就是在“客户器端”可以查看“服务器端”的磁盘资料。（有点异想天开^_^）
还有如何操作“服务器端”的机器？（不好！好像要变成低级木马了！）
如果这个方法是错的请高手写个正确的给我。
我在这里置于十二万分的谢意~！

由 千年纪风 发表于 :

你可以看看这个贴子- http://www.20cn.com/ubb/Forum5/HTML/000098.html

------------------
天涯孤旅何时才能停止！
带着最终的信念飘零尘世！
只对着一屡屡的清风痴迷！
这就是我-千年纪风-与风作伴的天涯浪子...

由 相思已久 发表于 :

我好象在哪个站里面看见过这个帖子哈~你老大真有本事~那里都找了去了哈~
佩服~佩服~时间真多哈~
厉害~厉害~英文的也看懂哈~

由 woody 发表于 :

能回答就回答好了，为什么太是叫别人看帖子？

由 千年纪风 发表于 :

woody
能回答就回答好了，为什么太是叫别人看帖子？
——————————————————————

嘿嘿--贴子是我写的，我当然可以叫别人去看了！
人家是学知识来的，不是像你这样来捣乱的！

------------------
天涯孤旅何时才能停止！
带着最终的信念飘零尘世！
只对着一屡屡的清风痴迷！
这就是我-千年纪风-与风作伴的天涯浪子...

由 woody 发表于 :

等一下，这只是你发的，不是你写的