C'est un simple naviguateur qui vous permet de joindre des sites web et d'executer des recherches sur google. PS: j'ai mit un screen pour montrer ce que j ai reussi a faire avec nhtml ce screen n'a aucun rapport avec la source
Source / Exemple :
dialog google {
title "-- NaViGuAtEuR InTeRnEt --"
size -1 -1 154 141
option dbu
text "Tape l'adresse d'un site internet", 1, 21 9 108 8, center
edit "", 2, 6 23 139 10, autohs center
button "Go!", 3, 51 39 37 10
box "GoOgLe", 4, 0 57 154 57
box "Internet", 5, 0 0 154 57
text "Tape le ou les mots clés de ta recherche", 6, 21 67 105 8, center
edit "", 7, 6 82 139 10, autohs center
button "Go!", 8, 50 97 37 10
button "Favoris", 9, 18 122 37 10
button "Fermer", 10, 94 123 37 10, ok cancel
}
on *:dialog:google:init:*:{
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog google
dll mdx.dll SetDialog $dname bgcolor $rgb(2,10,10)
dll mdx.dll SetColor $dname 1,2,4,5,6,7 textbg $rgb(0,0,0)
dll mdx.dll SetColor $dname 1,2,4,5,6,7 text $rgb(255,0,0)
dll mdx.dll SetColor $dname 1,2,4,5,6,7 background $rgb(0,0,0)
dll mdx.dll SetFont $dname 1,2,3,4,5,6,7,8,9,10 +abg 16 400 comic sans ms
}
on 1:dialog:google:sclick:8:{
/set %recherche $did(7)
/run http://www.google.fr/search?q= $+ $replace(%recherche,$chr(160),+)
}
on 1:dialog:google:sclick:3: {
/set %recherche2 $did(2)
/run %recherche2
}
on *:dialog:google:sclick:9: { /dialog -m favori favori }
dialog favori {
title "-- FaVoRiS --"
size -1 -1 114 155
option dbu
list 1, 16 29 80 68, size vsbar
text "Entre dans cette liste tes sites internet favoris pour les rejoindre en un click", 2, 8 8 98 14, center
edit "", 3, 17 102 80 10, autohs
button "Ajouter", 4, 18 120 37 12
button "Enlever", 5, 57 120 37 12
button "Fermer", 6, 36 134 37 12, ok cancel
}
on *:dialog:favori:init:*:{
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog favori
dll mdx.dll SetDialog $dname bgcolor $rgb(2,10,10)
dll mdx.dll SetColor $dname 1,2,3 textbg $rgb(0,0,0)
dll mdx.dll SetColor $dname 1,2,3 text $rgb(255,0,0)
dll mdx.dll SetColor $dname 1,2,3 background $rgb(0,0,0)
dll mdx.dll SetFont $dname 1,2,3,4,5,6 +abg 16 400 comic sans ms
fav
}
on *:dialog:favori:sclick:4:{
write favoris.txt $did(favori,3).text
fav
}
on *:dialog:favori:sclick:5:{
write -dl $did(favori,1).sel favoris.txt
fav
}
alias fav {
.did -r favori 1
%i = 1
while (%i <= $lines(favoris.txt)) {
.did -az favori 1 $read(favoris.txt,%i)
inc %i
}
}
on *:dialog:favori:dclick:1: {
/set %sitefav $did(1).seltext
/run %sitefav
}
Conclusion :
Voila c'est tres simple.
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.