En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1218210 visiteurs

 7 visiteurs en ligne

Nous contacter

Contact

NetSend (SHELL)

NetSend ( SHELL )

Envoyer des messages de type NetSend sur un réseau local (WinNT/2000/XP)

Sub fNetSend()
    'S'assurer que le service "Affichage des Messages" soit démarré
    'Commande WinXP : "Net Start Messenger"
    Dim strMsg As String
    Dim strTo As String

    strMsg = InputBox("Veuillez saisir le message à envoyer : ", "Message", "café ?")

    strTo = Environ$("computername")
    Shell "net send " & strTo & " " & strMsg, vbMinimizedFocus

End Sub


Catégorie : - Net
Page lue 6194 fois

Vous êtes ici :   Accueil » NetSend (SHELL)