>set classlib to autologin >cwmodulo = "waiting" >oParam = createobj(cwmodul) >oParam.SHOW() > >lcUserName = "myloginname" >lcPassword = "mypassword" > >oIE = CREATEOBJECT("InternetExplorer.Application") >oIE.Navigate("www.levelextreme.com") >i1=0 >do while .t. > wkey=inkey() > *if type("oIE.Document")="O" > if type("oIE.Document.ReadyState")="C" > exit > endif > if wkey=27 > exit > endif >enddo >if type("oie.document.forms(0)")<>"O" > return >endif >lwerror = .f. >on error lwerror = .t. >oIE.Visible = .T. >INKEY(1) >nStartSeconds = SECONDS() >DO WHILE LOWER(oIE.Document.ReadyState) <> "complete" AND (SECONDS()-nStartSeconds < 60) >ENDDO > >IF LOWER(oIE.Document.ReadyState) <> "complete" > MESSAGEBOX("Universalthread is unavailable") > oie.Visible = .T. > RETURN .F. >ENDIF >lwerror = .f. >* >oie.document.forms(0).Username.Value = lcUsername && <==== error here >oIE.Document.Forms(0).Password.Value = lcPassword && <==== and here >* >if lwerror > =pass_thru_keyboard(oie, lcUsername+chr(09)+lcPassword) > oIE.Document.Forms(0).Submit() >else > oIE.Document.Forms(0).Submit() >endif >oParam.release() >>