Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Read URL
Message
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00800502
Message ID:
00800614
Views:
24
Something ike:
#DEFINE READYSTATE_COMPLETE 4
#DEFINE MAX_TIME 30

oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = .T.
oIE.Navigate("http://www.microsoft.com")
lnStarted = SECONDS()

do while oIE.Readystate <> READYSTATE_COMPLETE
if Seconds() - lnStarted >= MAX_TIME
exit
endif
enddo

if Seconds() - lnStarted < MAX_TIME

lcInnerText = oIE.Document.Body.InnerText

else
lcInnerText="???????????????"
endif

oIE=NULL
release oIE

>I'v looked the Create a Visual FoxPro web browser demo but nothing there.
>Do you have lines before oInt....
>
>AT
Previous
Reply
Map
View

Click here to load this message in the networking platform