can anyone make my old multi updater work for the new msn update? ive tried several times but had no luck with it ![]()
alias ud_s {
if ($1 == -m) {
sockclose ud.*
var %e_t = $regex($2-,/(\S+)/g), %e_c = 1, %e, %p, %s, %h
while ( %e_c <= %e_t ) {
%e = $gettok( $regml(%e_c), 1, 61 )
%p = $gettok( $regml(%e_c), 2, 61 )
%s = ud.pp. $+ %e_c
%h = $iif( *@msn.* iswm %e, msnialogin.passport.com, loginnet.passport.com )
sockopen %s %h 80
sockmark %s %e %p %h
echo -s 4* updating %e $+ ..
set -u3 %u_t $ticks
inc %e_c
}
}
if ($1 == -r) {
sockclose ud.*
echo -a 4 $+ $lines($2)
var %e_t = $lines($2), %e_c = 1, %e, %p, %s, %h
while ( %e_c <= %e_t ) {
%e = $gettok( $read($2,%e_c), 1, 61 )
%p = $gettok( $read($2,%e_c), 2, 61 )
echo -a 4 $+ %e
echo -a 4 $+ %p
%s = ud.pp. $+ %e_c
%h = $iif( *@msn.* iswm %e, msnialogin.passport.com, loginnet.passport.com )
sockopen %s %h 80
sockmark %s %e %p %h
echo -s 4* updating %e $+ ..
set -u3 %u_t $ticks
inc %e_c
}
}
}
alias ud_c sockclose ud.* | echo -s 4* update canceled.
alias s var %t = $regsub($1-,/([^<]+>|<|[^&]+;|&|<!-+|-+>|!-+|//)/g,,%m) | return %m
on 1:sockopen:ud.*: {
var %s = $sockname, %m = $sock(%s).mark, %e = $gettok(%m,1,32), %p = $gettok(%m,2,32), %h = $gettok(%m,3,32)
if ( ud.pp.* iswm %s ) sockwrite %s $+( GET http://,%h,/login2.srf HTTP/1.1, $crlf, Authorization: $+( Passport1.4 OrgVerb=GET, $chr(44), OrgURL=http%3A%2F%2Fchat%2Emsn%2Ecom, $chr(44), sign-in=, %e, $chr(44), pwd=, %p, $chr(44), id=2260 ), $crlf, Host: %h, $str($crlf,2) )
else { sockwrite %s $+( GET /RenderChat.msnw? HTTP/1.1, $crlf, User-Agent: Updater (compatible; MSIE 5.5; Windows NT 5.1), $crlf, Host: chat.msn.com, $crlf, Connection: Keep-Alive, $crlf, $+( Cookie: MSPProf=, $($+($(%bot.profile,0),$gettok(%s,3,46)),2),; MSPAuth=, $($+($(%bot.ticket,0),$gettok(%s,3,46)),2),; ), $str($crlf,2) ) }
}
on 1:sockread:ud.*: {
var %s = $sockname, %m = $sock(%s).mark, %e = $gettok(%m,1,32), %p = $gettok(%m,2,32), %h = $gettok(%m,3,32)
if ( $sockerr > 0 ) return
sockread -n &b
if ( $sockbr = 0 ) return
if ( $regex( $bvar(&b,$bfind(&b,1,t=) $+ -).text,/t=(.+)&p=(.+)'/) ) { set $+($(%bot.ticket,0),$gettok(%s,3,46)) $regml(1) | set $+($(%bot.profile,0),$gettok(%s,3,46)) $regml(2) | echo -s 4* updated %e in: $round( $calc( ($ticks - %u_t - 100) / 1000 ) ) seconds. | sockopen $replace(%s,ud.pp,ud.s) chat.msn.com 80 | sockmark $replace(%s,ud.pp,ud.s) %m | sockclose %s }
if ( $bfind(&b,1,Unauthorized) ) { echo -s 4* password invalid. | sockclose %s }
if ( $regex( $bvar(&b,$bfind(&b,1,"SubscriberInfo") $+ -).text,/"SubscriberInfo" VALUE="(.+)"/) ) { set $+($(%bot.subinfo,0),$gettok(%s,3,46)) $regml(1) | sockclose %s }
}