oIE = Createobject('internetexplorer.application') >oIE.Navigate("http://www.whatismyip.org") >* Wait for page to load >... >? oIE.Document.Body.InnerText >? oIE.Quit() >Thanks based with your code I create this:
Thisform.NewObject('_webbrowser','_webbrowser4',home()+'gallery\_webview.vcx') With Thisform._webbrowser .top=0 .left=0 .Navigate('http://www.whatismyip.org') .Height = 230 .Width = 900 .visible = .f. ENDWITH DO WHILE thisform._webbrowser.Readystate <> 3 INKEY(1) ENDDO Thisform.text1.Value = Thisform._webbrowser.Document.Body.InnerHtml Thisform.RemoveObject("_webbrowser")