VB聊天程序

Option Explicit
Private IgnoreText As Boolean

'----------------------各控件说明----------------------------
'--名称-------------类型---------------作用------------------
'frmMain            Form               CHAT主窗体
'Winsock1           Winsock            连接控件
'Label1             Label              CONNECT WITH IP标签
'Label2             Label              LOCAL PORT标签
'Label3             Label              REMOTE PORT标签
'txtRemoteIP        TextBox            远程IP地址输入框
'txtLocalPort       TextBox            本地PORT输入框
'txtRemotePort      TextBox            远程PORT输入框
'cmdConnect         CommandButton      连接CONNECT按钮
'Label4             Label              Type your text and hit Enter to send it.标签
'Frame1(remoteip)   Frame              REMOTE IP 框架
'Frame2(host ip)    Frame              HOST IP 框架
'Text1              TextBox            显示对方（远程主机ÿ