该篇展示了一则vb6.0实现TCP通信的实例，端口可以自定义 客户端： Private Sub Command1_Click() If Command1.Caption = "连接" Then If Winsock1.State <> sckClosed Then Winsock1.Close Winsock1.RemoteHost = Trim(Text1.Text) Winsock1.RemotePort = Trim(Text2.Text) Winsock1.Connect Command1.Ca…