Chat ASP para MSN

[Inside 2]

Eu estava utilizando eu meu site o sistema http://www.plugoo.com mas parou de funcionar além do que agora ao entrar no chat tem propaganda.

 

Alguém conhece outro serviço ou um código ASP onde eu possa criar um chat que envie mensagens para o MSN?

 

*Pluggo é um chat para atendimento que liga seu site ao seu Messenger.

 

 

Obrigado pela atenção de todos.

[xanburzum 169]

existem vários exemplos de chat, até mesmo opções que utilizam AJAX, faça uma pesquisa, e tendo dúvidas, não exite em postar...

[Anderson Nunes 0]

Grátis sem propaganda não conheço, o que conheço são chats gratuitos e open source que utilizam seu servidor para envio de mensgens, como cryft syntax live por exemplo, se voce customizar a parte visual dará um visual mais profissional ao seu atendimento do que usar estes prontos cheio de propaganda, o cliente foge disso, rs, ele usa ajax e é muito eficiente porém não é muito simples de instalar e customizar não. Mas é para isso que estamos aqui no fórum, para ajuda-lo. Chats neste estilo voce achará um monte gratuitamente.

[saloeric 1]

Tem o da própria microsoft, siga este link

[xanburzum 169]

Você pode usar a api do msn, abaixo três exemplos simples para o uso da api.

 

1º Drop Down

 

<%
User="xxxx@hotmail.com"
psw="00000"
 Set XmlDoc = Server.CreateObject("Microsoft.XMLDOM" ) 
    XmlDoc.async = false 
    XmlDoc.resolveExternals = false 
    XmlDoc.setProperty "ServerHTTPRequest" ,true             
 XmlDoc.load("http://www.eminkork.com.tr/msn/api.asp?user="&user&"&psw="&psw&"")
%>

<select name="Maillist" id="select">

<%
Set sec = XmlDoc.selectNodes("//Msn")
For e = 0 to (sec.Length - 1) 
StrEmail=sec(e).GetAttribute("StrEmail")
StrName=sec(e).GetAttribute("StrName")
StrStatus=sec(e).GetAttribute("StrStatus")
%>

<option value="<%= StrEmail %>"><%= StrEmail %></option>
<%
Next
%>
</select>

 

2º - Lista em Tabela

 

<%
User="dddd@hotmail.com"
psw="0000"
 Set XmlDoc = Server.CreateObject("Microsoft.XMLDOM" ) 
    XmlDoc.async = false 
    XmlDoc.resolveExternals = false 
    XmlDoc.setProperty "ServerHTTPRequest" ,true             
 XmlDoc.load("http://www.eminkork.com.tr/msn/api.asp?user="&user&"&psw="&psw&"")
%>

<table border="0" cellspacing="2" cellpadding="2">
 <tr>
   <td>Email</td>
   <td>Ýsim</td>
   <td>Durum</td>
 </tr>

<%
Set sec = XmlDoc.selectNodes("//Msn")
For e = 0 to (sec.Length - 1) 
StrEmail=sec(e).GetAttribute("StrEmail")
StrName=sec(e).GetAttribute("StrName")
StrStatus=sec(e).GetAttribute("StrStatus")

If StrStatus="2" Then Durum="Sildi + Sildin" End If
If StrStatus="3" Then Durum="Sildi" End If
If StrStatus="4" Then Durum="Engelledin + Sildin + Sildi" End If
If StrStatus="5" Then Durum="Engelledin + Sildi" End If
If StrStatus="10" Then Durum="Sildin" End If
If StrStatus="11" Then Durum="Normal" End If
If StrStatus="12" Then Durum="Engelledin + Sildin" End If
If StrStatus="13" Then Durum="Engelledin" End If
%>
   <tr>
   <td><%= StrEmail %></td>
   <td><%= StrName %></td>
   <td><%= Durum %></td>
 </tr>

<%
Next
%>

</table>

 

3º - Lista em texto

 

<%
User="xxxx@hotmail.com"
psw="00000"
 Set XmlDoc = Server.CreateObject("Microsoft.XMLDOM" ) 
    XmlDoc.async = false 
    XmlDoc.resolveExternals = false 
    XmlDoc.setProperty "ServerHTTPRequest" ,true             
 XmlDoc.load("http://www.eminkork.com.tr/msn/api.asp?user="&user&"&psw="&psw&"")

Set sec = XmlDoc.selectNodes("//Msn")
For e = 0 to (sec.Length - 1) 
StrEmail=sec(e).GetAttribute("StrEmail")
StrName=sec(e).GetAttribute("StrName")
StrStatus=sec(e).GetAttribute("StrStatus")
Response.write  ""&StrEmail &"" & vbCrlf
Next
%>

 

Esta api é fornecida gratuitamente pelo site eminkork.com, para quem quiser baixar estes exemplos zipados clique aqui.

[Inside 2]

Caro xanburzum

 

Eu não entendi esse exemplos de API, pesquisei mas não consegui entender.

 

Pode explicar melhor como funciona isto?

 

 

*Estou pesquisando também para achar algo em Ajax mas ainda não achai nada, se eu achar posto aqui.