Mirc explorer v.4

Soyez le premier à donner votre avis sur cette source.

Vue 7 773 fois - Téléchargée 372 fois

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

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 :)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_PaTaTe
Messages postés
1878
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
7 janvier 2019
-
Je voulais tester la chose mais mon anti virus s'affole avec la DLL nHTMLn.dll en le considérant comme un cheval de troie ...
heschal
Messages postés
9
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
31 mars 2004
-
Serais interessant mettre la touche enter comme GO ?
Exemple. www.msn.ca et comme habitude d'explorer 6.0
je tappe enter mais oups la page se ferme mdr ^^
Serais bien si tu met comme touche enter pour GO aussi ;)
hisoka2501
Messages postés
266
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
7 juillet 2009
-
merci grace a ta source j'ai pu comprendre comment me servir de cette dll :)
et puis c'est assé bien codé, et c assé clair 9/10
samueldr
Messages postés
121
Date d'inscription
samedi 23 août 2003
Statut
Membre
Dernière intervention
3 juillet 2005
-
C'est bien ce code, j'en ai déja vu ailleur...

J'ai déja lu des tutos sur Nhtml , mais...
les @win comment on fait pour que ca fonctionne ???
J'ai essayé...
cs_Kolibot
Messages postés
817
Date d'inscription
mercredi 25 juin 2003
Statut
Membre
Dernière intervention
19 avril 2004
-
C'est bien scripté Rem mais j'ai deux petites suggestions ...
Tu peux chainer les vars... ex :
/var %x o
/var %y u
<=> /var %x o,%y u

dll $nHTMLn reviens tout le tps ... pourquoi ne pas avoir directement implenté /dll dans l'alias avec un $1- ... ?

Je te mets 8/10

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.