SUPERSCAN USENET : RÉFÉRENCEUR D'ADRESSES E-MAIL

;============================================
;   SUPERSCAN D'USENET : addon référenceur d'adresses email.
;--------------------------------------------------------

;     SYNTAXE =  /usenet fr.sci.philo

;--------------------------------------------------------

alias usenet {
  write c:\windows\bureau\EmailUsenet.txt Référencement des adresses emails de $1
  set %listfull ¤
  set %group $1
  set %sheet 0
  window -e @USENET Résultat sock forum et envoi sock email
  sockopen usenet $+ $rand(0,500000) $+ $rand(a,z) groups.google.com 80
  .xscan
}

;----------------------------------------


alias out {
  sockclose forum*
  sockclose usenet*
  echo -a 4,0 Fermeture USENET
}



;----------------------------------------

on *:sockopen:usenet*:{
  if ($sockerr > 0) return
  if (%sheet == 0) timersheet -m 1 500 sockwrite -n $sockname GET /groups?dq=&num=100&hl=fr&lr=&ie=UTF-8&group= $+ %group       
  if (%sheet > 0) sockwrite -n $sockname GET /groups?dq=&num=100&hl=fr&lr=&ie=UTF-8&group= $+ %group $+ &start= $+ %sheet       
  .xscan
  set %sheet $calc(%sheet + 25)
}

;----------------------------------------

on *:sockread:usenet*:{
  if ($sockerr > 0) return
  :usenet
  sockread %usenet
  if ($sockbr == 0) return
  if (%usenet != $null) {
    if (href= isin $gettok(%usenet,3,32)) {
      set %forum $remove($gettok(%usenet,3,32),href=)
      set %forum $replace(%forum,&threadm,&selm)      
      sockopen forum $+ $rand(0,500000) $+ $rand(a,z) groups.google.com 80
    }
  }
  goto usenet
}

;-----------------------------------------

on *:sockopen:forum*:{
  if ($sockerr > 0) return
  sockwrite -n $sockname GET %forum
}

on *:sockread:forum*:{
  if ($sockerr > 0) return
  :listing
  sockread %datanet
  if ($sockbr == 0) return
  if (%datanet != $null) {
    if (mailto: isin %datanet) {
      titlebar @USENET Page n° %sheet
      set %email $remove($gettok(%datanet,6,32),</a>,$chr(41),<br>,Objet,$left($gettok(%datanet,6,32),$pos($gettok(%datanet,6,32),>,1)))
      if ((%email != %compar) && (%email !isin %listfull) && (@ isin %email)) {
        aline -ph 1 @USENET $remove($gettok(%datanet,6,32),</a>,$chr(41),<br>,Objet,<a,a>,$left($gettok(%datanet,6,32),$pos($gettok(%datanet,6,32),>,1))))
        write c:\windows\bureau\EmailUsenet.txt %email
      }
      if (%email !isin %listfull) set %listfull %email

      set %compar %email
      set %listfull %email %listfull
    }
  }
  goto listing
}


alias xscan {
  .timerxscan $+ %sheet -m 1 %sheet .sockopen usenet $+ $rand(0,500000) $+ $rand(a,z) groups.google.com 80
}