Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Launch UniversalThread from within VFP
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Launch UniversalThread from within VFP
Miscellaneous
Thread ID:
00618709
Message ID:
00618709
Views:
66
Hi,

UT provides a small PRG to start and logOn to UniversalThread from within VFP.

However this did not work on my systems with IE 5.5 installed. So I modified it to work with IE 5.5.

Maybe it does You good:
lc_User = "MyUserName"
lc_PW	= "MyPassword"
lo_IE   = CreateObject("InternetExplorer.Application")

lo_IE.Navigate("www.levelextreme.com")
*-- UT modifies the Web-Address. all You really need is
*-- the web-address


inkey(1)
ln_Now = seconds()

do while lo_ie.Busy and seconds() <= ln_Now+30
    wait wind "Hold on... connecting to levelextreme.com" time 1
enddo 

wait clear

with lo_IE
    if vartype(.Document) = "O" and ! isNull(.Document); 
        and lower(.Document.ReadyState) = "complete"
        
        with .Document.forms(0)
            .Username.value = lc_User
            .Password.value = lc_PW
            .Submit
        endwith
        .Visible = .T.        
    else
        =MessageBox(;
            "Page not ready", ;
            64, "Information")
    endif                
endwith    
Regards from Berlin

Frank

Dietrich Datentechnik (Berlin)
Softwarekombinat Teltow (Teltow)

Frank.Dietrich@dd-tech.de
DFPUG # 327
Reply
Map
View

Click here to load this message in the networking platform