Messagerie instantanée avec un contenu arbitraire
Dans une session sur le bureau, chargez un progiciel qui crée une démonstration de messagerie instantanée (« WIM ») et commencez à l'écouter.

Needs["DemoChannels`WIM`"]
Créez votre canal WIM et commencez à l'écouter.

channel = CreateWIMChannel[]


listener = ChannelListen[channel]

Envoyez-vous un WIM et regardez votre message dans un nouveau notebook de dialogue.

ChannelSend["WIM", "Hi there."]


Attachez le notebook en cours à un message.

ChannelSend["WIM", {"Sending a notebook.", InputNotebook[]}]


Les autres utilisateurs peuvent vous envoyer un WIM en référençant votre chaîne pleinement qualifiée.

yourWIM = $WolframID <> ":WIM"


ChannelSend[yourWIM, "hello"]

Ou votre URL de WIM.

listener["URL"]


listener["URL"];
ChannelSend[%, "another message"]

Tout le monde peut également vous envoyer un message à partir d'un navigateur Web (ou tout autre client HTTP) en faisant une requête HTTP à l'URL suivante.

URLBuild[listener["URL"], {"operation" -> "send",
"Message" -> "yet another message"}]


URLBuild[listener["URL"], {"operation" -> "send",
"Message" -> "yet another message"}];
URLFetch[%]

Pour répondre aux messages entrants provenant d'autres utilisateurs, autorisez la communication sur les canaux de l'utilisateur.

Unprotect[$AllowExternalChannelFunctions];
$AllowExternalChannelFunctions = True;
Arrêtez d'écouter et restaurez les paramètres de sécurité.

RemoveChannelListener[listener]


$AllowExternalChannelFunctions = False;
Protect[$AllowExternalChannelFunctions];