可以用WINSOCK控件实现联机, 设一个Command,两个Winsock,下面要设置IP,写入以下代码看发生什么. Private Sub Form_Load() Winsock1.RemoteHost = "写你电脑的IP" Winsock1.RemotePort = 5555 Winsock2.LocalPort = 5555 Winsock2.Listen End Sub Private Sub Winsock1_Connect() Winsock1.SendData "收到吗?" End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim S As String Winsock1.GetData S, vbString If S = "收到了." Then Winsock1.SendData "那就好." Print S End Sub Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long) Winsock2.Close Winsock2.Accept requestID End Sub Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long) Dim S As String Winsock2.GetData S, vbString If S = "收到吗?" Then Winsock2.SendData "收到了." Print S End Sub