Rechercher un favoris ie/firefox

Soyez le premier à donner votre avis sur cette source.

Vue 7 846 fois - Téléchargée 68 fois

Description

Vous avez plein de favoris internet et vous n'arrivez plus à mettre la main sur celui qui vous interresse? Alors ce petit bout de code est fait pour vous.
Il vous sufit d'écrire une partie du favoris internet et au cours de votre frappe les résultats s'affichent.
Une foi les résultats affichés, il ne vous reste plus qu'à double cliquer sur celui qui vous interresse et la page s'ouvre dans votre explorateur

Source / Exemple :


alias favorissearch {
  $iif($dialog(favorissearch),,dialog -om favorissearch favorissearch)
}

dialog favorissearch {
  title "Rechercher un Favoris IE/Firefox"
  size -1 -1 348 203
  edit "", 1, 7 7 200 22, autohs
  list 2, 7 34 334 162, size
  list 3, 7 34 334 162, size
  combo 4, 212 8 129 100, drop size
}

on *:dialog:favorissearch:init:*: {
  did -h $dname 3
  didtok $dname 4 124 Internet explorer|Firefox
  did -c $dname 4 1
}

on *:dialog:favorissearch:*:*: {
  if ($devent == dclick) && ($did == 2) {
    if ($did($dname,4).sel == 1) url -an $readini($findfile(" $+ $favorissearch.getrepIE $+ ",$did(2).seltext $+ .url,1),DEFAULT,BASEURL)
    else url -an $did($dname,3,$did(2).sel)
  }
  elseif (($devent == edit) && ($did == 1)) || (($devent == sclick) && ($did == 4)) {
    did -r $dname 2,3 
    if $did(1) {
      if ($did($dname,4).sel == 1) var %a = $findfile(" $+ $favorissearch.getrepIE $+ ",* $+ $replace($did(1),$chr(32),*) $+ *.url,0,did -a $dname 2 $remove($nopath($1-),.url))
      else var %a $favorissearch.view(* $+ $replace($did(1),$chr(32),*) $+ *)
    }
  }
}

alias favorissearch.getrep {
  if $com(f) { .comclose f }
  .comopen f WScript.Shell | if $comerr { return }
  var %a $com(f,SpecialFolders,3,uint,5) | var %f $com(f).result $+ \Mozilla\Firefox\ | .comclose f
  return %f $+ $readini(" $+ %f $+ profiles.ini $+ ",Profile0,path) $+ \bookmarks.html
}

alias favorissearch.view {
  var %f $favorissearch.getrep
  var %x 10
  while %x <= $lines(%f) {
    var %a = $left($read(%f,w,$utfencode($1-),%x),930)
    if (<DT><A HREF= isin %a) && ( data: !isin %a) { did -a favorissearch 2 $replace($utfdecode($remove($gettok(%a,$numtok(%a,34),34),</A>,>)),&,&,',',â?¼,¤,&#233;,é,é,é) | did -a favorissearch 3 $gettok(%a,2,34) }
    if ($readn == 0) return
    else var %x $calc($readn + 1)
  }
}

alias favorissearch.getrepIE {
  if $com(f) { .comclose f }
  .comopen f WScript.Shell | if $comerr { return }
  var %a $com(f,SpecialFolders,3,uint,15) | var %f $com(f).result $+ \ | .comclose f | return %f 
}

Conclusion :


pour le lancer il faut tapper la commande

/favorissearch

utilisation:

choisissez entre internet explorer et firefox

puis entrez les mots correspondant à ce que vous cherchez

les résultats s'affichent en temps réel

il ne vous reste plus qu'à double-cliquer sur la ligne correspondant à votre choix pour ouvrir la page.

fonctionne sur 2000 et XP uniquement.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
1
Tu ouvres ton mirc (6.17 minimum)
Puis alt + r > file > new > tu colles le code et tu tape /favorissearch
Messages postés
1
Date d'inscription
mercredi 17 octobre 2007
Statut
Membre
Dernière intervention
17 octobre 2007

bonjour,
je trouve l'astuce très très intéressante mais je me pose quelques questions quant à la mise en oeuvre du script:
dans l'arborescence du PC, où doit-on ranger ce script?
Où faut-il taper la commande /favorissearch ?
Merci.
Messages postés
243
Date d'inscription
mercredi 22 janvier 2003
Statut
Membre
Dernière intervention
28 décembre 2008

le nom du profil se trouve dans un fichier ini dans les documents de l'utilisateurs

j'ai fait un truc hier soir pour firefox mais faut que je fasse avec la conversion UTFD-8
je pense mettre la modif sur le site d'ici peu
Messages postés
969
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
1 juillet 2012
1
Après une vérification sur un autre PC, le nom du profil se trouve bien a l'endroit indiqué dans mon poste "HKEY_LOCAL_MACHINE\..."

Si jamais tu trouves pas comment chercher dans le registre via un objet COM (ce qui m'étonnerait que tu n'y arrives pas), PM moi pour que je te passe le code.
Messages postés
969
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
1 juillet 2012
1
Les "Favoris" de Mozilla FireFox se situe :

"C:\Documents and Settings\SESSION\Application Data\Mozilla\Firefox\Profiles\NOM_DU_PROFIL\bookmarks.html"

le "NOM_DU_PROFIL" (si tu cherches dans le registre) se trouve ici (pour ma part):
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{2ABD5914-4F3F-4A34-A313-A7182901733E}\InstallSource

avec un "objet com" et une recherche dans le registre tu peux facilement trouver le "NOM_DU_PROFIL" et ainsi récuperer les favoris de FireFox :)
Afficher les 10 commentaires

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.