Programmer résultats Recherche Google

**zouzoukha** · 25/06/2012, 15h23

Bonjour à tous!

Je souhaiterai récupérer les liens du résultat d'une recherche google!

Pour cela j'utilise l'exemple en ligne de PCSoft :

Ci-dessous le code utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
sURL est une chaîne// Url que l'on veut interroger
sParametres est une chaîne// Paramètres à passer (en "get" ici)
sResultat est une chaîne// Résultat de la requête
sValeurDeRecherche est une chaîne// Valeur à faire rechercher par le moteur
 
sNomAgent est une chaîne = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"
sValeurDeRecherche = SAI_Search_words
 
SELON COMBO_andor
 
	CAS 1	// and
		// On remplace les espaces par +
		sValeurDeRecherche = Remplace(sValeurDeRecherche," ","+")
	CAS 2	// or
		// OU on remplace les espaces par %20
		sValeurDeRecherche = Remplace(sValeurDeRecherche," ","%20")
	AUTRE CAS
 
FIN
 
SELON COMBO_search_engine
 
	CAS 1		// google
		 sURL = "http://www.google.com/search"
		 sParametres=ChaîneConstruit("q=%1&start=0",sValeurDeRecherche)		
 
	CAS 2		// bing
                 // pas encore maitrisé :)		
 
	CAS 3		// yahoo
		 sURL = "http://fr.search.yahoo.com/search/fr"
		 sParametres=ChaîneConstruit("p=%1&n=10",sValeurDeRecherche)+RC
 
	AUTRE CAS
 
FIN
 
Sablier
// Récupération de la page résultat suite à une requête HTTP
// avec les paramètres en ligne de commande
SI HTTPRequête(sURL+"?"+sParametres,sNomAgent)=Faux ALORS
	Erreur(ErreurInfo())
SINON
	// Pour voir le résultat dans un champ HTML
	sResultat = HTTPDonneRésultat(httpRésultat)
	SAI_Result_grabber = sResultat
	CHPHTML = sResultat
	// Ici on n'affecte pas l'URL au champ HTML, mais uniquement le code HTML
FIN
Sablier(Faux)