我换了帖子上的程序如下,还是不行,求教各位了Private Sub Form_Load() Winsock1.LocalPort = 11112 Winsock1.ListenWinsock2.RemoteHost = "127.0.0.1" '这是你本机的IP Winsock2.RemotePort = 11112 Winsock2.Connect End SubPrivate Sub Text1_Change() Winsock2.SendData Text1 End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long) If Winsock1.State <> sckClosed Then Winsock1.Close Winsock1.Accept requestID End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim str As String Winsock1.GetData str Text2 = str End Sub
Winsock1.LocalPort = 11112
Winsock1.ListenWinsock2.RemoteHost = "127.0.0.1" '这是你本机的IP
Winsock2.RemotePort = 11112
Winsock2.Connect
End SubPrivate Sub Text1_Change()
Winsock2.SendData Text1
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock1.GetData str
Text2 = str
End Sub