类QQ的程序怎么写啊

Question

就是很多人可以同时聊天的啊

Answer 1

加两个Winsock 控件WsClient  WsServer（0)三个菜单MenuServer(caption=服务器)   MenuClient(caption=连接到服务器)   MenuEnd(caption=断开)
一个文本框 TxtSend
一个标签框 label1
Dim Sock As IntegerPrivate Sub MenuClient_Click()
    WsClient.RemotePort = 789
    WsClient.Connect WsClient.LocalIP
    
    Me.Caption = "本机为客户端"
End SubPrivate Sub MenuEnd_Click()
    WsServer(0).Close
    WsClient.Close    Me.Caption = "本机已断开连接"
End SubPrivate Sub MenuServer_Click()
    WsServer(0).LocalPort = 789
    WsServer(0).Listen
    
    WsClient.RemotePort = 789
    WsClient.Connect WsClient.LocalIP
    
    Me.Caption = "本机为服务器"
End SubPrivate Sub TxtSend_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        WsClient.SendData TxtSend.Text
        TxtSend.Text = ""
    End If
End SubPrivate Sub WsClient_DataArrival(ByVal bytesTotal As Long)
    Dim s As String
    WsClient.GetData s
    Text1.Text = Text1.Text & s & vbCrLf
End SubPrivate Sub WsServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    Sock = Sock + 1
    Load WsServer(Sock)
    WsServer(Sock).Accept requestID
    
    Label1.Caption = "已连接用户: " & Sock
End SubPrivate Sub WsServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Dim s As String
    Dim i As Integer
    
    WsServer(Index).GetData s
    For i = 0 To Sock Step 1
        If WsServer(i).State = sckConnected Then
            MsgBox "OK"
            WsServer(i).SendData s
        End If
    Next i
    
    
End Sub

Answer 2

QQ可不是这么简单就能做到，
要用NAT，也是地址转换，因为外网访问内网不能直接访问的，要通过服务器给你打洞的！

Answer 3

呵呵,用WINSOCK的UDP协议..很好做的!做聊天室..没有问题最好有一个服务端!

Answer 4

TO  VisionSpace(幻影时空)  握要向你学习阿，怎么做UDP协议，穿NET
其实QQ的东西很多，随便一个就够我们研究的拉
我把握知道的列举一下
1。UDP穿NET（点对点） 这个是关键技术，QQ的聊天，文件，语音，视频，都是采用的他，你想像1下要保证穿透NET,不丢包，不错发是多么艰巨的任务阿
2。UDP使用代理服务器连接 SOCKETS4,SOCKETS5,HTTP代理的UDP传送哪一个不值得研究
3。多服务器同步，他可以自动检测他的4台服务器选择最快的登陆，还要保证4个服务器同步
4。细节上QQ的聊天窗体，谁知道是什么控件作的（握正准备用DHTML实现,资料太少啊）,可以支持背景。播放音乐，视频。。
握觉得整个技术的核心是UDP的理解，我不敢想象，至少很多我不会实现
汗~~~~~~~~~~~~~~