>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;
WITH .DOCUMENT.FORMS("login2")by:
WITH .DOCUMENT.FORMS(0)