Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Getting a file
Message
From
01/10/2002 13:35:20
 
General information
Forum:
Visual FoxPro
Category:
Internet applications
Title:
Miscellaneous
Thread ID:
00706372
Message ID:
00706484
Views:
38
I think you meant for this to go to Fabien? Perhaps he will respond - I forwarded it to him.

FWIW, I use the code below to go to the UT and login from VFP:
*--Change to your login name and your password on the UT
lc_User = "myname"
lc_PW	= "mypassword"

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 "Please wait... 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.        
	   .Width = 640
	   .Height = 480
    else
        =MessageBox(;
            "Page not ready", ;
            64, "Information")
    endif                
endwith    
I can't remember who on the UT provided it, but it works great!

Tracy

Hello Fabian,
>1. I can't figure out how to tell the vfphttp procedure to use a particular url, can you explain?
>2. Would this technique be used to fill in a form on a web page,
>for instance could it be used to fill in and submit the user name
>and password on the UT home page?
>Thanks
>Steve
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform