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
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.