Foro de elhacker.net

Esto!                                  Esto!                                  Esto!                         Esto!

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:


para lo que tu keres seria:


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"

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! :D :P

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 :

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 :

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.