跪求：关于VB的网络编程

来源：百度知道 编辑：UC知道 时间：2024/06/27 07:53:55
江湖救急啊:小弟要用VB编写一个网络程序，C/S模式，主要功能是将服务器端的一个text文本框的内容同步在所有客户端上显示，希望大大们能给个具体点的程序出来，合要求的再给50分！！！
我就是用的winsock控件,但是它每次只有最后一个能连接上,换了几种方法也不行,所以才来求教...

Private Sub sckserver_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim sip As String
Dim I As Integer
sip = sckserver(0).RemoteHostIP '获得登录者的IP地址
I = 1
Do While I <= sckserver.ubound '检查是否已经有该地址的记录
If sckserver(I).RemoteHostIP = sip Then '如有，不必加载新的控件
If sckserver(I).State <> sckClosed Then
sckserver(I).Close
sckserver(I).Accept requestID
'接受具有 requestID 参数的,连接。
End If
Exit Sub
End If
I = I + 1
Loop
Load sckserver(I) '否则，加载新的控件
sckserver(I).Accept requestID
End Sub

For I = 1 To sckserver.Count - 1
If sckserver(I).State <> sckClosed Then
Dim stata As String
stata = Text2.Text
sckserver(I).SendData stata
End If
Next

你使用TCP连接吧:
做这种用UDP更好

----------------------------------------------------
服务端:
Text1 Textbox 文本框
Lis