Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
UT Autologin
Message
 
 
To
30/07/2002 02:03:00
Christoph Krapp
Tiefkühldienst Gmbh
Lohne, Germany
General information
Forum:
Level Extreme
Category:
Other
Title:
Miscellaneous
Thread ID:
00683821
Message ID:
00683865
Views:
20
>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--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform