- 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
}
}