Visual Basic: Encurtando URL com API Migre.me

Está se tornando cada vez mais comum a utilização de encurtadores de URL para compartilhar um link, memorizá-lo de forma mais fácil e até mesmo para fazer pegadinhas.

Há muitos encurtadores de URL, neste post vou mostrar como utilizar a API[bb] do Migre.me, encurtador de URL brasileiro, em um projeto em Visual Basic .NET.

O que é uma API?

API, de Application Programming Interface (ou Interface de Programação de Aplicativos) é um conjunto de rotinas e padrões estabelecidos por um software para a utilização das suas funcionalidades por aplicativos que não pretendem envolver-se em detalhes da implementação do software, mas apenas usar seus serviços. Fonte: Wikipédia

Primeiro criaremos um formulário com duas Labels, dois Textbox e um Button, como na imagem abaixo.

Clique para Ampliar

Os nomes dos Objetos são:

Textbox onde será digitada a URL: txtURL;

Textbox onde será exibido o resultado (URL[bb] encurtada): txtURLEncurtada;

Botão: btnEncurtar;

Vamos ao código.

É necessário importar duas classes, são elas:

Imports System.IO
Imports System.Net

Clicando no botão duas vezes você terá acesso a procedure que corresponde ao evento Click deste.

O código par que a API retorne a URL encurtada é:

    Private Sub btnEncurtar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncurtar.Click
        Dim url As String = "http://migre.me/api.txt?url=" & txtURL.Text

        Dim cliente As New WebClient
        Dim strS As Stream
        strS = cliente.OpenRead(url)

        Dim strR As New StreamReader(strS)

        txtURLEncurtada.Text = strR.ReadToEnd

        strR.Close()
        strS.Close()
    End Sub

Explicarei a seguir cada linha para ficar claro.

Linha 2: Declaração da variável que receberá a URL que deverá ser encurtada. Em seguida, na mesma linha, montamos a URL da API para que está retorne o resultado que queremos.

Entendendo o URL da API: quando solicitamos http:// migre.me/api.txt?url=NossaURLGrande, nos é retornado um arquivo de texto simples (.txt) com a URL já encurtada. Onde NossaURLGrande será a URL digitada.

Linha 4: declaração da variável que será responsável por fazer a solicitação à API.

Linha 5: declaração da variável que receberá o retorno (o arquivo .txt) enviado pela API.

Linha 6: a variável cliente faz a solicitação, por meio da função OpenRead, e armazena o retorno na variável strS.

Linha 8: declaração da variável que lerá a variável strS.

Linha 10: por meio da função ReadToEnd, o conteúdo do retorno da API é armazenado no txtURLEncurtada.

Linha 12 e 13: fecham variáveis que utilizamos para ler o arquivo. Uma forma de indicar que já terminamos de ler, quando trabalhando com arquivos locais a não utilização do método Close, pode impedir que o arquivo[bb] seja aberto por outro programa.

Clique para Ampliar

Lembrete: a API do migre.me limita a quantidade de URL encurtadas em uma hora.

Com isso temos nosso encurtador de URL.

Até uma próxima!