Este es para hacer la coneccion al otro PC
Private Sub Command1_Click()
Winsock.Remote Host = Text1.Text
Winsock.Remote Port = Text2.Text
Winsock.Connec t
End Sub
Este otro es para esperar la coneccion
Private Sub Form_Load()
Winsock.LocalP ort = Puerto que quieras
Winsock.Listen
End Sub
Este es para aceptar a alguien tratandose de conectar
Private Sub winsock_connec tionrequest(ByVal RequestID As Long)
Winsock.Close
Winsock.Accept requestid
End Sub
Este es para mandar Infromacion al otro Usuario
Private Sub Command4_Click()
Winsock.SendDa ta "Hola Mundo"
DoEvents
End Sub
y este es para recivir esa informacion
Private Sub Winsock_DataAr rival(ByVal BytesTotal As Long)
Dim strData As String
' get the data from the internal winsock buffer
Winsock.GetDat a strData
' show the user the data
MsgBox strData
End Sub
recivi un poko de ayuda par poderles dar esto pero ami me sirvio muchiimo espero k austedes tambien
Autor