Accueil > > > INUTIL [SCANNEUR DE SOUS LIENS DE SITES]
 INUTIL [SCANNEUR DE SOUS LIENS DE SITES]
 Information sur la source
 Description
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
- 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
- }
- }
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!
 Sources de la même categorie
 Commentaires et avis
|
Derniers Blogs
 QUELQUES TRUCS INTéRESSANTS (05/09/2010)QUELQUES TRUCS INTéRESSANTS (05/09/2010) par coq
Cette fois-ci : .NET Debug / Performance Sécurité SQL Server .NET Determining if a type is defined in the .NET Framework (blog de Scott Dorman) Ha tiens, je n'avais jamais vraiment pensé à utiliser le jeton de clé publique...
Cliquez pour lire la suite de l'article par coq ENUMERABLECOLLECTIONENUMERABLECOLLECTION par Matthieu MEZIL
Prenons le scénario suivant. On utilise MVVM. On a les deux classes suivantes dans le model : public class Child { } public class Parent { private ObservableCollection < Child > _children; public ObservableCollection < Child > Children { get {...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [HS] CHROME 6 + MOI = COUP DE GUEULE ![HS] CHROME 6 + MOI = COUP DE GUEULE ! par JeremyJeanson
Attention, le poste qui suit n'est pas la complainte d'une personne : Qui n'aime pas Chrome. D'un anti Google. D'un développeur qui a un poil énorme dans la main. Ceux qui me fréquentent savent que je change de navigateur favori tous les 2 ou 3 mois afin ...
Cliquez pour lire la suite de l'article par JeremyJeanson [WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7[WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7 par Audrey
Lors de la réalisation de ma 2ème application Windows Phone 7, j'ai souhaité utiliser un WrapPanel pour afficher plusieurs photos. Mais le contrôle WrapPanel ne fait pas parti de la liste des contrôles inclus dans le SDK de la version Beta des outils pour...
Cliquez pour lire la suite de l'article par Audrey
Logiciels
 WebLogAndPass (1.0.0)WEBLOGANDPASS (1.0.0)WebLogAndPass est un logiciel permettant de mémoriser vos sites préférés et pour chacun d'entre-e... Cliquez pour télécharger WebLogAndPass uTorrent (2.0.4)UTORRENT (2.0.4)C'est un client BitTorrent très puissant et très performant. Comme son nom l'indique, uTorrent (m... Cliquez pour télécharger uTorrent Bureau de Gestion - ERP Devis Facturation (2.02)BUREAU DE GESTION - ERP DEVIS FACTURATION (2.02)- Version gratuite du 10/06/2010
Le Bureau de Gestion est un logiciel dédié à la gestion de l'en... Cliquez pour télécharger Bureau de Gestion - ERP Devis Facturation 4Videosoft Transfert iPod Mac (3.2.08)4VIDEOSOFT TRANSFERT IPOD MAC (3.2.08)4Videosoft Transfert iPod-Mac caractérise principalement à transférer les fichiers iPod vers Mac.... Cliquez pour télécharger 4Videosoft Transfert iPod Mac 4Videosoft HD Convertisseur (3.3.08)4VIDEOSOFT HD CONVERTISSEUR (3.3.08)Etant le meilleur HD Vidéo Convertisseur, 4Videosoft HD Convertisseur, vous pouvez regarder la vi... Cliquez pour télécharger 4Videosoft HD Convertisseur
|