Ver Mensaje Individual
  #4 (permalink)  
Antiguo 28/03/2005, 13:47
Avatar de VisualGuallabo
VisualGuallabo
 
Fecha de Ingreso: marzo-2005
Mensajes: 288
Antigüedad: 20 años, 1 mes
Puntos: 2
Con un mensaje que se mande a una PC se puede aser mucho.

Si deseas hacerlo con el WinSock te puedo ayudar.
Dises que sabes mandar un mensaje de una pc a otra.
Creo que debes ser mas creativo.
No te imaginas lo que se puede aser con una simple palabra que mandes de una pc a otra.
Esto me paso por la mente cuando empese a usar este control.
-En mi primer esperimento solo podia estableser una charla entre dos personas.
-y despues de pensar un poco me dije: Que con una palabra era suficiente.
solo tenia que crear palabras clabes.

Vamos a suponer que tenemos en tu maquina la aplicación servidor y en la mia la de cliente.
Yo te mando el mensaje "Apagar"
y cuando en tu pc se ejecute el Evento DataArrival no recuerdo bien como se escribe tu sabes aque evento me refiero, es al que detecta cuando entra un mensaje.
Yo como programador en este evento escribi este codigo

If mensajeresibido="Apagar" Then
Shell "shutdown -s",1
End if

Es decir la palabra "Apagar" se combertira en una orden. que cada vez que sea resibida en este caso apagara la pc.

Ahora crea tus palabras claves:
Cada palabra puede ser una orden:
Otro ejemplo:
Enviamos el mensaje "dameUsuario"
Cuando la otra aplicasion resiva este mensaje intonces buscara el nombre del usuario activo y lo mandara a la pc que le mando la orden es muy sencillo.

Otro dia me pregunte.
¿Como podia incluir un Charla en estas aplicasiones?
Me di cuenta que era logico que si me mandaban una palabra que era clave realisaria la acción y no me llegaria como mensaje que fue el objetivo conque me la mandaron.
Intonces se me ocurrio una gran idea crear palabras Claves compuestas.
¿Como que palabras claves compuestas? muy sencillo.
para las acciones cree la.

la palabra "acion"+la palabra clave.

Y para la Charla

la palabra "chat"+el mensaje.

Problema resuelto:

En el Evento Data Arrival solo tenia que poner

If mid(mensajeresibido,1,4)="chat" Then
msgBox mid(mensajeresibido,5)
End If
-Es decir si los primero 4 caracteres es igual a chat el programa sabra que es una charla y no una orden. Intoces manda el mensaje que se encuentra a partir del 5 caracter.

en el otro caso:

If mid(mensajeresibido,1,5)="acion" Then
realizar la accion mid(mensajeresibido,6)
End If
-Es decir si los primeros 5 caracteres es igual a acion el programa sabra que es una accion y no una charla. Intoces el programa realisara la orden que se corresponda a la acción resibida que se encuentra a partir del 6to caracter.

Solo tienes que ser creativo y logico.
Si nesesitas mas ayuda ya sabes, Aqui estoy.

"No hay lenguaje de programación potente que sea inferior a otro semejante cuando existe un buen programador que lo defiende"

Yosvanis Cruz Alias VisualGuallabo
Ycruz
__________________
"No hay lenguaje de programación potente que sea inferior a otro semejante cuando existe un buen programador que lo defiende"

Yosvanis Cruz Alias VisualGuallabo
Ycruz