Internal and external IP - solved

[driessen]

Hello,

I used to use this code to get my internal and externam IP :

Code: Select all  Expand view

WsaStartUp()
cVar1 := GetHostByName( GetHostName() )
WsaCleanUp()
oHttp := CreateObject("winhttp.winhttprequest.5.1")
oHttp:Open("GET","http://www.dnsstuff.com/docs/ipall",.f.)
oHttp:Send()
cVar2 := oHttp:ResponseText()
cVar2 := StrExtract(cVar2,"Your IP Address: <strong class="+CHR(34)+"ipBlock"+CHR(34)+">","</strong>")

This results into cVar1 = my internal IP, cVar2 = my external IP.

Until a short while ago, it use to work just fine. Now it doesn't work anymore.

Anyone any idea?

Thanks.

[lucasdebeltran]

Hello,

Use:

http://www.dnsstuff.com/docs/

Or:

http://www.cualesmiip.com/

[MarcoBoschi]

http://www.marcoboschi.it/indirizzo.asp


this is a little asp that returns only three variables

Code: Select all  Expand view

<%
Dim cIp
Dim cHost
Dim cLocal


cIp    = Request.ServerVariables( "REMOTE_ADDR" )
cLocal = Request.ServerVariables( "LOCAL_ADDR" )
cHost  = Request.ServerVariables( "REMOTE_HOST" )
Response.write "REMOTE_ADDR: " &cIp
Response.write "<br>"

Response.write "LOCAL_ADDR: " &cLocal
Response.write "<br>"

Response.write "REMOTE_HOST: " &cHost
Response.write "<br>"


%>
 

[Enrico Maria Giordano]

Until a short while ago, it use to work just fine. Now it doesn't work anymore.

Anyone any idea?

Because this address is no longer valid:

http://www.dnsstuff.com/docs/ipall

That's why it's better not to rely to external resources.

EMG

[driessen]

Guys,

Thanks a lot for your help.

[driessen]

Hello,

Just like happened 3 years ago, this source is not working anymore.

Code: Select all  Expand view

WsaStartUp()
cVar1 := GetHostByName( GetHostName() )
WsaCleanUp()
oHttp := CreateObject("winhttp.winhttprequest.5.1")
oHttp:Open("GET","http://www.dnsstuff.com/docs",.f.)
oHttp:Send()
cVar2 := oHttp:ResponseText()
cVar2 := StrExtract(cVar2,"Your IP Address: <strong class="+CHR(34)+"ipBlock"+CHR(34)+">","</strong>")

Until a few weeks ago, it worked just fine. Now I get an 404 error.

Does anyone have any alternative?

Thanks a lot in advance.

[karinha]

Code: Select all  Expand view

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=15742&p=81532&hilit=StrExtract#p81532

#include "FiveWin.ch"

Function MyWanIP()

   local oHttp, cHtml

   oHttp := CreateObject( "winhttp.winhttprequest.5.1" )
   oHttp:Open( "GET", "http://www.ip-adress.com/", .f. )
   oHttp:Send()

   cHtml := oHttp:ResponseText()

   cHtml := StrExtract( cHtml, "My IP address: ", "</h2>" )

   msginfo( cHtml )

Return( cHtml )

static function StrExtract( cText, cAfter, cBefore )

   local cRet  := SubStr( cText, At( cAfter, cText ) + Len( cAfter ) )
   local n

   if ( n := At( cBefore, cRet ) ) > 0

      cRet  := Left( cRet, n - 1 )

   endif

return cRet
 

[driessen]

Thanks a lot for trying to help me.
I got this message : "The requested resource is no longer available on this server and there is nog forwarding address".

[cnavarro]

Try

Code: Select all  Expand view

//----------------------------------------------------------------------------//

Function TipExternalIP()

   local cUrl       := "http://checkip.dyndns.com/"
   local oURL       := TUrl():New( cUrl )
   local oClient    := TIpClientHttp():New( oUrl )
   local cJson
   local nPos1
   local nPos2
   local cIp

   if oClient:Open()  
      cJson := oClient:ReadAll()
      //? cJson
      nPos1 := At( ":", cJson )
      nPos2 := Rat( "</body>", cJson )
      cIp   := AllTrim( Substr( cJson, nPos1 + 1, Len( cJson ) - ( nPos2 + 5 ) ) )
      oClient:Close()
   endif

Return cIp

//----------------------------------------------------------------------------//
 

or try with this URL with your code ( CreateObject )

[Antonio Linares]

Michael,

You may place this little PHP at your server:

getip.php

Code: Select all  Expand view

<?php
  echo $_SERVER[ 'REMOTE_ADDR' ];
?>

I have copied it in FiveTech server, so please replace "http://www.ip-adress.com/" with "http://www.fivetechsoft.com/getip.php"
in your code and try it

Click on this to check your IP:
http://www.fivetechsoft.com/getip.php

[driessen]

Antonio,

You are the best.

Thanks a lot for your help.

Problem solved.

Have a nice weekend.

[Horizon]

getip.asp

Code: Select all  Expand view

<html>
<body>
<%Response.Write(Request.ServerVariables("remote_addr"))%>
</body>
</html>