updater worked fine....went offline for about a month...don't work...racked my brain...no results....anyone's help would be appreciated
;;;;;;;;;;;;;;;;;;;;start updater
alias registry {
Var %k = $1, %d = $readreg(%k)
return %d
}
alias -l readreg {
var %n = $+(regread,.,$ticks), %r, %v
.comopen %n WScript.Shell
if (!$com(%n)) {
var %a = 1
while (%a < 100) { inc %a }
}
%v = $com(%n,RegRead,3,bstr,$1)
if (($comerr) || (!%v)) { .comclose %n | %r = $false }
else { %r = $com(%n).result }
.comclose %n
return %r
}
alias go {
dll nHTMLn handler list.control
dll nHTMLn select $window(@html).hwnd
dll nHTMLn navigate $1
}
alias getcookie {
var %cookie $findfile($shortfn($$registry(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Paths\\Directory)),*chatroom_ui*,1,echo -s $1-)
var %nearly $gettok($read(%cookie, w, *MSNREGCookie*),75,32)
var %almost $right(%nearly,- $+ $pos(%nearly,",1))
set %MSNREGCookie $remove($left(%almost,$pos(%almost,",1)),")
}
alias passport {
var %a = $$?="email and password?"
set %c.addr $replace($gettok(%a,1,32),@,$chr(37) $+ 40)
set %c.pass $replace($gettok(%a,2,32),@,$chr(37) $+ 40)
}
alias ud2 { echo -s $dll(nHTMLn.dll,navigate,https://login.passport.com/ppsecure/post.srf?id=2260&ru=http://chat.msn.com/chatroom.msnw%3frm%3d20s&login= $+ %c.addr $+ &passwd= $+ %c.pass) }
alias ud {
if (%c.addr == $null) || (%c.pass == $null) { passport }
echo -s 4*** update started at $time ***
if (!$window(@update)) {
window -p @update
dll nHTMLn attach $window(@update).hwnd
}
dll nHTMLn select $window(@update).hwnd
dll nHTMLn handler nHTMLn.handler
dll nHTMLn navigate http://login.passport.com/logout.srf?lc=1033&sf=1&id=2260&ru
echo -s 4*** Signing Out Of Passport at $time ***
}
alias nHTMLn.handler {
echo @debug nHTMLn $2-
if ($2- == document_complete about:blank) .timerclosehtml -m 1 50 window -c @update
if (http://chat.msn.com/chatroom.msnw?did=1&t= isin $3-) {
set %ticket $left($gettok($3,3,61),$calc($len($gettok($3,3,61)) - 2))
set %profile $left($gettok($3,4,61),$calc($len($gettok($3,4,61)) - 3))
if ($dll(nHTMLn.dll,navigate,http://login.passport.com/logout.srf?lc=1033&sf=1&id=2260&ru=http://chat.msn.com/chatroom.msnw%3frm%3d20s&tw=20&fs=0&cb=&cbid=2260&ts=0&login= $+ %c.addr $+ &domain=hotmail.com&sec=&mspp_shared=&lm=S&seclog=0) != S_OK) { echo -s nhtmln error. }
echo -s 4*** Passport info updated successfully! at $time ***
;echo -s 4*** You may now join a channel. ***
set %tickticks $ctime
getsubinfo
if (%failedon) { multi %failedon | unset %failedon }
}
if (Opening page https://login.passport.net/ppsecure/uisecure.srf?id=10... isin $1-) { echo @debug $dll(nHTMLn.dll,navigate,https://login.passport.com/ppsecure/post.srf?id=2260&ru=http://chat.msn.com/chatroom.msnw%3frm%3d20s&login= $+ %c.addr $+ &passwd= $+ %c.pass) }
if ($2- == navigate_complete http://login.passport.com/logout.srf?lc=1033&sf=1&id=2260&ru=http://chat.msn.com/chatroom.msnw%3frm%3d20s&tw=20&fs=0&cb=&cbid=2260&ts=0&login= $+ %c.addr $+ &domain=hotmail.com&sec=&mspp_shared=&lm=S&seclog=0) { echo @debug $dll(nHTMLn.dll,navigate,about:blank) }
if ($2- == navigate_complete http://login.passport.net/uilogout.srf?lc=1033&sf=1&id=2260&ru) { ud2 }
if (document_complete http://login.passport.net/UICookiesDisabled.srf?id= isin $2-3) {
.set %loop on
echo -s 4*** passport Cookie Expired now retrieving $time ***
echo @debug $dll(nHTMLn.dll,navigate,https://registernet.passport.net/editprof.srf?lc=2057&id=10&cbid=486&lc=2057&login= $+ %c.addr $+ &passwd= $+ %c.pass)
}
if (document_complete https://registernet.passport.net/epcongrats.srf?id isin $2-) {
echo @debug $dll(nHTMLn.dll,navigate,http://www.passport.net/default.asp?lc=2057)
}
if (document_complete https://registernet.passport.net/editprof.srf?lc= isin $2-) {
echo @debug $dll(nHTMLn.dll,navigate,http://loginnet.passport.com/login.srf?lc=2057&tw=200000&NoTp=1&newprof=1&id=10&ru=https://registernet.passport.net/epcongrats.srf%3fcbid%3d486%26lc%3d2057&cbid=486)
}
if (document_complete https://registernet.passport.net/epcongrats.srf? isin $2-) {
echo @debug $dll(nHTMLn.dll,navigate,http://www.passport.net/default.asp?lc=1033)
}
if (document_complete http://www.passport.net/Consumer/default.asp?lc=1033&lc=1033 isin $2-) { echo @debug $dll(nHTMLn.dll,navigate,about:blank) | echo -s *** passport cookie updated $time *** | echo -s *** continuing update $time *** | ud }
return S_OK
}
;;;;;;;;;;;;;;;end updater
;;;;;;;;;;;;;;;Start Subinfo
alias getsubinfo {
getsub %c.addr %ticket %profile
}
alias getsub {
var %d = $+(getsub.,$r(1,999999))
sockopen %d chat.msn.com 80
sockmark %d $1- $ticks
}
on *:sockopen:getsub.*:{
if !$sockerr {
var %s = sockwrite -n $sockname
tokenize 32 $sock($sockname).mark
%s GET /RenderChat.msnw? HTTP/1.1
%s User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)
%s Host: chat.msn.com
%s Cookie: pgmarketnoexp=en-us; SITESERVER=ID=9fb8c761884d0abef8ebcbad8180e617; MSNNADS=UM=; MC1=V=3&GUID=38568cbea3bb4e1ebb989483283f5bc9; mh=MSFT; $+(MSPAuth=,$2,; MSPProf=,$3,;) acceptadult=1; hasOCX=9%2C02%2C0310%2C2401
%s $crlf
}
}
on *:sockread:getsub.*:{
sockread 8192 &bX
var %d = $bfind(&bX,1,SubscriberInfo)
if (%d) {
tokenize 32 $sock($sockname).mark
sockclose $sockname
set %subinfo $gettok($bvar(&bX,%d,150).text,3,34)
echo -s 4*** Updated SubscriberInfo for $replace($1,$chr(37) $+ 40,@) successful in $calc(($ticks - $4)/1000) $+ s.
}
}
;;;;;;;;;;;;;;;End Subinfo
