Thanks Vladimir!
I understand your code but maybe I didn't explain well.
I don't want to use services like "whatismyip" because if
the service is down I can't obtain the IP.
Thanks again.

>Tony try this:
>

>Local m.myHTML,m.parsed
>parsed = ''
>oParser = Createobject('myParser',@m.parsed)
>ALINES(myarray,m.Parsed)
>MESSAGEBOX("My IP "+myarray[3])
>
>Define Class myParser As Form
>  Add Object oWB As OleControl With ;
>    OleClass = 'Shell.Explorer'
>
>  Procedure Init
>  Lparameters tcParse
>  With This.oWB
>    .Navigate2('http://www.whatismyip.com/')
>    Wait window 'Parsing...' nowait
>    Do While .ReadyState # 4 && Wait for ready state
>    EndDo
>  Endwith
>  tcParse = This.oWB.Document.body.innerText
>  Wait clear
>  Return .f.
>Endproc
>Enddefine
>