;hotmail checker
;email to ironman_55@hotmail.com
;sometimes it doesn't retrieve some of the messages..
alias hotmail dialog -m hotmail hotmail
on 1:load:echo $colour(info) -s - | echo $colour(info2) HoTMail Email Checker by ^^IronMan^^ Loaded.. use /hotmail to start it! | echo $colour(info2) -s This is a beta Version u can only check ur email not read it... And sometimes mIRC doesn't return the full email so it is counted as an unretrieved message | echo $colour(info2) -s Please don't rip this script. If u want to add it in ur script just email me | echo $colour(info) -s -
dialog HoTMail {
  title "HoTMail E-mail Checker By ^PoYzOn^ And SuRfErLaD"
  size -1 -1 250 400
  list 1,10 20 145 380  
  box "Users:",2,5 5 155 393
  button "Logout",4,165 270 60 25
  button "Cancel",5,165 360 60 25,cancel
  button "Add User",6,165 330 60 25
  button "Del User",7,165 300 60 25
  button "Login",9,165 240 60 25
}
on 1:dialog:HoTMail:*:*:{
  if ($devent = init) { unset %cookies %cache %h.user %h.pass %act.hotmail %loc.hotmail | set %h.msg.t 0 | set %h.nmsg.t 0 | set %h.mmsg.t 0 | listhusers }
  if ($devent = sclick) {
    if ($did = 6) { set %h.new.user yes | dialog -m userpass userpass }
    if ($did = 7)  { delhuser $did(Hotmail,1).sel  }
    if ($did = 9)  { if ($did(hotmail,1).sel = $null) { dialog -m userpass userpass | return } | .remove cache.txt | set %h.user $gettok($gettok(%h.t.users,$did(Hotmail,1).sel,44),1,32) | set %h.pass $gettok($gettok(%h.t.users,$did(Hotmail,1).sel,44),2,32) | set %act.hotmail open | window -lk @HoTMaiL 40 40 650 400 | clear @hotmail | titlebar @hotmail Connecting... | sockopen hotmail www.hotmail.com 80 } 
    if ($did = 4) { sockclose hotmail }
  }
}
alias listhusers {
  %thusers = 0 | :loop | inc %thusers | if ($gettok(%h.t.users,%thusers,44) = $Null) { return } | did -a HoTMail 1 $gettok($gettok(%h.t.users,%thusers,44),1,32) | goto loop
}
alias delhuser {
  set %h.t.users $remove(%h.t.users,$gettok(%h.t.users,$1,44)) | set %h.t.users $mid(%h.t.users,1,$pos(%h.t.users,$chr(44),$calc($1 - 1))) $+ $mid(%h.t.users,$calc($pos(%h.t.users,$chr(44),$1) + 1),$mid(%h.t.users,2,0))  | did -r Hotmail 1 | listhusers
}
dialog userpass {
  title "HoTMail User Configuration"
  size -1 -1 270 95
  text "Username:", 1, 5 8 80 20
  edit "", 2, 60 5 190 21
  text "Password:", 3, 5 33 80 20
  edit "", 4, 60 30 190 21,pass
  button "Ok", 5, 135 60 55 25, ok
  button "Cancel", 6, 195 60 55 25, cancel
}
on 1:dialog:userpass:sclick:5: set %h.user $did($dname, 2).text | set %h.pass $did($dname,4).text | %act.hotmail = open | if (%h.new.user = yes) { %h.t.users = %h.t.users %h.user %h.pass $+ , | did -r hotmail 1 | listhusers | unset %h.new.user } | else { set %act.hotmail open | window -lk @HoTMaiL 40 40 650 400 | clear @hotmail | titlebar @hotmail Connecting.... | sockopen hotmail www.hotmail.com 80 }
on 1:Sockopen:hotmail:{  if %act.hotmail = open { titlebar @hotmail Connected! Redirecting to hotmail server... | sockwrite -n $sockname GET / HTTP/1.0 | sockwrite -n $sockname $crlf } |  if (%act.hotmail = login) { titlebar @hotmail Logging In... | unset %Cookies |  sockwrite -n $sockname POST /cgi-bin/dologin HTTP/1.0 | sockwrite -n $sockname Connection: Keep-Alive
    sockwrite -n $sockname User-Agent: Mozilla/4.6 [en] (Win98; I) | sockwrite -n $sockname Host: $sock($sockname).ip | sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */* | sockwrite -n $sockname Accept-Encoding: gzip | sockwrite -n $sockname Accept-Language: en | sockwrite -n $sockname Accept-Charset: iso-8859-1,*,utf-8 
    sockwrite -n $sockname Content-type: application/x-www-form-urlencoded | sockwrite -n $sockname Content-length: 140 | sockwrite -n $sockname $crlf
    sockwrite -n $sockname login= $+ %h.user $+ &passwd= $+ %h.pass $+ &enter=Enter&frames=no&curmbox=ACTIVE&js=yes&_lang=&ru=http%3A%2F%2Flw2fd.hotmail.com%2Fcgi-bin%2Fstart&id=2 | sockwrite -n $sockname $crlf
  }
  if %act.hotmail = cookie { sockwrite -n $sockname GET / $+ $gettok(%hotmail.loc,2-,47) HTTP/1.0 | sockwrite -n $sockname Connection: Keep-Alive
    sockwrite -n $sockname User-Agent: Mozilla/4.6 [en] (Win98; I) | sockwrite -n $sockname Host: $sock($sockname).ip | sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*
    sockwrite -n $sockname Accept-Encoding: gzip | sockwrite -n $sockname Accept-Language: en | sockwrite -n $sockname Accept-Charset: iso-8859-1,*,utf-8
    sockwrite -n $sockname Cookie: %Cookies | sockwrite -n $sockname $crlf  
  }
}
on 1:sockread:hotmail:{
  :loop | sockread -f %hs.t | if ($sockbr = 0) {
    if (%act.hotmail = login) { titlebar @hotmail Logged In! | set %act.hotmail cookie | sockclose hotmail | .timersocko 1 3 sockopen hotmail $gettok(%hotmail.loc,1,47) 80 } | return 
  } 
  if (Login Failed... Invalid Login/Password Combination isin %hs.t) { echo -s ERROR: Login to Hotmail has failed : Invalid Login/Password | sockclose hotmail | return }
  if (Intrusion Logged. Access denied. isin %hs.t) { echo -s ERROR: Login to Hotmail has failed : Intrusion Logged. Access Denied. (make sure ur not connect to hotmail with any other program | sockclose hotmail | return }
  if (%act.hotmail = open) { if (The Document isin %hs.t) { sockclose hotmail | set %act.hotmail login | .timersocko2 1 3 sockopen hotmail $gettok(%hs.t,2,47) 80 | return } }
  if (%act.hotmail = cookie) { 
    if (302 Redirected isin %hs.t) { set %redirect yes }
    if (($gettok(%hs.t,1,32)) && (%redirect = yes)) { unset %redirect | set %act.hotmail login | set %hotmail.loc $mid($gettok(%hs.t,2,32),8,$mid($gettok(%hs.t,2,32),7,0))
      if (comt isin %hotmail.loc) { set %hotmail.loc $replace(%hotmail.loc,comt,com)  }
      if (start !isin %hotmail.loc) { set %hotmail.loc $replace(%hotmail.loc,$gettok($gettok(%hotmail.loc,3,47),1,63),start) }
    } 
    if (newmail.gif isin %hs.t) { inc %h.nmsg.t | titlebar @hotmail Total= $+ %h.msg.t  New Messages= $+ %h.nmsg.t  Unretrieved messages= $+ %h.mmsg.t  }     
    if (name="MSG isin %hs.t) { inc %h.msg.t | titlebar @hotmail Total= $+ %h.msg.t  New Messages= $+ %h.nmsg.t  Unretrieved messages= $+ %h.mmsg.t | getmes %hs.t | set %Cache yes }
    if (<input name="allbox" type="checkbox" value="Check All" isin %hs.t) { sockclose hotmail | unset %hs.t | titlebar @hotmail COMPLETED! Total= $+ %h.msg.t  New Messages= $+ %h.nmsg.t  Unretrieved messages= $+ %h.mmsg.t  | unset %h.nmsg.t %h.msg.t %h.mmsg.t | return } 
  }
  if (%act.hotmail = login) {
    if (Set-Cookie: = $gettok(%hs.t,1,32)) { if (%Cookies = $null) { %Cookies = $mid($gettok(%hs.t,2,32),1,$mid($gettok(%hs.t,2,32),2,0)) } | else {  %Cookies = %Cookies $+ ; $mid($gettok(%hs.t,2,32),1,$mid($gettok(%hs.t,2,32),2,0)) } } 
    if (Location: = $gettok(%hs.t,1,32)) { set %hotmail.loc $mid($gettok(%hs.t,2,32),8,$mid($gettok(%hs.t,2,32),7,0))
      if (comt isin %hotmail.loc) { %hotmail.loc = $replace(%hotmail.loc,comt,com)  }
      if (start !isin %hotmail.loc) { %hotmail.loc = $replace(%hotmail.loc,$gettok($gettok(%hotmail.loc,3,47),1,63),start) }
    }
  }
  goto loop 
}
alias -l getmes {
  if (($from($1-) = $null) || ($hdate($1-) = $null) || ($Subject($1-) = $null) || ($Size($1-) = $null)) { inc %h.mmsg.t | titlebar @hotmail Total= $+ %h.msg.t  New Messages= $+ %h.nmsg.t  Unretrieved messages= $+ %h.mmsg.t | return }
  if (newmail.gif isin $1-) { aline @Hotmail NEW! From: $From($1-) Date: $hdate($1-) Subject: $Subject($1-) Size: $Size($1-)  }
  else { aline @Hotmail From: $From($1-) Date: $hdate($1-) Subject: $Subject($1-) Size: $Size($1-)  }
}
alias -l From return $gettok($mid($1-,$pos($1- ,<a href,1),$calc($pos($1- ,</a>,1) - $pos($1- ,<a href,1))),2,62)
alias -l hDate return $replace($mid($1-,$calc($pos($1-,</a>,1) + 19),$calc($pos($1-,&nbsp;,7) - $pos($1-,&nbsp;,4))),&nbsp;,$chr(160))
alias -l Subject return $remove($mid($1- ,$calc($pos($1- ,<td>,5) + 4),$calc($pos($1- ,</td>,5) - $pos($1- ,<td>,5) - 4)),&nbsp;) 
alias -l Size return $remove($mid($1- ,$calc($pos($1- ,<td,6) + 18),$calc($pos($1-,</td>,6) - 18)),</td>,</tr>,&nbsp;)
on 1:close:@hotmail:sockclose hotmail | .timersocko* off