WITH .DOCUMENT.FORMS(0)To:
WITH .DOCUMENT.FORMS(1)and it should work again...
>>>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 >>> >>>