Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
This code doesn't work any longer?
Message
From
25/04/2003 12:02:47
 
 
To
All
General information
Forum:
Level Extreme
Category:
Other
Title:
This code doesn't work any longer?
Miscellaneous
Thread ID:
00781551
Message ID:
00781551
Views:
26
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"
Next
Reply
Map
View

Click here to load this message in the networking platform