jessy_houle
asked on
Programmatically logging into a site, using a FORM POST
I'm trying to create an Internet Explorer instance which will login to Yahoo Groups programmatically. Below is what I have. Where {username} is a valid username, and {password} is the associated, valid password. The final product should be an open instance of Internet Explorer displaying all my Yahoo Groups.
'------------------------- ---------- ---------
Dim obIE As SHDocVw.InternetExplorer
Set obIE = New SHDocVw.InternetExplorer
Call obIE.Navigate2("https://login.yahoo.com/config/login?.intl=us&.src=ygrp&.done=http://groups.yahoo.com%2F", , , "login={username}&password ={password }")
Do Until obIE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Call obIE.Navigate2("http://groups.yahoo.com/mygroups")
Do Until obIE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
obIE.Visible = True
'------------------------- ---------- ---------
Thank you in advance.
'-------------------------
Dim obIE As SHDocVw.InternetExplorer
Set obIE = New SHDocVw.InternetExplorer
Call obIE.Navigate2("https://login.yahoo.com/config/login?.intl=us&.src=ygrp&.done=http://groups.yahoo.com%2F", , , "login={username}&password
Do Until obIE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Call obIE.Navigate2("http://groups.yahoo.com/mygroups")
Do Until obIE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
obIE.Visible = True
'-------------------------
Thank you in advance.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Great Job! Thank you very much. The reason that I need this in the first place is because of the ".persistent" issue. My entire family uses the same computer (and NT User account), and each of us has different My Yahoo Groups. If I check the persistent checkbox, then my wife and children will default to my groups, and vice versa. This way, I can display a simple VB form to choose the person, and it will pop up their associated My Yahoo Groups page.
Thanks again.