CALCULER LA POPULARITÉ DE VOTRE SITE
tresorsdevie
Messages postés
135
Date d'inscription
lundi 17 juin 2002
Statut
Membre
Dernière intervention
20 juillet 2013
-
10 août 2003 à 17:08
cs_nicolas22 Messages postés 5 Date d'inscription mercredi 9 mars 2005 Statut Membre Dernière intervention 16 mars 2005 - 16 mars 2005 à 09:30
cs_nicolas22 Messages postés 5 Date d'inscription mercredi 9 mars 2005 Statut Membre Dernière intervention 16 mars 2005 - 16 mars 2005 à 09:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7897-calculer-la-popularite-de-votre-site
https://codes-sources.commentcamarche.net/source/7897-calculer-la-popularite-de-votre-site
16 mars 2005 à 09:30
28 août 2003 à 15:51
tres bon exemple, que j'ai suivit et traduit en vb.net dans ma quête du savoir.
@+
28 août 2003 à 12:05
http://www.c2i.fr/code.aspx?IDCode=376
Richard Clark
10 août 2003 à 17:08
dans un form, ajouter
- un textbox nommé Tsite
- un label nommé Lreponse
- un bouton nommé btCalcul
dans le code , ajouté les reference de classe ci dessous
'Pour les StreamReader
Imports System.IO.StreamReader
' pour les httpWebRequest
Imports System.Net
et dans le bouton btCalcul , le code ci dessous
Private Sub btCalcul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCalcul.Click
Dim sURL As String
Dim chemin As String
chemin = TSite.Text
sURL = "http://www.google.fr/search?q=link%3A" + chemin + "&hl=fr&btnG=Recherche+Google&meta="
'Envoie de la demande
Dim MaDemande As HttpWebRequest = CType(WebRequest.Create(sURL), HttpWebRequest)
'obtention de la réponse
Dim MaReponse As HttpWebResponse = CType(MaDemande.GetResponse(), HttpWebResponse)
'lecture de la réponse
Dim MonStream As IO.StreamReader = New IO.StreamReader(MaReponse.GetResponseStream(), System.Text.Encoding.ASCII)
Dim StreamRep As String = MonStream.ReadToEnd()
MonStream.Close()
Dim Chaine As String = "sur un total d'environ "
'Recherche du debut de la chaine
Dim PosDeb As Integer = StreamRep.IndexOf(Chaine, 0)
'Recherche de la fin de la chaine
Dim PosFin As Integer = StreamRep.IndexOf(".", PosDeb)
'extraction de la statistique
Dim sResult As String = StreamRep.Substring(PosDeb + Chaine.Length + 3, PosFin - PosDeb - Chaine.Length - 7)
lReponse.Text = "Popularité sur Google.fr : " + sResult + " sites vous ont référencés."