Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Code to login to UT no longer works correctly
Message
De
09/07/2004 10:28:31
Fabian Belo
Independent Developer
Argentine
 
 
À
09/07/2004 10:17:53
Information générale
Forum:
Level Extreme
Catégorie:
Autre
Divers
Thread ID:
00922484
Message ID:
00922494
Vues:
19
>Has the main page of the UT changed? The below code returns an error now:
>
>lc_User = "UTloginname" && valid values here of course
>lc_PW	= "UTpassword"  && valid value here also
>lo_IE   = CREATEOBJECT("InternetExplorer.Application")
>
>lo_IE.Navigate("www.levelextreme.com")
>*-- UT modifies the Web-Address. all You really need is
>*-- the web-address
>
>INKEY(1)
>ln_Now = SECONDS()
>
>DO WHILE lo_IE.Busy AND SECONDS() <= ln_Now+30
>	WAIT WIND "Please wait... connecting to levelextreme.com" TIME 1
>ENDDO
>
>WAIT CLEAR
>
>WITH lo_IE
>	IF VARTYPE(.DOCUMENT) = "O" AND ! ISNULL(.DOCUMENT);
>			AND LOWER(.DOCUMENT.ReadyState) = "complete"
>
>		WITH .DOCUMENT.FORMS("login2")
>			.Username.VALUE = lc_User
>			.PASSWORD.VALUE = lc_PW
>			.Submit
>		ENDWITH
>		.VISIBLE = .T.
>	ELSE
>		=MESSAGEBOX(;
>			"Sorry, the Page is not ready-Please try again later.", ;
>			64, "Information")
>	ENDIF
>ENDWITH
>
>
Tracy;

Change:
WITH .DOCUMENT.FORMS("login2")
by:
WITH .DOCUMENT.FORMS(0)
"Since I've read that alcohol is bad... I quit reading."
Me


http://www.fabianbelo.com.ar
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform