Kan man ta reda på sitt externa ip från VB?

/Micke

Nja.

Du får reda på det genom att kolla mot den här sidan:
http://www.tydal.nu/ip.phtml

Så, visst kan du skriva ett program i VB som hämtar den sidan och skriver ut resultatet.

Finns det inget annat sätt?

Eftersom datorn inte själv känner till sitt externa ip-nummer måste du på något sätt kontakta en dator som berättar vad du har för avsändaradress.

/Johan

Ok, men om jag skulle vilja hämta ip:t från www.showmyip.com, hur gör man då?

/Micke

Har testat lite med Inet kontrollen finns det nått bättre sätt att filtrera ut ip:t än det här?

OBS! jag satte MaxLength till 16 och MultiLine till True på textboxen.
<code>
Private Sub Form_Load()
WebBrowser1.Navigate "www.showmyip.com"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Text1.Text = WebBrowser1.Document.Body.InnerText
DoEvents
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
MsgBox "Ditt externa IP är: " & Text1.Text
End Sub
</code>

//Micke


Edit: Såg att jag hade en för mycket på MaxLength... om jag satte den på 15 så blir det rätt och då behöver jag inte använda Left...