Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
UniversalThread autologon
Message
 
 
To
17/11/2000 01:45:44
General information
Forum:
Visual Basic
Category:
Other
Miscellaneous
Thread ID:
00443048
Message ID:
00443049
Views:
13
Hennie. Submit this as a FAQ and I will approve it.

>http://www.levelextreme.com/faq.asp#22 shows a code snippet for vfp to logon to the universal thread.
>The code below does the same in vb. I hope you will find it usefull.
>
>Sub main()
> Dim lcUsername As String
> Dim lcPassword As String
> 'Dim oIE As object
> Dim oIE As SHDocVw.InternetExplorer
> Dim nStartSeconds As Single
> lcUsername = "******"
> lcPassword = "******"
>
> 'oIE = CreateObject("InternetExplorer.Application")
> Set oIE = New SHDocVw.InternetExplorer ' this needs a reference to: "Microsoft Internet Controls"
> oIE.Navigate ("www.levelextreme.com")
>
> nStartSeconds = Timer()
> Do While Timer() - nStartSeconds < 1
> Loop
>
> nStartSeconds = Timer()
> Do While oIE.Document.ReadyState <> "complete" And (Timer() - nStartSeconds) < 30
> Loop
>
> If oIE.Document.ReadyState <> "complete" Then
> MsgBox "Universalthread is unavailable"
> oIE.Visible = True
> Exit Sub
> End If
>
> oIE.Document.Forms(0).Key.Value = lcUsername
> oIE.Document.Forms(0).Password.Value = lcPassword
>
> oIE.Document.Forms(0).Submit
> oIE.Visible = True
>End Sub
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform