Ayuda cliente/servidor

sendyonmy

nesesito que del lado del servidor cuando yo aga click en un boton, del otro lado (del lado del cliente) aya otro boton que aparesca una X

aca estan los codigos del cliente

Private Sub Command1_Click()
If Winsock1.Connect Then
Command1.Caption = "X"

End Sub

Private Sub Command2_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Close
Winsock1.Connect
End Sub

Private Sub Command3_Click()
Winsock1.Close
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Buffer As String
Winsock1.GetData Buffer

End Sub

y aca los del servidor

Private Sub Command1_Click()
Winsock1.Close
Winsock1.LocalPort = Text1.Text
Winsock1.Listen

End Sub

Private Sub Command2_Click()
Winsock1.Close
End Sub

Private Sub Command3_Click()
Command3.Caption = "X"
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID

End Sub

Private Sub Winsock1_Close()

Winsock1.Close

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim Buffer As String
Winsock1.GetData Buffer
End Sub

se que hay errores si alguno me ayuda

la idea es que si yo toco un boton de un lado aparesca del otro lado (en otro boton) una X

KennY

Osea vos buscas tocar un boton en el cliente y q en el servidor se ponga una X?

En el boton tendrias q poner que si esta coenctado, haga un SendData de determinada palabra, numero o lo que sea.
Y en el dataArrival del otro (servidor si es q el que envia fue el cliente) lo que haces es obtener lo q llega guardarlo en el buffer, y ademas preguntar si lo que tiene el buffer es lo que mandaste desde el cliente (tu palabra, numero o lo q metiste).
Si es lo que mandaste, ahi aplicar el cambio del caption.

Porque por como lo tenes ahi, lo que haces es q cuando clickeas el boton se le ponga la X a ese mismo boton, y ademas tus dataarrival no hacen nada, y en ningun lado estas enviando informacion.

Hay un tutorial para cliente servidor dando vueltas por aca, buscalo y fijate si te puede ayudar.