Система мгновенных сообщений с произвольным содержанием
В рабочей сессии на Wolfram Desktop, загрузите пакет, который создает мгновенный обмен сообщениями через демо-канал ( "WIM") и начните получать сообщения через данный канал.
Needs["DemoChannels`WIM`"]
Загрузите пакет, который создает демо-канал для мгновенного обмена сообщениями( "WIM") и начните прослушивать сообщения.
channel = CreateWIMChannel[]
listener = ChannelListen[channel]
Отправьте себе мгновенное сообщение, и оно отобразится в новом диалоговом окне.
ChannelSend["WIM", "Hi there."]
Прикрепите документ к сообщению.
ChannelSend["WIM", {"Sending a notebook.", InputNotebook[]}]
Другие пользователи могут посылать вам мгновенные сообщения с помощью ссылки на ваш канал.
yourWIM = $WolframID <> ":WIM"
ChannelSend[yourWIM, "hello"]
Либо на ваш WIM URL.
listener["URL"]
listener["URL"];
ChannelSend[%, "another message"]
Любой пользователь может также послать вам сообщение через веб-браузер (или любой другой клиент HTTP), сделав запрос HTTP на следующий URL.
URLBuild[listener["URL"], {"operation" -> "send",
"Message" -> "yet another message"}]
URLBuild[listener["URL"], {"operation" -> "send",
"Message" -> "yet another message"}];
URLFetch[%]
Для того, чтобы ответить на входящие сообщения от других пользователей, необходимо разрешить связь через каналы пользователей.
Unprotect[$AllowExternalChannelFunctions];
$AllowExternalChannelFunctions = True;
Приостановите прослушивание и восстановите настройки безопасности.
RemoveChannelListener[listener]
$AllowExternalChannelFunctions = False;
Protect[$AllowExternalChannelFunctions];