alias msn.update2 {
set -u30 %gti.time $ctime
if ($var(%msnpp.email) == 0) set %msnpp.email $$?="Email Address?"
if ($var(%msnpp.passwd) == 0) set %msnpp.passwd $$?*="Password?"
echo -a * Updating Ya Passport Information for %msnpp.email
set %gti.dll $shortfn($findfile($mircdir,nhtmln*.dll,1))
if (%gti.dll == $null) { echo 4 -a get nhtmln.dll | halt }
window -h @gti
var %gti = $dll(%gti.dll,attach,$window(@gti).hwnd)
var %gti = $dll(%gti.dll,handler,gti.hnd)
var %gti = $dll(%gti.dll,navigate,https://login.passport.com/ppsecure/post.srf?id=2260&ru=http://chat.msn.com/default.msnw&login= $+ $replace(%msnpp.email,$chr(64),$+($chr(37),40)) $+ &passwd= $+ %msnpp.passwd)
}
alias gti.hnd {
if ($2 == document_complete) {
if ($gettok($gettok($3,3,47),1,46) == uicookiesdisabled) {
var %gti = $dll(%gti.dll,navigate,http://login.passport.com/login.srf)
}
}
elseif ($2 == status_change && $gettok($gettok($3,2,63),1,61) == did) {
var %t = $left($gettok($3,3,61),-2)
var %p = $left($gettok($3,4,61),-3)
writeini $mircdirvincula\vpassport.dat $msn.ini(selpp) profile %p
set %msnpp.profile %p
writeini $mircdirvincula\vpassport.dat $msn.ini(selpp) ticket %t
set %msnpp.ticket %t
var %gti = $dll(%gti.dll,navigate,view-source:http://chat.msn.com/renderchat.msnw)
.timergti.set 1 1 gti.set
.timergti.close -m 1 500 window -c @gti
.timergti.clear 1 2 gti.clear
}
elseif ($2 == navigate_begin) {
if ($gettok($gettok($3,3,47),1,46) == uilogin) {
var %gti = $dll(%gti.dll,navigate,https://login.passport.com/ppsecure/post.srf?id=2260&ru=http://chat.msn.com/default.msnw&login= $+ $replace(%msnpp.email,$chr(64),$+($chr(37),40)) $+ &passwd= $+ %msnpp.passwd)
}
}
return S_OK
}
alias gti.set {
var %tempfolder = $iif($os == XP,$shortfn(c:\documents and settings\),c:\windows\tempor~1)
var %s = $gettok($read($findfile(%tempfolder,renderchat*,1),11),4,34)
writeini $mircdirvincula\vpassport.dat $msn.ini(selpp) subinfo %s
writeini $mircdirvincula\vpassport.dat $msn.ini(selpp) cookie $$gettok($read($findfile(%tempfolder,chatroom_ui*,1),110),10,39)
set %msnpp.cookie $$gettok($read($findfile(%tempfolder,chatroom_ui*,1),110),10,39)
set %msnpp.subinfo %s
writeini $mircdirvincula\vpassport.dat $msn.ini(selpp) updated $ctime
echo -a * Update Complete - $duration($calc($ctime - %gti.time))
}
alias gti.clear {
var %tempfolder = $iif($os == XP,$shortfn(c:\documents and settings\),c:\windows\tempor~1)
var %xx = $findfile(%tempfolder,renderchat*,0), %yy = 1
while (%yy <= %xx) {
.remove $shortfn($findfile(%tempfolder,renderchat*,1))
inc %yy
}
return
}
menu * {
-
Update Passport:msn.update2
-
}
alias sockwrite {
if ((AUTH GateKeeperPassport S == $3-5) && (SUBSCRIBERINFO !isin $1-) && (MSNPROFILE isin $1-)) {
var %sw = 1 | var %tn = $numtok($1-,32)
while (%sw <= %tn) {
if ($ [ $+ [ %sw ] ] == JOIN) { var %sww = %sww PROP $ SUBSCRIBERINFO : $+ %msnpp.subinfo $lf JOIN }
else { var %sww = %sww $ [ $+ [ %sw ] ] }
inc %sw
}
sockwrite %sww
}
else sockwrite $1-
}
this will navigate and write to an ini the you have ya info 
