Mensagens instantâneas com conteúdo arbitrário
Em uma sessão de desktop, carregue um pacote que crie um canal de demonstração de mensagem instantânea ("WIM") e como a escutar nele.
In[1]:=
Needs["DemoChannels`WIM`"]Crie seu canal WIM e comece a escutar nele.
In[2]:=
channel = CreateWIMChannel[]Out[2]=
In[3]:=
listener = ChannelListen[channel]Out[3]=
Envie para você mesmo um WIM, e repare que sua mensagem está em um novo notebook de diálogo.
In[4]:=
ChannelSend["WIM", "Hi there."]Out[4]=
Out[5]=
Anexe o notebook atual a uma mensagem.
In[6]:=
ChannelSend["WIM", {"Sending a notebook.", InputNotebook[]}]Out[6]=
Out[7]=
Outros usuários da Wolfram Langauge podem enviar-lhe um WIM incluindo seu canal totalmente qualificado.
In[8]:=
yourWIM = $WolframID <> ":WIM"Out[8]=
In[9]:=
ChannelSend[yourWIM, "hello"]Out[9]=
Ou seu URL de WIM.
In[10]:=
listener["URL"]Out[10]=
In[11]:=
listener["URL"];
ChannelSend[%, "another message"]Out[11]=
Qualquer pessoa também pode enviar uma mensagem para você de um navegador web (ou qualquer outro cliente HTTP) criando uma solitação de HTTP o seguinte 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]=
Para responder às mensagens recebidas de outros usuários, autorize a comunicação nos canais de usuários.
In[14]:=
Unprotect[$AllowExternalChannelFunctions];
$AllowExternalChannelFunctions = True;Pare de ouvir e restaure a configuração de segurança.
In[15]:=
RemoveChannelListener[listener]Out[15]=
In[16]:=
$AllowExternalChannelFunctions = False;
Protect[$AllowExternalChannelFunctions];
