[VB6] Comunicare attraverso la Lan

[skyhunter]

Salve ragazzi, spero che (come al solito! ) possiate aiutarmi: devo far comunicare due pc (portatile e desktop), facenti parte della stessa lan... Non una chat vera e propria ma uno "scambio" di alert...
Qui sul forum ho trovato questo codice:

    Dim sMessage As String
    Dim ret As Long

    sMessage = InputBox("scrivi un breve messaggio", "Messaggio istantaneo ---->")
    ret = Shell("command.com /c net send " & HOST & " " & sMessage, vbHide)
    Debug.Print HOST & " - " & sMessage & " - " & ret

ma non funziona: sul computer locale sembra essersi connesso ma dall'altro capo non appare nulla

Grazie

[MItaly]

Probabilmente sull'altro PC è in esecuzione un firewall o è disattivato il servizio Messenger. Tieni conto del fatto che net send quando fallisce visualizza un messaggio sullo schermo, messaggio illeggibile nel tuo caso perché la finestra sparisce subito.

[skyhunter]

Innanzitutto grazie per la risposta!

Tieni conto del fatto che net send quando fallisce visualizza un messaggio sullo schermo, messaggio illeggibile nel tuo caso perché la finestra sparisce subito.

perdona la domanda diretta: come dovrei fare?

[MItaly]

A far che? Ti stavo semplicemente dicendo che le cose stanno così, punto.