Ayuda: con winsock , Ejecutar cosas!

[Brian1511]

Hola a todos Grcias por leer ...

Bueno como dice en el tema lo tengo es un chat MultiUsurios y pues el Admin puede enviar un mensaje golaval osea una pequeña anim que ise con un par de Timers , que haces que un Frame se desplace hacia abajo y otro timer la cual muesta el mensaje escrito en un textbox el mensaje tiene una anim de desplasarce hacia la derecha algo como :

Código [Seleccionar] Expandir

Esto!                                  Esto!                                  Esto!                         Esto!
y lo que quiero es que mendiante un winsock se active la anm de los timers y se vean las letras que deben aparecer en el Label (El mensaje escrito!).

Bueno espero que me allan entendido y gracias por leer

Saludos!

[Arconte]

hola tio, pos lo que pods hacer es que el winsock del admin envia instrucciones y los demas reciben los datos y luego verifican que tipo de instrccion es, ejemplo para enviar una instruccion que indique apagar la compu seria asi:

Código [Seleccionar] Expandir

<APAGAR-PC>

para lo que tu keres seria:

Código [Seleccionar] Expandir

<ACTIVAR-ANIM>Aqui mensaje mensaje que sera mostrado en label

el programa receptor tendria que comprobar que tipo de instruccion son las que estan entre los "<" ">", para eso usarias Left, Mid para separar las cadenas y listo.


No entendi bien que es un "mensaje golaval ", "supongo que un mensaje global"

[Brian1511]

Gracias amigo por responder entendi un poco lo que me quisiste dejar dicho y de nuevo gracias por ayudar

COntesto a tu pregunta lo del el mensaje golval : Bueno eso es un nombre que le puse a mi proyeto que es que desde el Panel de Admin pues enviar un MSG a todos los Users CONECTADOS ejemplo

estas en la sala con la ip : 127.0.0.1  y el puerto: 1000 y despues quiero enviarle un msg a todos pues lo que habo es mandar una msg gloval para que todos puedan leerlo ...

Si me pudieras poner el code del que me habals te estare muy agradecido espero que me puedas ayudar buen amigo!

[Arconte]

tendrias que colocar una caja de texto en el admin para escribir el mensaje golaval, lo vamos a llamar txtMSG, para enviar lo harias asi:

en el admin :

Código (vb) [Seleccionar] Expandir

Dim MSG As String
MSG = "ACTIVAR-ANIM" & txtMSG.Text
Winsock1.SendData   MSG



y para el programa que recibe los mensajes tendria que tener ese label donde mostrar ese mensaje recibido, lo vamos a llamar lblMSG , seria

en los programas que reciben :

Código (vb) [Seleccionar] Expandir

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
   Dim Buffer As String
   Winsock2.GetData Buffer
   DoEvents
   If Left(Buffer, 14) = "<ACTIVAR-ANIM>" Then
       Buffer = Mid(Buffer, 15)
       lblMSG.Caption = Buffer
   End If
End Sub




con left coger los 14 primeros caracteres y compara si dicer "<ACTIVAR-ANIM>", si fuera asi entonces coge los catracteres que hay a partir del 15 hacia adelante con Mid, y lo muestra en el label.