? STREXTRACT(ox.Document.Body.InnerText, "is ", CHR(13))<.pre> Or you can use another web site that return IP w/o extra text. <pre>... ox.navigate2("http://www.whatismyip.org") ? ox.Document.Body.InnerText>
> >ox = Createobject('internetexplorer.application') >ox.navigate2("http://www.whatismyip.com/") >Do While ox.busy >Enddo >If Type("ox") = "O" > odoc = ox.Document > gcIPAddress = odoc.Body.InnerText > > gcIPAddress = Substr(gcIPAddress,1,50) > lnStart = At( Left( Chrtran(gcIPAddress, Chrtran(gcIPAddress, "0123456789", ""), ""),1), gcIPAddress) > lnEnd = Rat( Right( Chrtran(gcIPAddress, Chrtran(gcIPAddress, "0123456789", ""), ""),1), gcIPAddress) > gcIPAddress = Substr(gcIPAddress,lnStart,(lnEnd-lnStart)+1) > > ? ":"+gcIPAddress+":" > >Endif >>