Ce snippet connecte un socket a un site qui vous renvoie votre ip et votre hostname. Très pratique lorsque vous êtes en reseau et que la commande $ip vous renvoie votre passerelle
Source / Exemple :
;====================================================================
;Auteur: JHD, Email: jhd@jhdscript.com
;Site: JHDSCRIPT®, Home Page: www.jhdscript.com
;Commentaire: Ce snippet vous renvoie votre ip et votre hostname
;--------------------------------------------------------------------
;Remerciements: http://checkip.dyndns.org/ car la recherche se fait en
; connectant un socket sur leur site
;Date: 8/08/03
;====================================================================
;conection du socket au site
alias wmip {
sockclose wmip
sockopen wmip 209.69.32.139 80
}
;analyse du sockread
on 1:sockread:wmip:{
sockread %wmip
if (Current IP Address isin $htmlfree(%wmip)) { echo -a 12Votre addresse ip est $gettok($htmlfree(%wmip),-1,32) }
if (Hostname isin $htmlfree(%wmip)) { echo -a 12Votre Hostname est $gettok($htmlfree(%wmip),-1,32) }
}
;envoie des requetes http lors de l' ouverture du socket
on 1:sockopen:wmip:{
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname HEAD http://checkip.dyndns.org/ HTTP/1.1
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; mIRC $version $+ )
sockwrite -nt $sockname Host: checkip.dyndns.org $+ : $+ $sock($sockname).port
sockwrite -nt $sockname Connection: Keep-Alive
sockwrite -nt $sockname $lf
}
;suppression des balises html
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
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.