begin process at 2010 02 09 17:23:04
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > GOOGLE SCRIPT : MOTEUR GOOGLE OPTIMISÉ

GOOGLE SCRIPT : MOTEUR GOOGLE OPTIMISÉ


 Information sur la source

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Niveau :Initié Date de création :24/12/2002 Date de mise à jour :24/12/2002 20:05:47 Vu :13 582

Auteur : Sverdlovsky

Ecrire un message privé
Site perso
Commentaire sur cette source (14)
Ajouter un commentaire et/ou une note

 Description

Ce code, utilisant le protocole HTTP, permet de créer une liste de toutes les URLs trouvées par Google après l'envoi de mots-clés.
J'ai trouvé aberrant de cliquer avec la souris sur les liens qui pointent
sur chacune des nombreuses pages trouvées par Google.

Ce code dresse une liste complète de toutes les URLs trouvées.
Cette liste est loguée dans le Bureau de Windows, dans un fichier du nom
de votre choix.

Source

  • ;;;;;;;;;;;;;;;;;;;
  • ;GOOGLE SCRIPT
  • ;;;;;;;;;;;;;;;;;;;
  • ;; Syntaxe : /google <mot-clé>
  • alias google {
  • if (%stop != YES) {
  • window -e @GOOGLE | titlebar @GOOGLE Recherche Moteur Google : mot-clé = $1 (page n° $+ $calc(%top / 10) $+ )
  • set %query $1
  • set %goon ON
  • if (%file == $null) set %file $?="Nom du fichier pour Google?"
  • set %string color=#008000>
  • sockopen google $+ $rand(0,500000) www.google.com 80
  • }
  • }
  • on *:sockopen:google*:{
  • if ($sockerr > 0) return
  • sockwrite -n $sockname GET /search?q= $+ %query $+ &hl=fr&lr=&ie=UTF-8&oe=UTF-8&start= $+ %top $+ &sa=N
  • inc %top 10
  • }
  • on *:sockclose:google*:{
  • google %query
  • }
  • alias stop {
  • set %stop YES
  • set %top 0
  • unset %file
  • }
  • alias reinit {
  • set %stop NO
  • set %top 0
  • unset %file
  • }
  • on *:sockread:google*:{
  • if ($sockerr > 0) return
  • :spam
  • sockread %spam
  • if ($sockbr == 0) return
  • if (%spam != $null) {
  • set %cnt 1
  • :scan
  • set %word $gettok(%spam,%cnt,32)
  • if ((%string isin %word) && (%stop != YES)) {
  • set %word $remove(%word,%string)
  • aline -ph 1 @GOOGLE %word
  • write c:\windows\bureau\ $+ %file $+ .lwp %word
  • }
  • inc %cnt 1
  • if (($gettok(%spam,%cnt,32) != $null) || ($gettok(%spam,%cnt,32) = True)) goto scan
  • }
  • goto spam
  • }
;;;;;;;;;;;;;;;;;;;
;GOOGLE SCRIPT
;;;;;;;;;;;;;;;;;;;
;; Syntaxe : /google <mot-clé>


alias google {
  if (%stop != YES) {
    window -e @GOOGLE | titlebar @GOOGLE Recherche Moteur Google : mot-clé = $1 (page n° $+ $calc(%top / 10) $+ )
    set %query $1
    set %goon ON
    if (%file == $null) set %file $?="Nom du fichier pour Google?"
    set %string color=#008000>
    sockopen google $+ $rand(0,500000) www.google.com 80
  }
}

on *:sockopen:google*:{
  if ($sockerr > 0) return
  sockwrite -n $sockname GET /search?q= $+ %query $+ &hl=fr&lr=&ie=UTF-8&oe=UTF-8&start= $+ %top $+ &sa=N
  inc %top 10
}

on *:sockclose:google*:{
  google %query
}

alias stop {
  set %stop YES
  set %top 0
  unset %file
}

alias reinit {
  set %stop NO
  set %top 0
  unset %file
}

on *:sockread:google*:{
  if ($sockerr > 0) return
  :spam
  sockread %spam
  if ($sockbr == 0) return
  if (%spam != $null) {
    set %cnt 1
    :scan
    set %word $gettok(%spam,%cnt,32)
    if ((%string isin %word) && (%stop != YES)) {

      set %word $remove(%word,%string)
            aline -ph 1 @GOOGLE %word
      write c:\windows\bureau\ $+ %file $+ .lwp %word
      
    }

    inc %cnt 1
    if (($gettok(%spam,%cnt,32) != $null) || ($gettok(%spam,%cnt,32) = True)) goto scan
  }
  goto spam
}

 Conclusion

Pour lancer le code : /google &lt;mots-clés&gt;
Pour arrêter : /stop
Pour réinitialiser avant de recommencer (à faire
après /stop) : /reinit

Les mots-clés peuvent être un mot isolé,
ou bien une combinaison de mots séparés par le signe +
ou bien des expressions exactes séparées par des guillemets.

Exemple : /google "top+secret"+filetype:doc+site:.mil
Exemple: /google "britney+spears"+nue


 Sources du même auteur

HTML INTERVIEW RECORDER : CONVERSION ONLINE DE LOG EN HTML
PROTECTION ANTI-CTCP POUR UTILISATEURS DÉBUTANTS
AFNIC : WHOIS DE NOMS DE DOMAINES
SERVOX : SCANNEUR ET IDENTIFICATEUR DE SERVEURS HTTP
ANNUAIRE TÉLÉPHONIQUE AOL : CONSULTATION MULTIDÉPARTEMENTALE

 Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501
BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

Commentaires et avis

Commentaire de Womby le 25/12/2002 10:40:15

super ca comme script je m'empresse de le tester :) merci à toi
mais a la place de google.com on peu pas prendre google.fr ? ca permettra peut etre d'avoir des reponses plus ciblé francais ...fin peut etre le systeme de lien est differents.

Commentaire de Womby le 25/12/2002 10:46:27

Y a quand meme un petit ennuye c'est qu'il me fait le truc en boucle :) il s'arrete plus :) c'est legerement...derangeant ;-)

7 parce que c'est bien mais que bon y a ce etit inconvenient :)

Commentaire de Sverdlovsky le 26/12/2002 23:05:58

J'ai indiqué ci-dessus que, pour stopper le code, au moment où la boucle apparaît : il faut taper /stop.Puis refaire /reinit avant
de commencer une nouvelle recherche.

Quand à google.fr, c'est kifkif pareil :
www.google.fr = fr.google.com

De plus, dans google.com, on obtient des résultats francophones
lorsque les mots-clés de recherche sont français.

Scriptement vôtre.

Commentaire de Yves le 28/12/2002 16:01:29

j'ai un petit peu retouché ton script pour éviter de devoir taper stop et reinit:
1 au lieu de taper /google blah, on tape /gg blah

alias gg {
  unset %word
  unset %g.word
  unset %g.worda
  unset %g.ct
  stop
  reinit
  google $$1
}

ensuite, l'alias google devient ceci:

alias google {
  if (%stop != YES) {
    window -e @GOOGLE | titlebar @GOOGLE Recherche Moteur Google : mot-clé = $1 (page n° $+ $calc(%top / 10) $+ )
    set %query $1
    set %goon ON
    ; if (%file == $null) set %file $?="Nom du fichier pour Google?"
    set %string color=#008000&gt;
    if (%word == %g.word && %word != $null ) {
      if (%word == %g.worda) {
        inc %g.ct 1
      }
      set %g.worda %g.word
    }
    set %g.word %word
    if (%g.ct &gt; 1) {
      echo 4 @google stoped automatically
      stop
    }
    sockopen google $+ $rand(0,500000) www.google.com 80
  }
}

Voila voila.... comme ça, je tape gg machin et j'ai plus rien à faire :)

Commentaire de stevnet le 14/01/2003 14:41:30

c'est cool.
Y aurai moyen de le faire pour un bot ??
(j'mi connais pas vraiment )

Commentaire de Sverdlovsky le 14/01/2003 15:36:10

Excellente initiative de retoucher le code pour éviter de taper des kilomètres de commandes.

En effet, simplicité = efficacité.

Quand à l'intégration du code dans un bot, pourquoi pas.
Il suffit de mettre ce code dans un remote du bot,
puis d'y ajouter les commandes suivantes :

on *:text:!google*:#:{
if ($2 != $null) {
set %salon $chan
.google $2
}
}

Ensuite on ajoute une ligne sous l'instruction
aline -ph 1 @GOOGLE %word   :

msg %salon %word

Et voila, on a un bot qui marche quand on tape sur le salon :
!google blahblah

Commentaire de bbjulien le 26/11/2003 19:49:32

moi je voudrai faire sa pour mon bot vous pouvez me dire koi metre exactement ?svp ou m envoyer le code a julien_as_raclaz@hotmail.com
merci d acence

Commentaire de Leonardo_ le 02/04/2004 22:14:22

honnetement ton script il est bien , cependant ca perd tout son charme dafficher le contenu ds un ficher txt , sans parler du /stop et /reinit , quelque retouche a faire moi dit dit .... sinon bvo l'idee est bonne

Commentaire de GFACTION le 09/04/2004 19:50:57

sockopen google $+ $rand(0,500000) www.google.com 80

Oulah, tu as quand même une chance sur 5000000 de faire bugger la recherche.
Je sais, c'est minime, mais ça peut quand même arriver. Ce n'est donc pas un script parfait, un script sans faille.
Je te conseille plutot un truc dans le genre :

inc %numberofsearches
sockopen google $+ %numberofsearches www.google.fr 80

C'est quand même plus simple, court et surtout plus sécurisé.

Commentaire de abhoryo le 23/07/2004 03:17:36

yo,
Bon j'ai essayé de faire un google search, et a ce que je vois il est plus simple que celui ci, enfin le mien c pour un bot qui donne accés aux liens trouvé bref la n'est pas la remarque...

En fait je suis venu ici car le mien marche pas. Celui ci aussi ne marche PLUS car soit il n'arrive pas a lire pourtant il arrive bien a le fermer ^^. donc voila u peu d'aide serait fort utile ^^
merci ++

Commentaire de abhoryo le 23/07/2004 03:17:45

yo,
Bon j'ai essayé de faire un google search, et a ce que je vois il est plus simple que celui ci, enfin le mien c pour un bot qui donne accés aux liens trouvé bref la n'est pas la remarque...

En fait je suis venu ici car le mien marche pas. Celui ci aussi ne marche PLUS car soit il n'arrive pas a lire pourtant il arrive bien a le fermer ^^. donc voila u peu d'aide serait fort utile ^^
merci ++

Commentaire de abhoryo le 23/07/2004 03:17:52

yo,
Bon j'ai essayé de faire un google search, et a ce que je vois il est plus simple que celui ci, enfin le mien c pour un bot qui donne accés aux liens trouvé bref la n'est pas la remarque...

En fait je suis venu ici car le mien marche pas. Celui ci aussi ne marche PLUS car soit il n'arrive pas a lire pourtant il arrive bien a le fermer ^^. donc voila u peu d'aide serait fort utile ^^
merci ++

Commentaire de abhoryo le 23/07/2004 03:17:54

yo,
Bon j'ai essayé de faire un google search, et a ce que je vois il est plus simple que celui ci, enfin le mien c pour un bot qui donne accés aux liens trouvé bref la n'est pas la remarque...

En fait je suis venu ici car le mien marche pas. Celui ci aussi ne marche PLUS car soit il n'arrive pas a lire pourtant il arrive bien a le fermer ^^. donc voila u peu d'aide serait fort utile ^^
merci ++

Commentaire de Sverdlovsky le 30/11/2009 12:45:19

Bonjour. Toutes mes sources sont libres de droits. Libres aussi d'être adaptées en d'autres langages comme python qui, lui, peut développer des applications qui offrent plus de possibilités.
La particularité des sources qui traitent sur des connections de client sur un serveur sont susceptibles de devenir obsolètes parce que le code html délivré par un serveur web peut changer au cours du temps. L'astuce pour rendre le code à nouveau fonctionnel est de relire le code html du site web et de réécrire des modifications dans le code source.
Les scripts irc, associés au client mIRC, sont fonctionnels sur Windows. Ce serait oublier injustement les utilisateurs de linux.
Python est un langage multiplateforme qui n'oublie pas les programmeurs, quelquesoit leur système d'exploitation. Cependant je reconnais que le scripting irc est un excellent moyen pour débuter en programmation.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,702 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales