Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Automate WebSite
Message
De
26/02/2004 12:14:32
 
 
À
26/02/2004 11:36:27
Marcus Hüneke
Heidelberger Druckmaschinen
Wiesloch, Allemagne
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00881118
Message ID:
00881144
Vues:
28
Grüß Gott,

try the following:
oIE = CREATEOBJECT("InternetExplorer.Application")
oIE.Visible = .t.
oIE.Navigate("www.myOrderPageLogin.com") && See HTML Site below

* *** wait untill the explorer is finished loading the page
#DEFINE READYSTATE_COMPLETE 4
DO WHILE oIE.Readystate <> READYSTATE_COMPLETE
	WAIT WIND TIME 1.0 ""
ENDDO

oIE.document.forms(1).BAPI1007-CUSTOMER.value = "MyUserName"
oIE.document.forms(1).BAPIUID-PASSWORD.value = "MyPassWord"
now, forms(1) only works of course if the user name and password are in the first form on that website.

hope this helps.



>Hello,
>
>i want to automate an intranet page, which is used by our customers to order spare parts.
>First problem is to login automatically
>So I use:
>
>oIE = CREATEOBJECT("InternetExplorer.Application")
>oIE.Visible = .t.
>oIE.Navigate("myOrderPageLogin") && See HTML Site below
>
>But now my Problem:
>
>How can I fill the two input fields Customer and Password.
>
>Everything I tried faild. Always get an error
>Also downloaded the VFP example to login into the universalthead site.
>But the code does not work
>
>I'm using VFP6.0
>
>Any help is appreciated.
>
>
>Thanks in advance
>
>Marcus
>
>Sorry don't know how to send the whole HTML Code here (What is a
 TAG?)
>
>These are the names of the input fields
>name="BAPI1007-CUSTOMER"
>name="BAPIUID-PASSWORD"
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform