VB .NET - Consumindo Web Services - GeoIPService

 Neste artigo vou mostrar como consumir um web service para obter o código e nome do país a partir do IP.

Este é um tutorial bem simples que mostra como é fácil consumir  um web service em um programa VB .NET para obter informações de serviços disponibilizados na web.

Existe muitos serviços disponbilizados na web via web services. Neste artigo eu vou usar o serviço GeoIPService disponibilizado a partir deste site: www.webservicex.net/

Acessando o site você verá diversos serviços disponíveis :

Acessando o diretório Utilities temos o serviço GeoIPService que permite obter informações do pais a partir do IP.

Este serviço esta disponível com seguinte endereço: http://www.webservicex.net/geoipservice.asmx

Vamos então criar uma aplicação Windows Forms usando a linguagem VB .NET para consumir esse web service.

Recursos Usados:

Criando o projeto Windows Forms no VS Community 2017

Abra o VS 2017 Community e crie um projeto usando a opção : Visual Basic -> Windows Classic Desktop e selecione o template Windows Forms App (.NET Framework);

Informe o nome WF_GeoIP e clique em OK.

No formulário Form1.vb inclua a partir da ToolBox os controles :

Disponha os controles conforme o leiaute da figura abaixo:

A seguir vamos incluir a referência ao serviço web em nosso projeto. Lembrando que vamos usar o serviço que esta descrito neste endereço: http://www.webservicex.net/WS/WSDetails.aspx?WSID=64

Clique com o botão direito do mouse sobre o nome do projeto e a seguir clique em Add Service Reference;

Na janela Add Service Reference clique no botão Advanced;

A seguir na próxima janela, em URL, informe o endereço do serviço:  http://www.webservicex.net/geoipservice.asmx

Após o serviço ser encontrado e identificado clique no botão Add Reference;

Você deverá ver na janela Solution Explorer uma pasta Web References com um nome do serviço.

Eu alterei o nome da referência do serviço no projeto para : GeoIPServiceWeb

Pronto ! já podemos usar o serviço no projeto.

A seguir no evento Click do botão Obter informações do IP inclua o código abaixo :

 Private Sub btnObterPais_Click(sender As Object, e As EventArgs) Handles btnInformacoesIP.Click
        Dim service As New GeoIPServiceWeb.GeoIPService
        Dim resultado As GeoIPServiceWeb.GeoIP = service.GetGeoIP(txtEnderecoIP.Text)
        lbResultado.Items.Clear()
        lbResultado.Items.Add(resultado.CountryName)
        lbResultado.Items.Add(resultado.CountryCode)
        lbResultado.Items.Add(resultado.IP)
    End Sub

Neste código apenas criamos uma instância do serviço e usamos o método service,.GetGeoIP() passando o IP informado pelo usuário.

Executando o projeto e informando um IP válido ao clicar no botão Obter informações do IP iremos obter:

Você pode consumir qualquer outro serviço disponbilizando apenas alterando o endereço para obter a sua referência e usar os métodos disponíbilizados.

Pegue o projeto completo aqui : WF_GeoIP.zip

Portanto, quer comais quer bebais, ou façais outra qualquer coisa, fazei tudo para glória de Deus.
 1 Coríntios 10:31

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no Visual Studio ?

Quer aprender a criar aplicações Web Dinâmicas usando a ASP .NET ?

 

Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:

José Carlos Macoratti