Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Enter data in Internet Explorer
Message
From
17/04/2000 23:34:15
Chrita Lee
ProMOS Technology Inc.
Hsinchu, Taiwan
 
 
To
17/04/2000 10:49:32
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00360388
Message ID:
00360715
Views:
17
>>With foxpro, is there a way to enter data automatically at a website.
>
>Sure, look in the files section for StartUT.PRG that will automatically pop up your browser, travel to (everyones favrotie gray support forum) the UT, put in your username and password, and log in. Its by Erik Moore, and Ken Weber also posted something seperatly to do it with a VBScript.


------
Dear you two:

I've downloaded StartUT.PRG and found there can be another looping tech. to those codes that wait for IE to navigate complete. As following:

Original code: (partial)
oIE = CREATEOBJECT("InternetExplorer.Application")
oIE.Navigate("www.levelextreme.com")

INKEY(1)
nStartSeconds = SECONDS()
DO WHILE oIE.Document.ReadyState <> "complete" AND ;
(SECONDS()-nStartSeconds < 30)
ENDDO

IF oIE.Document.ReadyState <> "complete"
MESSAGEBOX("Universalthread is unavailable")
oie.Visible = .T.
RETURN .F.
ENDIF

Yet another tech.:
oIE = CREATEOBJECT("InternetExplorer.Application")
oIE.Navigate("www.levelextreme.com")

DO WHILE lower(oIE.StatusText) <> "complete" or oIE.busy
ENDDO

(I've found IE's ReadyState can't tell the state exactly...)

Since my IE version is Chinese Traditional, so my oIE.StatusText is
"complete in Chinese", I don't know if English version is "complete"
or not, you can check this yourself.


Chris Lee
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform