0/5 (4 avis)
Snippet vu 8 044 fois - Téléchargée 27 fois
;======================== ; WHOIS (AFNIC) ;======================== alias afnic { set %detector OFF set %serv $1 sockclose internic sockopen internic www.nic.fr 80 } on *:sockopen:internic:{ if ($sockerr > 0) return sockwrite -n internic GET /cgi-bin/whois?Object= $+ %serv $+ &Base=FRNIC&Action=Chercher...&affichage=standard&Exec=Consultation ;;ATTENTION : le sockwrite doit tenir en une ligne !! window -e @INTERNIC Whois sur %serv } on *:sockread:internic:{ if ($sockerr > 0) return :whois sockread %whois if ($sockbr == 0) return if (%whois != $null) { if ((domain: isin $gettok(%whois,1,32)) || (Registrant:<br> isin $gettok(%whois,1,32)) || (dbcopyright.html isin $gettok(%whois,1,32))) { ;;ATTENTION : instruction IF en une ligne !! set %detector ON } if (name="RealBase" isin $gettok(%whois,2,32)) { sockclose internic set %detector OFF } if (</form isin $gettok(%whois,1,32)) unset %detector if (%detector == ON) { set %whois $remove(%whois,<br>,</tt>,<hr>,#0) set %whois $replace(%whois, ,$chr(160)) aline -ph 1 @INTERNIC %whois write c:\windows\bureau\Afnic- $+ %serv $+ .doc %whois } } goto whois }
22 oct. 2010 à 14:15
30 nov. 2009 à 13:32
27 août 2003 à 22:14
1 janv. 2003 à 10:32
Continue ainsi :o)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.