Un Truquito muy interesante

[LeandroA]

Hola navegando encontré un truco que esta muy bueno se trata de enviar mensajes a otra PC mediante “net send” no lo pude probar a trabes de Internet pero si con una red Lan y funciona perfecto
El mensaje llega en forma de msgbox y lo puede probar con su misma PC

Vallan a Ejecutar y escriban:
net send 127.0.0.1 "Hola Mundo"

bien cambiando la IP o poniendo el nombre de la otra PC lo enviamos en red

y con visual lo podríamos hacer de esta manera

Ponemos un text1 (en donde escribiremos la IP o el nombre de la PC)
Y un Text2 (multiline = true , donde escribiremos el mensaje)
Y un command1

Private Sub Command1_Click()
Shell "net Send" & " " & Text1 & " " & Text2
End Sub

Fácil no?