WDForge.org - Forums

msn

Sujet: msn
par fredgerbi sur 12/10/2006 16:19:49

salut a tous

kom le sujet l'indique j'ai un petit pb avec Msn je souhaite integrer un msn dans mon appli et sé la ke sa koince !!

je n'arrive pas a m'authentifier :

PROCEDURE ConnecteUser(UserName,Password)

Ret,nRet1 est un entier
Ch est une chaîne

SocketName = "MSN_"+DateSys()+"_"+HeureSys()
Ret = SocketConnecte(SocketName,MSNPort,MSNServer)

SI Ret ALORS
SI HTTPRequête("https://nexus.passport.com/rdr/pprdr.asp","","","","",UserName,Password) ALORS
Ch = HTTPDonneRésultat(HTTPEntête)
FIN

SocketChangeModeTransmission(SocketName,SocketMarqueurFinBuffer,Caract(13)+Caract(10))
SockWrite("VER","MSNP10 CVR0")
SockRead()
SockWrite("CVR","0x040c winnt 5.1 i386 MSNMSGR 7.5.0311 msmsgs"+" "+UserName)
SockWrite("USR","TWN I "+UserName)
SockRead()
SockRead()

SocketFerme(SocketName)

Ret = SocketConnecte(SocketName,MSNPort,"207.46.107.43")
SocketChangeModeTransmission(SocketName,SocketMarqueurFinBuffer,Caract(13)+Caract(10))

SockWrite("VER","MSNP10 CVR0")
SockRead()
SockWrite("CVR","0x040c winnt 5.1 i386 MSNMSGR 7.5.0311 msmsgs"+" "+UserName)
SockRead()
SockWrite("USR","TWN I "+UserName)
SockRead()

SocketName1=("MSN_"+DateSys()+"_"+HeureSys())

SI PAS SocketConnecte(SocketName1,80,"loginnet.passport.com") ALORS
Info("erreur")
SINON

k1 est une chaîne ="GET /rst.srf?lc=1036 HTTP/1.1"+RC+"Authorisation: Passport3.0 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=fredgerbi%40hotmail.com,pwd=xxxxx,"+V_chaine+RC+"Host: loginnet.passport.com"+RC+RC//+"User-Agent: MSMSGS"+rc+"Host: loginnet.passport.com"+rc+rc
sChRead1 est une chaîne
SocketChangeModeTransmission(SocketName1,SocketMarqueurFinBuffer,RC)

SocketEcrit(SocketName1,"GET /rst.srf?lc=1033 HTTP/1.0"+RC)
SocketEcrit(SocketName1,k1)//"Authorisation: Passport3.0 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=fredgerbi%40hotmail.com,pwd=XXXXXX,"+V_chaine+rc)
SocketEcrit(SocketName1,"Host: loginnet.passport.com"+RC+RC)
sChRead1=SocketLit(SocketName1)
Trace(sChRead1)

FIN
FIN

je n'obtient pas la valeur T qui permet l'autentification

si kk1 connais le pb ca seré sympa kar je pete un cable MERCI