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

 1225012 visiteurs

 8 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 : Les mémos - Net
Page lue 6220 fois
Vous êtes ici :   Accueil » NetSend (SHELL)