PEGAR IP REAL

PROFESSORES 08/02/2013 20:59:13
#419049
Olá Pessoal

Gostaria de saber como pego o Ip real de uma conexao. Uso site meuip.com.br só que pego manual
Keria q o vb.net fizesse isso

Grato
ONBASS 09/02/2013 10:19:29
#419060
Veja se ajuda Pegar ip
KURTGU 09/02/2013 10:44:10
#419061
Veja se te ajuda..aqui funcionou...
FROSTYNHO 12/02/2013 12:31:00
#419159 
Public Function GetIP() As String

        Dim uri_val As New Uri([Ô]http://krazybeat.comyr.com/meuip.php[Ô])
        Dim request As HttpWebRequest = HttpWebRequest.Create(uri_val)

        request.Method = WebRequestMethods.Http.Get

        Dim response As HttpWebResponse = request.GetResponse()
        Dim reader As New StreamReader(response.GetResponseStream())
        Dim myIP As String = reader.ReadLine()

        response.Close()

        Return myIP

    End Function


aí vc chama a função:

MsgBox(GetIP())
PROFESSORES 26/04/2013 14:07:48
#422569
FROSTYNHO

Muito Obrigado. Era isso que precisava!.

Como que eu faço para pegar desse site?

Porque ele também me da o Ip real da minha conexao

http://meuip.datahouse.com.br/

Grato
Faça seu login para responder
Voltar