alias up {
if ($1 == -c) { %c = $true | tokenize 32 $2- }
if (!$hget(i)) { hmake i 100 }
if ($1-2) {
hadd i email $1
hadd i pass $2
}
if (!$hget(i,email)) || (!$hget(i,pass)) {
hadd i email $replace($??="User Name?",@,$chr(37) $+ 40)
hadd i pass $??="Password?"
}
if (!$hget(msnauth)) { .hmake msnauth 50 }
if (!$hget(msnauth,url)) || (!$hget(msnauth,path)) {
hadd msnauth url /login2.srf
hadd msnauth path msnialogin.passport.com
hadd msnauth info Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in= $+ $hget(i,email) $+ ,pwd= $+ $hget(i,pass) $+ ,lc=1033,id=507,tw=40,fs=1,ru=http://messenger.msn.com,ct=1144530311,kpp=1,kv=7,ver=2.1.6000.1,rn=ceg1*TVA,tpf=9faff083fd5c6d2f96a5d8fca35dde0d
}
.hadd -m msnauth furl $hget(msnauth,path) $+ $hget(msnauth,url)
.hdel msnauth url
.hdel msnauth path
.hadd i upd $ticks
if ($com(auth)) { .comclose auth }
.comopen auth WinHttp.WinHttpRequest.5.1
if ($comerr) {
.comreg winhttp5.1.dll
.comopen auth WinHttp.WinHttpRequest.5.1
if ($comerr) { msnauths2 }
}
if (!$com(auth,Open,1,bstr,GET,bstr,https:// $+ $hget(msnauth,furl))) { return }
if (!$com(auth,SetRequestHeader,1,bstr,Authorization,bstr,$hget(msnauth,info))) { return }
if (!$com(auth,SetRequestHeader,1,bstr,Host,bstr,$gettok($hget(msnauth,furl),1,47))) { return }
if (!$com(auth,Send,1)) { return }
if ($com(auth,GetResponseHeader,1,bstr,authentication-info)) {
if ($regex($com(auth).result,/'t=(.+)&p=(.+)'.+/)) {
hadd i ticket $regml(1)
hadd i profile $regml(2)
%Ticket = $regml(1)
%Profile = $regml(2)
%Authkey = $+(:,$base($len(%Ticket),10,16,8),%Ticket,$base($len(%Profile),10,16,8),%Profile)
sockopen uu chat.msn.com 80
}
if ($com(auth)) { .comclose auth }
}
}
on *:sockopen:uu:{
sockwrite -n uu GET /RenderChat.msnw? HTTP/1.1
sockwrite -n uu User-Agent: MSIE 6.0; Windows NT 5.1
sockwrite -n uu Cookie: MSPProf= $+ $hget(i,profile) $+; MSPAuth= $+ $hget(i,ticket) $+;
sockwrite -n uu Host: chat.msn.com
sockwrite uu $crlf
}
on *:sockread:uu:{
sockread -n &u
if (!$sockbr) return
if ($regex($bvar(&u,1,940).text,/SubscriberInfo" VALUE="(.+)"/)) {
echo -a ~ Updated credentials. $calc(($ticks - $hget(i,upd)) / 1000) $+ s
hadd i subinfo $regml(1)
%Subinfo = $regml(1)
hadd i updtime $ctime
echo -a subinfo $regml(1)
if (%c) {
echo -a ~ Proceeding to connect.
unset %c
msn
}
sockclose u*
return
}
}
FIXED...got this lil tidbit off of MSHS and it works...if your connection is OCXless then your all set just type /UP and go...
If your not OCXless then type /UP goto script editor and copy the values then paste them into vincula passport settings.