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.

In[1]:=

Needs["DemoChannels`WIM`"]

Créez votre canal WIM et commencez à l'écouter.

In[2]:=

channel = CreateWIMChannel[]

Out[2]=

In[3]:=

listener = ChannelListen[channel]

Out[3]=

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

In[4]:=

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

Out[4]=

Out[5]=

Attachez le notebook en cours à un message.

In[6]:=

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

Out[6]=

Out[7]=

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

In[8]:=

yourWIM = $WolframID <> ":WIM"

Out[8]=

In[9]:=

ChannelSend[yourWIM, "hello"]

Out[9]=

Ou votre URL de WIM.

In[10]:=

listener["URL"]

Out[10]=

In[11]:=

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

Out[11]=

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.

In[12]:=

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

Out[12]=

In[13]:=

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

Out[13]=

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

In[14]:=

Unprotect[$AllowExternalChannelFunctions]; $AllowExternalChannelFunctions = True;

Arrêtez d'écouter et restaurez les paramètres de sécurité.

In[15]:=

RemoveChannelListener[listener]

Out[15]=

In[16]:=

$AllowExternalChannelFunctions = False; Protect[$AllowExternalChannelFunctions];