Salut tous,
Je voulais savoir si je peux lancer une recherche sur un moteur de recherche (google par exemple) en simplement entrer les mots clés et recuperer les resultats
(par exemple le nombre de pages trouvées).
Merci d'avance pour votre aide.

Bonsoir,

Bon, on va faire l'annalyse enssemble.
Une recherche Google, ok, on rechreche "toto" sur google avec ton navigateur.
L'url qu'on obtient après lancemment de la recherche est celle-ci : http://www.google.com/search?hl=en&q=toto
On sait donc comment lancer la recherche avec les mot clées que l'on veut.

On utilise un WebClient pour récupéré le code de la page

	Dim KeyWord As String = "toto" Dim WebC As New System.Net.WebClient() Dim StreemR As New System.IO.StreamReader(WebC.OpenRead(String.Format("http://www.google.com/search?hl=en&q={0}", KeyWord))) Dim PageStr As String = StreemR.ReadToEnd() StreemR.Dispose() WebC.Dispose()
(Coloration syntaxique automatique par Kenji)

PageStr contient le code de la page contenant les résultats. Il faut annalyser tout ca.
Cherche à obtenir le nombre de résultats.
En annalysant le code de la page fournis par ton navigateur lors de la recherche de teste, on isoloe ceci qui contient ce qu'on cherche. "<font size=-1>Results <b>1</b> - <b>30</b> of about <b>56,200,000</b> for <b>Toto</b>"
Donc, pour le ocde, rien de mieux qu'une expression réguliére pour extraire les divers infos.
A partis du code isolé ci-dessus, on construit la regex :

	Dim SearchResult As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(PageStr, "<font size=-1>Results <b>(.*)</b> - <b>(.*)</b> of about <b>(.*)</b> for <b>") Dim NbResult As String = SearchResult.Groups(3).Value
(Coloration syntaxique automatique par Kenji)

Et voilà, NbResult contient le nombre de résultat.
A toi de fire de même (par forcement en utilisant les regex, pour extraire les divers réultats.

__________
Kenji

Bonjour à tous,
Il est bien ce code là charles Racaud...Fort utile..Avec cela je me fait pleins de petits fichiers text pour une utilasation ultérieure. 
A+
Exploreur

Salut,

Google propose des web services à ce niveau.

Autrement dit, pas besoin de passer par le navigateur, tout ce ferat en soft.

Cf ce lien.

Merci d'éviter les MPs, j'en recois déjà trop par jours, je vais finir par ne plus y répondre du tout.

Si rien ne s'affiche, c'est peut être que tu as oublié quelque chose. Montre le code que tu as fait.

Pour naviguer dans les réultats, on annalyse à nouveau l'url quand on fait page suivante sur Google
http://www.google.com/search?q=toto&num=30&hl=en&lr=&start=30&sa=N
Il faut chnger la valeur du start.

Par contre, si c'est pour analyser le référencement de ton site, je te conseillerait plutot d'utiliser ce qu'a dit rt15. Je ne connais pas mais c'est surment plus pratique.

__________
Kenji

Salut,
Je suis vraiement désolé de mon MP,Pardon,mais c'est parce que j'ai eu peur que vous ne voyez pas mon message qui devrait etre dépassé.
Pour le code qui ne marche pas c'est:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim keyword As String = TextBox1.Text
        Dim webc As New System.Net.WebClient
        Dim streemr As New System.IO.StreamReader(webc.OpenRead(String.Format("http://www.google.com/search?h1=en&q={0}", keyword)))
        Dim pagestr As String = streemr.readtoend()
        streemr.Dispose()
        webc.Dispose()

        Dim searchresult As System.Text.RegularExpressions.Match = System.Text.RegularExpressions.Regex.Match(pagestr, "<font size=-1>Results <b>1</b> - <b>(.*)</b> for <b>")
        Dim nbresult As String = searchresult.Groups(3).Value
        TextBox2.Text = nbresult
    End Sub
J'éspère que vous trouvez le pb.
Pour la proposition de rt15 elle ne marche qu'avec google et si je veux faire l'analyse par un autre moteur de recherche,je pense que ce service n'existe pas.

Pourquoi avoir changer l'explreesion réguliere ?
Déjà, vu comme tu as modifer, ca ne marchera que pour la premiere page.
Results 1 - 30 of about 55,700,000 for
Tu as mis la recherche pour le nombre de résultat afficher sur la page.

__________
Kenji

Salut Charles Racaud,
Désolé de vous dérangé une autre fois,mais j'ai un pb avec les requetes de google.
Si vous avez remarqué la forme des requetes google a changé et ceci a généré une web exception lors de l'exécution de l'application.
J'ai essayé de trouvé une solution mais pas de résultat.
Voila la nouvelle ligne qui contient la requete :
Dim StreemR As New System.IO.StreamReader(WebC.OpenRead(String.Format("http://www.google.com/search?hl=en&q={0}&btnG=Search")))
J'éspère que vous aidez une autre fois  parce que  sens que suis  en  train  de reculer  au lieu  d'avancer.
Merci d'avance.

Il faut aussi passer l'argument pour la valeur 0

Dim StreemR As New System.IO.StreamReader(WebC.OpenRead(String.Format("http://www.google.com/search?hl=en&q={0}&btnG=Search", KeyWord)))

__________
Kenji