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
