Instant Messaging mit beliebigem Inhalt

Laden Sie in einer Desktop-Sitzung ein Package, das einen Instant Messaging-Demokanal ("WIM") erzeugt. Hören Sie ihn ab.

In[1]:=

Needs["DemoChannels`WIM`"]

Erzeugen Sie Ihren WIM-Kanal und hören Sie in ab.

In[2]:=

channel = CreateWIMChannel[]

Out[2]=

In[3]:=

listener = ChannelListen[channel]

Out[3]=

Senden Sie eine WIM-Nachricht an sich selbst. Ihre Nachricht erscheint in einem neuen Dialog-Notebook.

In[4]:=

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

Out[4]=

Out[5]=

Fügen Sie das aktuelle Notebook einer Nachricht hinzu.

In[6]:=

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

Out[6]=

Out[7]=

Andere Nutzer können Ihnen eine WIM-Nachricht senden, indem sie Ihren Kanal erwähnen.

In[8]:=

yourWIM = $WolframID <> ":WIM"

Out[8]=

In[9]:=

ChannelSend[yourWIM, "hello"]

Out[9]=

Oder Ihre WIM-URL.

In[10]:=

listener["URL"]

Out[10]=

In[11]:=

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

Out[11]=

Jeder kann Ihnen außerdem eine Nachricht von einem Webbrowser (oder einem HTTP-Client) schichen, indem ein HTTP-Request an die folgende URL gemacht wird.

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]=

Um auf eingehenden Nachrichten von anderen Nutzern zu antworten, authorisieren Sie die Kommunikation auf anderen Nutzerkanälen.

In[14]:=

Unprotect[$AllowExternalChannelFunctions]; $AllowExternalChannelFunctions = True;

Beenden Sie den Kanal und stellen Sie die Sicherheitseinstellungen wieder her.

In[15]:=

RemoveChannelListener[listener]

Out[15]=

In[16]:=

$AllowExternalChannelFunctions = False; Protect[$AllowExternalChannelFunctions];