Récupérer le google pagerank des sites

Soyez le premier à donner votre avis sur cette source.

Vue 12 879 fois - Téléchargée 312 fois

Description

Avec ce bout de code, on peut savoir facilement le rang d'une page sur le net

Le code utilise le service du site http://www.prchecker.info/ pour extraire le rang de la page, donc la validité de l'application est en relation de l'existance de ce service.

Le mécanisme est simple,
Envoyer une requette, analyser la réponse (Recherche des entrées dans les balises HTML de la réponse)

Source / Exemple :


Imports System.Net
Imports System.Text.RegularExpressions

Public Class frmMain
    Private Sub btnGetGooglePageRank_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetGooglePageRank.Click
        lblPageRank.Text = String.Empty
        Dim myWebClient As New WebClient
        btnGetGooglePageRank.Enabled = False
        txtURL.Enabled = False
        AddHandler myWebClient.DownloadStringCompleted, AddressOf AsyncDownloadComplete
        'Contact le site prchecker pour savoir le google PageRank de l'URL (passée comme parametre).
        myWebClient.DownloadStringAsync(New Uri("http://www.prchecker.info/check_page_rank.php?action=docheck&do_it_now= Check PR&urlo=" & txtURL.Text))
    End Sub

    'Fonction appellée lors de la fin de téléchargement de la page de résultat.
    Private Sub AsyncDownloadComplete(ByVal sender As Object, ByVal e As DownloadStringCompletedEventArgs)
        btnGetGooglePageRank.Enabled = True
        txtURL.Enabled = True
        If e.Error Is Nothing Then
            'Recherche l'adresse de l'URL.
            lblPageRank.Text += Regex.Match(e.Result, "<font color=""#CE2102"">(.*?)</font>", RegexOptions.Compiled Or RegexOptions.Singleline).Groups(1).Value & vbCrLf
            'Recherche la valeur du PageRank
            lblPageRank.Text += Regex.Match(e.Result, "<font style=""font-size: 14;""><b>(.*?)</b></font>", RegexOptions.Compiled Or RegexOptions.Singleline).Groups(1).Value
        Else
            lblPageRank.Text += e.Error.Message
        End If
        txtURL.Text = "http://"
        txtURL.Focus()
    End Sub

    Private Sub txtURL_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtURL.Leave
        If txtURL.Text.Length <> 0 Then
            If Not txtURL.Text.StartsWith("http://") Then txtURL.Text = "http://" & txtURL.Text
        End If
    End Sub
End Class

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
319
Date d'inscription
jeudi 1 avril 2010
Statut
Membre
Dernière intervention
16 mars 2011
1
Ca ne marche pas.
Ya un focus permanent : dès qu'on entre une URL et qu'on valide, l'URL se transforme en http://.
Dommage, j'avais besoin de ce code...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.