Google script : moteur google optimisé

Commenter

Contenu du snippet

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 / Exemple : 


;;;;;;;;;;;;;;;;;;;
;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 <mots-clés>
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

A voir également

S'inscrire maintenant

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.

Du même auteur (Sverdlovsky)