Ai galera , to trazendo uma source de um programa simples,
Quaze inutil, mas pra quem esta aprendendo como eu,
e muito util
1: Inicie um novo progeto
2: Add 2 Textbox , renomeie o 1 para TextSite e o segundo para TextIp.
3: Add 1 Buton
4:click 2 veses sobre o Butom e add o seguinte codigo
Pronto 1 linha vc coloca o site, clica
ele retorna com o IP do site !
Vlw
Quaze inutil, mas pra quem esta aprendendo como eu,
e muito util
1: Inicie um novo progeto
2: Add 2 Textbox , renomeie o 1 para TextSite e o segundo para TextIp.
3: Add 1 Buton
4:click 2 veses sobre o Butom e add o seguinte codigo
Código:
Try If TextSite.Text.Contains("http://") Then Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text.Replace("http://", String.Empty)) TextIp.Text = iphe.AddressList(0).ToString() Else Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text) TextIp.Text = iphe.AddressList(0).ToString() End If Catch ex As Exception MsgBox(ex) End Try
Pronto 1 linha vc coloca o site, clica
ele retorna com o IP do site !
Vlw
Comment