Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Enter data in Internet Explorer
Message
De
17/04/2000 23:34:15
Chrita Lee
ProMOS Technology Inc.
Hsinchu, Taiwan
 
 
À
17/04/2000 10:49:32
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00360388
Message ID:
00360715
Vues:
16
>>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform