>If I point to
http://www.whatismyip.com/>it tells me my IP.
>I would like to have same result but
>coding.
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
EndDo
Endwith
tcParse = This.oWB.Document.body.innerText
Wait clear
Return .f.
Endproc
Enddefine
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
