高分请求最简单的聊天程序，如果调试成功，立即送分100

Question

高分请求最简单的聊天程序，如果调试成功，立即送分100
xz8000(小熊) 提供的
http://da0pha.net/down/list.asp?id=1451
网页打不开

Answer 1

http://www.cndevx.com/source/showdoc.asp?detail_id=3190

Answer 2

去http://vbboshi.myrice.com/vbtech/network/network-3.htm看看 用Winsock制作一套聊天室和对话系统

Answer 3

A:
Private Sub Form_Load()
    Winsock1.LocalPort = 2000
    Winsock1.RemoteHost = "192.168.0.4"
    Winsock1.RemotePort = 3000
    Winsock1.Bind 2000
End Sub
Private Sub Command1_Click()
    Winsock1.SendData "AAAA"
End Sub
B:
Private Sub Form_Load()
    Winsock1.LocalPort = 3000
    Winsock1.RemoteHost = "192.168.0.8"
    Winsock1.RemotePort = 2000
    Winsock1.Bind 3000
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim S As String
    Winsock1.GetData S, vbString
    Text1 = S
End Sub

Answer 4

请问一下：sakurako(我演的是我) 
LocalPort RemotePort是不是只要取不冲突的就可以了？
还有LocalPort与LocalPortIP有什么区别?

Answer 5

不好意思，写错了，是LocalHost与LocalHostIP有什么区别