Idirizzo ip

domenica 18 novembre 2007 - 19.20

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

clan Profilo | Junior Member

161 messaggi | Data Invio: dom 18 nov 2007 - 19:20

Salve
vorrei trovare il sistema per conoscere l'ip pubblico su una macchina connessa a internet per mezzo di un router
qual'è il sistema da usare con vb 2005

alextyx Profilo | Expert

668 messaggi | Data Invio: lun 19 nov 2007 - 06:46

La soluzione più gettonata è usare un sito apposito.
Se invii una richiesta a questo indirizzo, ti viene restituito il tuo IP pubblico:
http://www.whatismyip.com/automation/n09230945.asp

Prova a digitarla nella barra degli indirizzi di explorer e vedrai.

Se ti serve anche il codice, dovrei averlo da qualche parte. Eventualmente provo a cercarlo.

clan Profilo | Junior Member

161 messaggi | Data Invio: lun 19 nov 2007 - 08:42

se ti è possibile darmi un esempio di codice te ne sarei grato perchè non riessco a capire come fare per prendere l'output della pagina web
grazie

alextyx Profilo | Expert

668 messaggi | Data Invio: lun 19 nov 2007 - 09:21

Trovato!
In strData ti trovi l'indirizzo IP pubblico, se tutto funziona, ovvio!

Dim objRequest As Net.WebRequest
Dim objResponse As Net.WebResponse = Nothing
Dim objStreamReceive As System.IO.Stream
Dim objEncoding As System.Text.Encoding
Dim objStreamRead As System.IO.StreamReader
Dim strData As String = ""

Try
objRequest = Net.WebRequest.Create("http://www.whatismyip.com/automation/n09230945.asp")
objRequest.Timeout = 10000 ' TimeoutSeconds * 1000
' Retrieve data from request
'Try
objResponse = objRequest.GetResponse
objStreamReceive = objResponse.GetResponseStream
objEncoding = System.Text.ASCIIEncoding.ASCII
objStreamRead = New System.IO.StreamReader(objStreamReceive, objEncoding)
' Set function return value
strData = objStreamRead.ReadToEnd()
objStreamRead.Close()
Catch ex As Exception
........... prendi i provvedimenti che ritieni più opportuni......

Non chiamare il sito più di una volta ogni 5 minuti. Si rifiuterebbe di risponderti!

clan Profilo | Junior Member

161 messaggi | Data Invio: lun 19 nov 2007 - 10:21

funziona perfettamente
grazie a buon rendere
ciao

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !