This one works like a charm , It uses nhtmln_2.95 Make sure you have it
; /update
; then enter the account & password (if it prompts you)
alias update {
if (!$exists($+(",$scriptdir,nHTMLn_2.95.dll,"))) {
echo -es * You need the nHTMLn_2.95.dll in order for this to work
return
}
window -p @update
dll $+(",$scriptdir,nHTMLn_2.95.dll,") attach $window(@update).hwnd
dll $+(",$scriptdir,nHTMLn_2.95.dll,") handler update_handler
dll $+(",$scriptdir,nHTMLn_2.95.dll,") navigate http://login.passport.net/uilogin.srf?lc=1033&id=2260
}
alias update_handler {
if ($regex($1-,/navigate_begin \S+t=(\S+)&p=(\S+)&lc/i)) {
%ticket = $regml(1)
%profile = $regml(2)
.timer 1 0 window -c @update
if ($sock(subscriber)) sockclose subscriber
sockopen subscriber 207.68.167.254 80
}
return S_OK
}
on *:SOCKOPEN:subscriber: {
if ($sockerr) return
sockwrite subscriber GET /renderchat.msnw $+(HTTP/1.1,$crlf,Host: Uhu,$crlf,User-Agent: Mozilla/5.0 Windows NT 5.1 MSN,$crlf,Cookie: MSPAuth=,%ticket,; MSPProf=,%profile,;,$str($crlf,2))
}
on *:SOCKREAD:subscriber: {
sockread -n &r
while ($sockbr) {
if ($regex($bvar(&r,1-900).text,/temp \+= '<PARAM NAME="SubscriberInfo" VALUE="(\S+)">/i)) {
%subinfo = $regml(1)
echo -esa * passport successfully updated ( $+ %user $+ )
set %authkey $+(:,$base($len(%ticket),10,16,8),%ticket,$base($len(%profile),10,16,8),%profile)
}
sockread -n &r
}
}
Make sure your vars are %ticket , %profile and %authkey or change them dunno who made it , but it works :-)
Edited Jun 24, 2006 4:00 PM by Ronan