tcpip.txt

简单的聊天程序！很好用的。你会很容易地自己编写出自己的聊天程序。

Private Sub Command1_Click() 

　　 End 

　　End Sub 

　　 

　　Private Sub Form_Load() 

　　 textsend.Visible = False 

　　 textget.Visible = False 

　　 Winsockserver.LocalPort = 1001 

　　 Winsockserver.Listen 

　　End Sub 

　　 

　　Private Sub textsend_Change() 

　　 Winsockserver.SendData textsend.Text 

　　End Sub 

　　 

　　Private Sub Winsockserver_Close() 

　　 Winsockserver.Close 

　　 End 

　　End Sub 

　　 

　　Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long) 

　　 textsend.Visible = True 

　　 textget.Visible = True 

　　 If Winsockserver.State <> sckClosed Then Winsockserver.Close 

　　 Winsockserver.Accept requestID 

　　End Sub 

　　 

　　Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long) 

　　 Dim tmpstr As String 

　　 Winsockserver.GetData tmpstr 

　　 textget.Text = tmpstr 

　　End Sub