Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
This code doesn't work any longer?
Message
De
25/04/2003 12:02:47
 
 
À
Tous
Information générale
Forum:
Level Extreme
Catégorie:
Autre
Titre:
This code doesn't work any longer?
Divers
Thread ID:
00781551
Message ID:
00781551
Vues:
25
I've been using this code via a menu in VFP to access the UT for months now. However, starting yesterday, it no longer works. It now returns an error message: OLE error code 0x80020006:Unknown name. Any ideas why?
lc_User = "mylogin"
lc_PW	= "mypassword"
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(0)
			.Username.VALUE = lc_User
			.PASSWORD.VALUE = lc_PW
			.Submit
		ENDWITH
		.VISIBLE = .T.
		*	   .Width = 640
		*	   .Height = 480
	ELSE
		=MESSAGEBOX(;
			"Sorry, the Page is not ready-Please try again later.", ;
			64, "Information")
	ENDIF
ENDWITH
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform