Implementación VB de comunicación TCP punto a punto (usando control winsock)

Agregar control Microsoft Winsock 6.0From1:

Private?Sub?Command1_Click()

Winsock1.SendData?Text3.SendData?End?Sub

¿Privado?Sub?Form_Load()

Texto1.Text?=?"

Texto2.Text?=?""

Winsock1.LocalPort? =?10001

Texto1.Text?=?Winsock1.LocalIP

Winsock1.Listen

Fin?Sub

¿Privado?Sub? Winsock1_ConnectionRequest(ByVal?requestID?As?Long)

Winsock1.Close

Winsock1.Accept?requestID

Fin?Sub

Privado ?Privado?Sub?Winsock1_DataArrival(ByVal?bytesTotal?As?Long)

Dim?Mystr?As?String

Winsock1.GetData?Mystr

Texto2. Texto GetData?Mystr

Winsock1.GetData?Mystr

Text2.Text?=?Text2.Text?&?Chr(10)?&?Mystr

End?Sub

Form2:

Privado?Sub?Command1_Click()

Winsock1.RemoteHost?=?Text2.Text

Winsock1 .RemoteHost?

Winsock1.Connect

Fin?Sub

Privado?Sub?Command2_Click()

Winsock1.SendData?Text4. Texto

Fin?Sub

Privado?Sub?Form_Load()

Texto1.Texto?=?"

Texto2.Texto? =?""

Texto3.Texto?=?""

Texto3.Texto?

Texto4.Texto?=?""

Text3.Text?=?""

Winsock1.RemotePort?=?10001

Text1.Text?=?Winsock1.LocalIP

End?Sub

¿Privado?Sub?Winsock1_Connect()

MsgBox?""

Fin

Privado?Sub?Winsock1_DataArrival(ByVal?BytesTotal? Como?Long)

Dim?Mystr?As?String

Winsock1. GetData?Mystr

Text3.Text?=?Text3.Text?&?Chr(13)?Text3.Text?=?Text3.Text?&?Chr(13)? >

¿Fin?