UDP实现网上聊天。

Question

你不是UDP吗,向下面那样写就可以了
    With informSocket
        .RemoteHost = 202.118.1.76   ''''这里输入对方IP(可以用文本框动态读入)
        .RemotePort = 21001
        .Bind 21001
    End With
那个21001就是你自己指定的端口,没有人和你冲突的,自己随便写

Answer 1

找台做服务器服务器的port固定，client的 port同过server传

Answer 2

楼上说的不错.
要么你就这样,干脆就用TCP,用动态的winsock数组,然后用一个固定端口监听,每到来一个新连接就动态生成一个实例(新实例的端口你不要设,让电脑自动选取)

Answer 3

转贴自http://vbsite.my5599.com/
UDP协议基础：
　　UDP(User Datagram Protocol)是一种无连接协议，与TCP操作不同，计算机间并不需要建立一个连接，同时，一个UDP应用可同时作为应用的客户或服务器方。
　　由于UDP协议并不需要建立一个明确的连接，因此建立UDP应用要比建立TCP应用简单得多。在TCP应用中，一个Winsock控制必须明确地设置成“监听”，而其它Winsock控制则必须使用Connect方法来初始一个连接。
　　使用UDP协议，在两个Winsock控制间进行数据的发送，在连接的两端必须完成以下三步：
　　1.设置RemoteHost属性为其它计算机的名称；
　　2.设置RemotePort属性为第二个Winsock控制的LocalPort属性的值；
　　3.申请Bind方法。
　　通过使用方法Bind，则可将该Winsock控制捆绑到一个本地端口，以便该Winsock控制使用该端口来进行类似TCP的“监听”功能，并防止其它应用使用该端口。
　　使用该协议传送数据，首先设置客户计算机的LocalPort属性。而作为服务器的计算机仅需要设置RemoteHost属性为客户计算机的IP地址或域名即可，并将其RemotePort属性设置成客户计算机上的LocalPort属性即可，然后就可通过申请SendData方法来开始信息发送，客户计算机则可在其DataArrial事件中使用方法GetData来获取发送的信息。
　　下例具体演示了一个“谈话”应用，以允许相互间进行实时的交谈。
　　UDP应用一：
　　建立一个新标准EXE工程文件，拖放一个Winsock控制到表单上，添加两个文本框到表单上，然后进行以下属性的设置：
　　表单(Form):Name=“frmPeerA” Caption=“UDP Application(1)”
　　Winsock控制：Name=“udpPeerA” Protocol=“sckUDPProtocol”
　　文本框1(TextBox): Name“txtSend”
　　文本框2(TcxtBox): Name=“txtOutput” MultiLine－True ScrollBars=2
　　然后打开代码窗口，分别在相应的事件下输入以下代码：
　　Private Sub Form_Load()
　　 With udpPeerA
　　 .RemoteHost = "197.1.1.2" '要连接到的计算机名
　　 .RemotePort=1010 '要连接到的端口号
　　 .LocalPort=1011 '该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯
　　 .Bind 1011 '将该Winsock控制绑定到该本地端口
　　 EndWith
　　End Sub
　　Private Sub txtSend_Change()
　　 udpPeerA.SendData txtSend.Text'发送文本
　　End Sub
　　Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
　　 Dim strData As String
　　 udpPeerA.GetData strData,vbString
　　 txtOutput.Text = strData
　　End Sub
　　UDP应用二：
　　类似建立UDP Server的方法，在表单上添加一个Winsock控制及两个文本框，然后进行以下属性的设置：
　　表单(Form):Name=“frmPeerB” Caption=“UDP Application(2)”
　　Winsock控制：Name=“udpPeerB” Protocol=“sckUDPProtoclool”
　　文本框1(TextBox)：Name=“txtSend”
　　文本框2(TextBox)：Name=“txtOutput” MultiLine=True ScrollBars=2
　　然后输入以下代码：
　　Private Sub Form_Load()
　　 With udpPeerB
　　 .RemoteHost = "197.1.1.2" '要连接到计算机的IP地址
　　 .RemotePort=1011 '要连接到的端口号
　　 .LocalPort=1010 '该Winsock控制将使用的本地端口号，便于其它方与之通讯
　　 .Bind 1010 '将该Winsock控制绑定到该本地端口
　　 End With
　　End Sub
　　Private Sub txtSend_Change()
　　 udpPeerB.SendData txtSend.Text '发送文本
　　End Sub
　　Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)
　　 Dim strData As String
　　 udpPeerB.GetData strData,vbString
　　txtOutput.Text=strData
　　End Sub
　　要运行该实例，打开两个Visual Basic的事例，然后分别运行这两个工程文件即可。若要在不同的机器上运行此两例，只需要将两个工程文件中的RemoteHost改变成相应的计算机的IP地址或域名即可(以上例子在Visual Basic 5.0及PWIN97上通过)。

Answer 4

谢谢小石头大侠了。
这个程序我已经理解了。但上面几位大侠说的。但snakeegg
说的那个动态实现每到来一个新连接就动态生成一个实例的程序。我还是做不出。可不可以帮帮忙啊。谢谢了

Answer 5

下面这段代码是在MSDN上找出来的：下面的代码假定名为 sckServer 的窗体上有一个 Winsock 控件，它的 Index 属性被设置为 0；因此控件是控件数组的一部分。在声明部分，声明了一个模块级的变量 intMax。在窗体的 Load 事件中，intMax 被设置为 0，数组中第一个控件的 LocalPort 属性被设置为 1001。然后调用控件的 Listen 方法，使之成为“监听”控件。在连接请求到达时，代码将检测 Index 是否为 0（“监听”控件的值）。如果为 0，监听控件将增加 intMax 的值，并使用该号码来创建新的控件实例。然后，使用新的控件实例接受连接请求。Private intMax As LongPrivate Sub Form_Load()
   intMax = 0
   sckServer(0).LocalPort = 1001
   sckServer(0).Listen
End SubPrivate Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
   End If
End Sub

Answer 6

服务器
Dim nSocket As Integer
Private Sub Form_Load()
    srSocket(0).LocalPort = 1549
    srSocket(0).Listen
End Sub
Private Sub srSocket_Close(Index As Integer)
    lblRemoteHost(Index).Caption = ""
    lblInfo(Index).Caption = "此连接已经断开"
    srSocket(Index).Close
    Unload srSocket(Index)
End Sub
Private Sub srSocket_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    nSocket = nSocket + 1
    Load srSocket(nSocket)
    srSocket(nSocket).Accept requestID
    lblRemoteHost(nSocket).Caption = srSocket(nSocket).RemoteHostIP
End Sub
Private Sub srSocket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Dim Rec As String
    srSocket(Index).GetData Rec, vbString
    lblInfo(Index).Caption = Rec
End Sub
客户端
Private Sub clSocket_Close()
    clSocket.Close
    MsgBox "连接已经断开"
End SubPrivate Sub clSocket_Connect()
    clSocket.SendData "客户端已成功登录"
End SubPrivate Sub cmdJoin_Click()
    clSocket.RemoteHost = "10.10.11.132"
    clSocket.RemotePort = 1549
    clSocket.Connect
End Sub
Private Sub cmdSendData_Click()
    Static num As Integer
    num = num + 1
    clSocket.SendData Str(num)
End Sub
Private Sub cmdCutoff_Click()
    Call clSocket_Close
End Sub

Answer 7

Option ExplicitPrivate Sub cmdConnect_Click()
On Error GoTo errhandler
With Winsock1
   .RemoteHost = Trim(txtRemoteIP)
   .RemotePort = Trim(txtRemotePort)
   If .LocalPort = Empty Then
   .LocalPort = Trim(txtRemotePort)
   frame2.Caption = .LocalIP
   .Bind .LocalIP
   End If
End With
   txtlocalPort.Locked = True
   StatusBar1.Panels(1).Text = "connected to " & Winsock1.RemoteHost & ""
   Frame1.Enabled = True
   frame2.Enabled = True
   Label4.Visible = True
   Text2.SetFocus
   Exit Sub
errhandler:
MsgBox "winsock failed to establish to connection with remote server", vbCritical
End Sub
Private Sub Form_Load()
txtlocalPort = ""
txtRemoteIP = ""
txtRemotePort = ""
Text2 = ""
Label4 = ""
Show
txtRemoteIP = Winsock1.LocalIP
End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)
Static last_line_Feed As Long
Dim new_line As String
If Trim(Text2) = vbNullString Then last_line_Feed = 0
If KeyAscii = 13 Then
new_line = Mid(Text2, last_line_Feed + 1)
last_line_Feed = Text2.SelStart
Winsock1.SendData new_line
StatusBar1.Panels(2).Text = " send " & (LenB(new_line) / 2) & "bytes"
End If
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim New_Text As StringWinsock1.GetData New_TextText1.SelText = New_TextFrame1.Caption = Winsock1.RemoteHostIPStatusBar1.Panels(2).Text = " receieved " & bytesTotal & " bytes"End Sub