Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
My autologin for UT is failing
Message
 
 
À
28/04/2003 20:19:47
Information générale
Forum:
Level Extreme
Catégorie:
Autre
Divers
Thread ID:
00782542
Message ID:
00782545
Vues:
12
Hi Claudio,

You can change Forms(0) to Forms('login2') to get it to work again.

>Hello Folks;
>
>Some months ago I got this autologin program.. But now, its failing..
>
>Please can anyone tell me what's going wrong here:
>
>
>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()
>
>
>
>TIA
>
>Claudio
--sb--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform