Asp Live MSN API ( Asp ile msn listesini almak )

[polatdemirkan]

Asp ile msn listesini almak isteyenlerin ilgisini çekebilir.

Http XML Api

http://www.eminkork.com/Document/MsnHttpXmlAPI.pdf


<%
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>





Component

<%
user="xxx@hotmail.com" ' Msn adresi
psw="xxxxxx"
action="1"
Dim MsnObject
Set MsnObject = Server.CreateObject("msn.connect")
MsnList=MsnObject.MsnConnect(""&user&"",""&psw&"", ""&action&"")
Set MsnObject = Nothing
Response.Write MsnList
%>


http://www.eminkork.com/Document/MsnComponent.pdf

Download Component Ve Örnekler

http://www.eminkork.com/msn/msn.zip