Система мгновенных сообщений с произвольным содержанием

В рабочей сессии на Wolfram Desktop, загрузите пакет, который создает мгновенный обмен сообщениями через демо-канал ( "WIM") и начните получать сообщения через данный канал.

In[1]:=

Needs["DemoChannels`WIM`"]

Загрузите пакет, который создает демо-канал для мгновенного обмена сообщениями( "WIM") и начните прослушивать сообщения.

In[2]:=

channel = CreateWIMChannel[]

Out[2]=

In[3]:=

listener = ChannelListen[channel]

Out[3]=

Отправьте себе мгновенное сообщение, и оно отобразится в новом диалоговом окне.

In[4]:=

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

Out[4]=

Out[5]=

Прикрепите документ к сообщению.

In[6]:=

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

Out[6]=

Out[7]=

Другие пользователи могут посылать вам мгновенные сообщения с помощью ссылки на ваш канал.

In[8]:=

yourWIM = $WolframID <> ":WIM"

Out[8]=

In[9]:=

ChannelSend[yourWIM, "hello"]

Out[9]=

Либо на ваш WIM URL.

In[10]:=

listener["URL"]

Out[10]=

In[11]:=

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

Out[11]=

Любой пользователь может также послать вам сообщение через веб-браузер (или любой другой клиент HTTP), сделав запрос HTTP на следующий URL.

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

Для того, чтобы ответить на входящие сообщения от других пользователей, необходимо разрешить связь через каналы пользователей.

In[14]:=

Unprotect[$AllowExternalChannelFunctions]; $AllowExternalChannelFunctions = True;

Приостановите прослушивание и восстановите настройки безопасности.

In[15]:=

RemoveChannelListener[listener]

Out[15]=

In[16]:=

$AllowExternalChannelFunctions = False; Protect[$AllowExternalChannelFunctions];