Encurtar URL

[Private Sub Teste 353]

Neste tutorial, iremos aprender como encurtar uma URL usando o VB.NET + API Migre.me.

O site Migre.me foi desenvolvido por Jonny Ken, é um dos 'encurtadores' mais utilizados por jornais, revistas e sites para facilitar a troca de informação entre eles e o usuário. Além disso, é muito usado também por agências para monitorar quantidades de cliques, retweets e visualizações de alguns tipos de arquivos.

API: http://migre.me/api-migreme/

Crie uma nova aplicação e faça o seguinte visual:

Após isso, de dois cliques no botão Encurtar URL e adicione o seguinte código:

'define a variavel URL como sendo o texto

'do textbox1

Dim url = TextBox1.Text

'verifica se a URL definida acima começa

'com "

http://",'>http://", se não começar ele adicionara

'ao começo o "

http://"

If url.StartsWith("

http://") = False Then

url = "

http://" + url

End If

'define DS como sendo um novo DataSet

Dim ds As New DataSet

'define a apiMigreMe como sendo string

'e ao mesmo tempo, coloca ndo a url para

'encurtamento via API

Dim apiMigreMe As String = "

http://migre.me/api.xml?url=" + url

Application.DoEvents()

'faz com que o ds definito anteriormente como

'novo DataSet leia o XML do arquivo apiMigreMe

ds.ReadXml(apiMigreMe)

'pega a tag setada como "migre" que é a que contém

'a nossa URL encurtada

TextBox2.Text = ds.Tables(0).Rows(0)("migre").ToString()

[jmaracaipe 4]

Sussa , ja vo passa pra android ,

[Private Sub Teste 353]

Função para copiar para o Clipboard que você pediu: Clipboard.SetText(TextBox2.Text)