Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
UT Autologin
Message
 
 
À
30/07/2002 02:03:00
Christoph Krapp
Tiefkühldienst Gmbh
Lohne, Allemagne
Information générale
Forum:
Level Extreme
Catégorie:
Autre
Titre:
Divers
Thread ID:
00683821
Message ID:
00683865
Vues:
19
>Hello
>
>how could i create a Autologin Feature to UT,
>so i don´t have to type my Username and Password each
>time i´m logging in?
>
>thanks Christoph

Here's corrected version of startut.prg by Erik Moore file #9598.
lcUserName = "yourusername"
lcPassword = "yourpassword"

oIE = CREATEOBJECT("InternetExplorer.Application")
oIE.Navigate("www.levelextreme.com")

INKEY(1)
nStartSeconds = SECONDS()
DO WHILE oIE.Document.ReadyState <> "complete" AND (SECONDS()-nStartSeconds < 30)
ENDDO

IF oIE.Document.ReadyState <> "complete"
	MESSAGEBOX("Universalthread is unavailable")
	oie.Visible = .T.
	RETURN .F.
ENDIF

oie.document.forms(0).Username.Value = lcUsername
oIE.Document.Forms(0).Password.Value = lcPassword

oIE.Document.Forms(0).Submit()
oIE.Visible = .T.
To login w/o VFP see Re: Universalthread Login Message #674402
--sb--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform