Getting Reg Cookie?

ok what it is i have been using xnextx's updater which i edited and took all the hash stuff out .. but i want it to grab regcookie .. can anyone help me and see where i've gone wrong.. ?

thanks in advance..

; >-------------------------<
;|                           |
;|        Names: Syn!X!      |
;|      Creator: Synedyne    |
;|      Version: [v1.7]      |
;|  Description: Updater     |
;|      Credits: xnextx      |
;|                           |
; >-------------------------< 

alias ud { 
 :1
 if (!%User) || (!%Pass) {
   .set %User $$?="Email:"
   .set %Pass $$?="Pass:"
   goto 1
 }  
 else {
   var %x = $gettok(%User,2,64)
   if (%x = hotmail.com) .set -u8 %Host loginnet.passport.com/login2.srf
   if (%x = msn.com) .set -u8 %Host msnialogin.passport.com/login2.srf
   else .set -u8 %Host login.passport.com/login2.srf

   var %s = Passport1.4 $+(OrgVerb=GET,$chr(44),OrgURL=?,$chr(44),sign-in=,%User,$chr(44),pwd=,%Pass,$chr(44),id=507) 
   if ($com(Stage1)) { .comclose Stage1 } 
   .comopen Stage1 WinHttp.WinHttpRequest.5.1 
   if ($comerr) { 
     .comreg winhttp5.1.dll 
     .comopen Stage1 WinHttp.WinHttpRequest.5.1 
   } 
   if (!$com(Stage1,Open,1,bstr,GET,bstr,https:// $+ %Host)) { return } 
   if (!$com(Stage1,SetRequestHeader,1,bstr,Authorization,bstr,%s)) { return } 
   if (!$com(Stage1,Send,1)) { return } 
   if ($com(Stage1,GetResponseHeader,1,bstr,authentication-info)) {
     if ($regex($com(Stage1).result,/'t=(.+)&p=(.+)'.+/)) {
       %Ticket = $regml(1) | %Profile = $regml(2) | %Authkey = $+(:,$base($len(%Ticket),10,16,8),%Ticket,$base($len(%Profile),10,16,8),%Profile)
       writeini -n $vdir(Passports.ini) %User Pass %Pass
       writeini -n $vdir(Passports.ini) %User Ticket %Ticket 
       writeini -n $vdir(Passports.ini) %User Profile %Profile
       writeini -n $vdir(Passports.ini) %User Authkey %Authkey
       sockopen Stage2 irc.msn.com 80
       sockopen Stage3 chat.msn.com 80
     }
   }
   if ($com(Stage1)) { .comclose Stage1 } 
 } 
}
on *:sockopen:Stage2:{
 sockwrite -n $sockname GET /renderchat.msnw HTTP/1.1 $& 
   $+ $crlf $+ Host: irc.msn.com $& 
   $+ $crlf $+ User-Agent: Mozilla/5.0 Windows NT 5.1 MSN  $& 
   $+ $crlf $+ Cookie: MSPAuth= $+ %Ticket $+; MSPProf= $+ %Profile $+; $& 
   $+ $crlf $+ $crlf 
}
on *:sockread:Stage2:{
 sockread -n &u
 if (!$sockbr) return
 if ($regex($bvar(&u,1,940).text,/SubscriberInfo" VALUE="(.+)"/)) {
   D-Bug $1-
   echo -a ~ Updated %User Details.
   %Subinfo = $regml(1)
   writeini -n $vdir(Passports.ini) %User Subinfo %Subinfo
   return
 }
}
on *:sockopen:Stage3:{
 sockwrite -n Stage3 GET /chatroom.msnw?rm=thelobby HTTP/1.1 $& 
   $+ $crlf $+ Host: chat.msn.com $& 
   $+ $crlf $+ User-Agent: Mozilla/5.0 Windows NT 5.1 MSN  $& 
   $+ $crlf $+ Cookie: MSPAuth= $+ %Ticket $+; MSPProf= $+ %Profile $+; $& 
   $+ $crlf $+ $crlf 
}
on *:sockread:Stage3:{
 sockread -n &u
 D-Bug $1-
 if (!$sockbr) return
 if ($regex($bvar(&u,1,940).text,/MSNChatNN=(.+);path/)) {
   %Regkey = $regml(1)
   echo -a 04~ Updated %User Regkey.
   writeini -n $vdir(Passports.ini) %User Regkey %Regkey
   return
 }
}