Question

vb6用winsock做聊天程序的问题

Private Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol '设置为UDP协义
Winsock1.LocalPort = 10 '设置计算机的端口，随便设置，不过两个要一样
Winsock1.RemotePort = 10
my = Winsock1.LocalIP '取得自己的IP地址，是不要的
Winsock1.RemoteHost = "180.107.120.165" '这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息

End Sub
Private Sub Timer1_Timer()
Label2 = Now
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生
Dim Tmp As String
Winsock1.GetData Tmp, vbString '取得数据
Tmp = Winsock1.RemoteHostIP + "：" + Tmp
txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text
End Sub

Private Sub Command1_Click() '发送信息
Winsock1.SendData txtSend.Text
txtMess.Text = txtMess + Chr$(13) + Chr$(10) + "192.168.1.100" + "：" + txtSend.Text
txtSend.Text = ""
End Sub

问下这样做聊天程序有没有什么问题~我看大家都是用两个窗口做的、我是一个窗口做的、
做出来得效果是这样的、
如果做得不对求教、或者把源码发到我的邮箱里779403234@163.com
~~~~(>_<)~~~~ 我财富为0了、、等下我来提高悬赏把、

Answer 1

聊天程序一个窗口怎么做：首先你服务器端要发送消息，要指定IP。
这个都是其次，
但是你发送过去，对方没程序监听，如果你用的TCP的话，返回值会总是0.
而且聊天程序要再对方的电脑上实现监听和转换。

追问

你有QQ么？留一下、我加你后再细聊、

追答

873034970