Hein, quoi, comment ????? Tu m'aurais déja envoyé des infos sur une API qui....
Comment j'ai pu manqué ça ? Tu pourrais me redonner son nom s'il te plaît ? Sapristi ! Aurais-je donc fait tout ça pour rien ? Yannick Daniel Youalé La programmation est une religion. Aimez-la, ou quittez-la. Mon site: www.visuweb.net ----- Original Message ----- From: yannick To: [email protected] Sent: Thursday, June 04, 2015 6:17 PM Subject: [progliste] Re: Recherches google par API salut Yannick, je t'avais déja donné une api pour lancer des requêtes sur google, mais peut être que le nombre restreint de résultat (10) n'est pas suffisant, mais bon je te le rappelle au cas ou ... Le 04/06/2015 18:39, Yannick Youalé a écrit : Salut les mecs ! C'est tout plein de sueur que je me présente devant vous pour vous faire part de mon astuce. Bien entendu, comme d'habitude, quelque chose de totalement non conventionnel et de tordu. Vous vous rappelez mes messages demandant comment lancer une recherche sur google et de pouvoir récupérer les résultats par programme tier ? Chose qui se soldait par un échec même quand je semblait avoir envoyé tous les arguments post nécessaire à la requête. Hé bien, j'ai fini par trouver un moyen de contourner le problème. Il s'agit de l'utilisation détournée de internet explorer, en y faisant appel de façon masquer, en lançant une recherche, en attendant qu'elle se termine, et en récupérant le texte html résultat. Et ça fonctionne ! Je pourrais donc me faire un flux de recherche google après avoir mis tout ça au propre. Ci-dessous, le code vbScript qui m'a servi à faire les tests. Il devrait pouvoir fonctionner sur tous les windows. Début du code vbScript ' Script d'effectuation de recherche google par internet explorer ' on error resume next ' création d'un objet internet explorer set o = CreateObject("InternetExplorer.Application") if o is nothing then msgbox "L'objet internet explorer n'a pas pu être créé" WScript.Quit end if ' on le rend invisible o.Visible = false ' navigation à la page voulue sURL = "https://www.google.com/search?q=barakat&ie=utf-8&oe=utf-8"; ' ouverture o.Navigate sURL ' Attente jusqu'à ce que le traitement soit terminé wScript.Sleep 100 while(o.Busy = true) wScript.Sleep 100 Wend ' récupération du texte de la balise body dans le navigateur ' une bidouille qui m'a pris du temps. s = o.Document.getElementsByTagName("body")(0).innerHTML ' affichage dans une messageBox msgbox s ' fermeture o.Quit ' libération set o = nothing Fin du code vbScript A plus ! Yannick Daniel Youalé La programmation est une religion. Aimez-la, ou quittez-la. Mon site: www.visuweb.net
