Inutil [scanneur de sous liens de sites]

Commenter

Contenu du snippet

Comme son nom l'indique, c'est le truc qui sert à rien!
Vous lui donnez un site, et il vous trouvera tous les sous liens pour les afficher dans une list d'un dialog tres simple d'utilisation, il servira plus à comprendre le fonctionnement des sockets plutot que pour faire mumuse avec!
Ne reccopiez pas ce code, inspirez vous en seulement, et j'en serai ravi d'aider d'autre personnes avec, meme si il reste encore très basique.

/inut pour activer la bête!

Source / Exemple : 


alias inut { dialog -m Intl Intl }
dialog Intl {
  title "InutiL, le script inutile"
  size 250 200 500 320
  button "",1,1 1 1 1,close
  text "Adresse du site:",2,10 12 80 15
  edit "vtff.fr.st",3,100 10 120 20,autohs
  button "Scan",4,240 10 80 20,flat
  text "Scripté par nxtreme",5,330 10 160 30,center
  list 6,10 40 480 280, sort, extsel, vsbar, hsbar

}
on *:dialog:Intl:sclick:4:{
  if ($did(4) == Scan) {
    did -ra intl 4 Stop
    did -ra intl 6 $null
    did -ra Intl 5 Scanne $did(3) 80
    sockclose inut
    sockopen inut $did(3) 80
    if ((www. isin $did(3)) || (http:// isin $did(3))) {
      did -ra intl 5 Réinscrivez l'adresse sans www. ou http://
      did -e intl 4
    }
    else set %serveurinutile $did(3)
  }
  else {
    sockclose inut
    did -ra intl 4 Scan
  }
}
on *:sockopen:inut:{
  sockwrite -n inut GET / HTTP/1.1
  sockwrite -n $sockname Host: %serveurinutile $+ $str($crlf ,2)
}
on *:sockread:inut:{ 
  sockread %a.tmp
  if (<html> isin %a.tmp) { did -ra intl 5 Connexion établie: %serveurinutile }
  if (href=" isin %a.tmp) {
    if ((/ isin $gettok(%a.tmp,2,34)) && (< !isin $gettok(%a.tmp,2,34))) { did -a intl 6 $gettok(%a.tmp,2,34) }
  }
  if (</html> isin %a.tmp) { 
    did -ra intl 5 Terminé
    did -ra intl 4 Scan
  }
}

Conclusion :


Ne donnez pas de fausses adresses au script, il ne saura pas les recconaitre, j'ai eu la fleme de faire une fonction comme ca, ce script à été créé en 1heure!

A voir également

S'inscrire maintenant

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.

Du même auteur (nxtreme)