Mirc explorer v.4
Description
Il sagit d'un addon qui permet de surfer sur le web grâce à nHTMLn.dll.
Je le poste ici pour apprendre aux autres à se servir d'nHTMLn.dll.
J'espère que cet addon vous plaira.
Il faut mettre le dll dans un dossier nommé Navigateur.
- 1ère Mise A Jour :
Ajout de la fonction recherche sur google
- 2nde Mise A Jour :
Ajout de différents sites de scripting
- 3ème Mise A Jour :
Ajout de plusieurs moteurs de recherche
Voila, dites moi ce que vous en pensez :)
Fonctionne sans aucun bug :)
Je le poste ici pour apprendre aux autres à se servir d'nHTMLn.dll.
J'espère que cet addon vous plaira.
Il faut mettre le dll dans un dossier nommé Navigateur.
- 1ère Mise A Jour :
Ajout de la fonction recherche sur google
- 2nde Mise A Jour :
Ajout de différents sites de scripting
- 3ème Mise A Jour :
Ajout de plusieurs moteurs de recherche
Source / Exemple :
;-----------------------------
;
; -=- mIRC Explorer V.4 -=-
; By Re[M]i_34
;
;-----------------------------
dialog nav {
title "-=- mIRC Explorer V.4 -=- By Re[M]i_34"
size -1 -1 401 282
option dbu
box "Navigation", 8, 4 4 393 224
text "Adresse :", 5, 1 252 29 8, center
button "&Précédente", 1, 8 232 35 14, flat
button "&Suivante", 2, 48 232 35 14, flat
button "&Arrêter", 3, 88 232 35 14, flat
button "&Actualiser", 17, 128 232 35 14, flat
button "&Home", 4, 168 232 35 14, flat
edit "", 6, 32 250 176 12
button "&Ok", 7, 211 251 23 10
button "&Conf. la Page d'Accueil", 10, 208 232 69 14, flat
text "Naviguer à travers CodeS-SourceS :", 9, 295 236 90 8, center
combo 22, 294 248 66 62, size limit 14 drop
button "Go !", 23, 362 247 37 12
text "Faire une recherche :", 21, 2 267 60 8, center
edit "Mots Clés", 24, 63 266 91 10, center
combo 26, 274 265 83 73, size drop
button "Go !", 27, 362 264 37 12
text "Autres :", 28, 249 268 25 8, center
combo 25, 156 266 63 50, size drop
button "Go !", 29, 221 266 23 10
menu "Fichier", 11
item "Crédits", 31, 11
item "Quitter", 12, 11, ok
menu "Options", 13
item "Précédent", 14, 13
item "Suivant", 15, 13
item "Arrêter", 16, 13
item "Actualiser", 18, 13
item "Home", 19, 13
item "Conf. la Page d'Accueil", 20, 13
}
;On l'installe dans les popups:
menu * {
-
Navigateur Internet:nav
}
alias nhtmln return Navigateur\nHTMLn.dll
;alias pour l'ouvrir rapidement :
alias nav {
dialog -m nav nav
if ($1) {
did -ra nav 6 %pa
.timer 1 0 dll $nHTMLn navigate $1
}
}
on *:dialog:nav:*:*: {
if $devent == sclick {
;On "ordonne" au dll d'aller sur la page par rapport à l'adresse fournie dans l'édit 6
if $did == 7 { dll $nHTMLn navigate $did(6) }
;Précédent
if $did == 1 { dll $nHTMLn back 0 }
;Suivante
if $did == 2 { dll $nHTMLn forward 0 }
;Arrêter
if $did == 3 { dll $nHTMLn stop 0 }
;Actualiser
if $did == 17 { dll $nHTMLn refresh 0 }
;Configuration de la page d'accueil
if $did == 10 { %pa = $?="Quelle sera la page d'accueil ? (http://...) " }
;On "ordonne" au dll d'aller sur la page d'accueil, puis de retranscrir l'adresse dans l'édit 6
if $did == 4 { dll $nHTMLn navigate %pa | did -ra nav 6 %pa }
;On "ordonne" au dll d'aller sur la page de l'adresse choisie dans le combo 22
if $did == 23 { dll $nHTMLn navigate $did(22) }
}
;Naviguer sur différents sites de scripting
if $did == 27 { dll $nHTMLn navigate $did(26) }
;Recherche sur les moteurs de recherches
if $did == 29 {
set %mc $did(24)
;Google
if $did(25).sel == 2 { dll $nHTMLn navigate http://www.google.fr/search?q= $+ %mc $+ &ie=UTF-8&oe=UTF-8&hl=fr&meta=cr%3DcountryFR }
;AltaVista
if $did(25).sel == 3 { dll $nHTMLn navigate http://fr.altavista.com/web/results?q= $+ %mc $+ &kgs=1&kls=1&avkw=aapt }
;Voilà
if $did(25).sel == 4 { dll $nHTMLn navigate http://search.ke.voila.fr/S/voila?dt=*&kw= $+ %mc }
;Lycos
if $did(25).sel == 5 { dll $nHTMLn navigate http://vachercher.lycos.fr/cgi-bin/pursuit?query= $+ %mc $+ &cat=fr&tld=com&family=off&x=23&y=6 }
}
;Menu
if $devent == menu {
;Précédent
if $did == 14 { dll $nHTMLn back 0 }
;Suivante
if $did == 15 { dll $nHTMLn forward 0 }
;Arrêter
if $did == 16 { dll $nHTMLn stop 0 }
;Actualiser
if $did == 18 { dll $nHTMLn refresh 0 }
;On "ordonne" au dll d'aller sur la page favorite, puis de retranscrir l'adresse dans l'édit 6
if $did == 19 { dll $nHTMLn navigate %pa | did -ra nav 6 %pa }
;Configuration de la page d'accueil
if $did == 20 { %pa = $?="Quelle sera la page d'accueil ? (http://...) " }
;Crédits
if $did == 31 { dialog -m cred cred }
}
;Init
if $devent == init {
;Recherche de la box "Navigation"
var %hwnd = $dll($nHTMLn,find,Navigation)
var %v = $dll($nHTMLn,attach,%hwnd)
var %h = $dll($nHTMLn,navigate,%pa)
var %i = $dll($nHTMLn,handler,nh)
.timerbrowser -m 0 1 bro
;Affiche les adresses de CodeS-SourceS dans le combo 22
didtok nav 22 44 www.vbfrance.com,www.aspfr.com,www.cppfrance.com,www.cfmfrance.com,www.phpcs.com,www.javascriptfr.com,www.delphifr.com,www.flashkod.com,www.javafr.com,www.graphfr.com,www.ircfr.com,www.asmfr.com,www.csharpfr.com,www.pdafr.com,www.CodeS-SourceS.com
;Afficher les adresse de différents sites de scripting dans le combo 26
didtok nav 26 44 --- Sites De Scripting ---,www.ScriptsDB.org,www.mircscriptsfrfm.com,www.mircscripts.org,www.script-fr.com
;Afficher les moteurs de recherche dans le combo 25
didtok nav 25 44 --- Moteurs de Recherche ---,Google,AltaVista,Voilà,Lycos
}
}
alias -l bro { if (!$dialog(nav)) .timerbrowser off | else var %i = $dll($nHTMLn,handler,nh) }
dialog cred {
title "-=- Crédits -=-"
size -1 -1 120 57
option dbu
text "-=- mIRC Explorer V.4 =- By Re[M]i_34", 1, 15 3 91 15, center
text "Merci d'avoir téléchargé ce script.", 2, 16 22 87 8, center
button "Fermer", 3, 37 40 37 12, ok
}
Conclusion :
Voila, dites moi ce que vous en pensez :)
Fonctionne sans aucun bug :)
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.