• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ridelight

GRank v.0.1

7 mensagens neste tópico

Titulo do Projecto: GRank

Última Versão: v.0.1

Líder do Projecto: Ridelight

Descrição do Projecto:

Pequena aplicação para pesquisar o ranking das páginas no google.

Imports System.Net
Imports System.Text.RegularExpressions

Public Class frmMain
    Private Sub btnVerificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerificar.Click
        lblPageRank.Text = String.Empty
        Dim myWebClient As New WebClient
        btnVerificar.Enabled = False
        txtURL.Enabled = False
        AddHandler myWebClient.DownloadStringCompleted, AddressOf AsyncDownloadComplete
        myWebClient.DownloadStringAsync(New Uri("http://www.prchecker.info/check_page_rank.php?action=docheck&do_it_now= Check PR&urlo=" & txtURL.Text))
    End Sub


    Private Sub AsyncDownloadComplete(ByVal sender As Object, ByVal e As DownloadStringCompletedEventArgs)
        btnVerificar.Enabled = True
        txtURL.Enabled = True
        If e.Error Is Nothing Then

            lblPageRank.Text += Regex.Match(e.Result, "<font color=""#CE2102"">(.*?)</font>", RegexOptions.Compiled Or RegexOptions.Singleline).Groups(1).Value & vbCrLf

            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

[anexo apagado pelo Administrador]

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Simples, mas útil :P

Faz só uma pequena adição para ser mais rápido de usar, faz com que ao pressionar Enter/Return ele pesquise automaticamente (igual ao evento do botão).

Cumps ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Há necessidade de esta pequena aplicação ser Closed Source?

É que eu gostava de saber como se vê qual é o ranking de uma determinada página... nada que uma pesquisa não resolva...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Há necessidade de esta pequena aplicação ser Closed Source?

É que eu gostava de saber como se vê qual é o ranking de uma determinada página... nada que uma pesquisa não resolva...

Código aberto, no próprio códio encontras a página para vêr o ranking.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora