Find IP når man har firewall med NAT

Du er i den forkerte kategori (ud fra dit spm.)

/Martin

nej... jeg vil have at mit program skal finde IP'en...

martinowitz: Hvad er det for et svar? Regnede du med at få point for at henvise ham til en anden kategori?

Ja du kan nok finde din intern IP (192.168.xxx.xxx) men ikke din ekstern. (den der kommer fra din ubyder) ellers skal du hoppe en tur ind på myip.dk for at se den ekstern IP.

æv :(

ha ha .. du kan jo bare lave dit program så den kan downloade din IP fra siden.. :D

Nej, er ligeglad med pointene.

taskmgr > tror det er den dummeste kommentar jeg har oplevet her på eksperten !!

Men læste det ikke på den måde, at han ville have sit eget program til det. Mere at han ville vide, hvordan han kunne få den offentlige ip-adresse at vide.

/Martin

'--------------------------------- Form1 ---------------------------------
' Smid en textbox på og se.. ;)
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long

Private Sub Form_Load()
Dim hOpen As Long
Dim hFile As Long
Dim Ret As Long
Dim lPos As Long
Dim sBuffer As String
Dim YourIP As String

  sBuffer = Space(150)
  hOpen = InternetOpen("Your IP", 1, vbNullString, vbNullString, 0)
  hFile = InternetOpenUrl(hOpen, "http://myip.dk/", vbNullString, ByVal 0&, &H80000000, ByVal 0&)
  InternetReadFile hFile, sBuffer, 150, Ret
  InternetCloseHandle hFile
  InternetCloseHandle hOpen
  lPos = InStr(1, LCase(sBuffer), LCase("Your IP: "))
  If lPos > 0 Then
    lPos = lPos + Len("Your IP: ")
    YourIP = Mid$(sBuffer, lPos, InStr(lPos, sBuffer, "<") - lPos - 1)
  End If
Text1 = YourIP
End Sub
'--------------------------------- Form1 ---------------------------------

Fed nok :) Du fortjener sQ de point sjh :-)

<-*-*-*-*-*- SPØRGSMÅL LUKKET -*-*-*-*-*->

Ja men det var bare en lappe løsning.. den kunne sikkert gøres beder ;)

// Jeg beklager at der spammes

martinowitz: Hvorfor lagde du så et svar?
Forstå venligst min pointe: For at lege "vejviser", bør du have lidt mere styr på tingene.

sjh: Sikkert :) Men det her virker :)

Taskmrg > Jeg er ikke nogle af dem, som er point-liderlige. Troede bare at manden var kommet i en forkert kategori.

Jeg bruger eksperten for at hjælpe folk og til at få hjælp, ikke for at blive svinet til af sådan nogle som dig !

Bio, godt at du har fået et svar som du kunne bruge - det var nu engang det vigtigste.

/Martin

martinowitz >Hvis du selv mener at du kender noget til visual basic burte du også vise at "winsock.LocalIP" er en del af visual basic kategori.. ;)

Hey SJH

Jeg kender ik noget til programmering - overskriften fangede bare mit øje, og da jeg så så kategorien, troede jeg at han lavet en fejl.

Jeg har lavet en fejl, men synes da ikke at jeg skal svines til af den grund ! Ingen er vej fejlfri ....................

/Martin

Læs lige tråden fra starten, og fortæl mig hvor jeg sviner dig til? Jeg påpegede at du havde lavet en fejl. Er der noget galt i det?

Jeg er færdig med den her diskussion.

/Martin

Ja nu skal vi jo være lidt søde ved hinanden.. det her før ikke til noget :-)

<-*-*-*-*-*- SPØRGSMÅL LUKKET (IGEN ;) ) -*-*-*-*-*->