• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

the one

IP em VB 2008

6 mensagens neste tópico

Alguém me pode ajudar em como conseguir o IP , não da minha LAN , mas sim que o ISP me fornece ?

Obrigado  :confused:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Alguém me pode ajudar em como conseguir o IP , não da minha LAN , mas sim que o ISP me fornece ?

Obrigado  :confused:

com o winsock,que podes adicionar ir ao Chose Item depois COM compuntens,depois procuras pela Windows Winsock 6.0 uma coisa assim...

e depois se me recordo é

textbox1.text=winsock1.iphost ou uma cena assim

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nem precisas do Winsock.

A framework tem bibliotecas para isso.

Mas nem se aplica aqui pois o que se pretende é apanhar o IP do ISP mesmo estando por detrás de um router.

Penso que a única maneira de fazer isso seja aceder directamente ao router de alguma forma, mas infelizmente não te posso ajudar nessa área. Não faço ideia nem de protocolos nem o que procurar no "SO" do router.

Já usaste o amigo Google ?

EDIT: Encontrei uma solução sapateira. Exprimenta.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

@Tim§id€ , eu esse metodo já usei , e funciona perfeitamente . tenho feito da seguinte maneira :

        ip = AxWinsock1.LocalIP
        MsgBox(ip)

@ribeiro55 , sim, já andei a pesquisar e tudo o que encontrei foi em como obter o IP dentro da rede , nunca o dado pelo ISP .

Vou visualizar o teu link e fazer uns testes e depois coloco aqui a resposta .

Obrigado :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Defini o seguinte

Dim WC As New System.Net.WebClient

dentro do codigo de um botão no form coloquei o codigo :

txt_ip.Text = System.Text.Encoding.ASCII.GetString((WC.DownloadData("http://whatismyip.com/automation/n09230945.asp")))
        WC.Dispose()

E não funciona . ´da erro na linha :

txt_ip.Text = System.Text.Encoding.ASCII.GetString((WC.DownloadData("http://whatismyip.com/automation/n09230945.asp")))

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Acho que já consegui , mas esta a ser bloqueado por alguma coisa aqui na empresa :s

Publiqei isto :

    Dim req As HttpWebRequest = WebRequest.Create("http://whatismyip.com/automation/n09230945.asp")
    Dim res As HttpWebResponse = req.GetResponse()
    Dim Stream As Stream = res.GetResponseStream()
    Dim sr As StreamReader = New StreamReader(Stream)

e no botão so coloquei isto :

 MessageBox.Show(sr.ReadToEnd())

Como já disse , quando testo dá-me um erro , mas penso que seja por causa da Firewall , proxy ou algo do genero que me esta a bloquear a ligação .

Mais uma vez muito obrigado pela orientação x)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora