Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

INTERNET

Status
Not open for further replies.

Guest_imported

New member
Jan 1, 1970
0
i want to use VB to do my work for me

how would i get VB to log into a website for met
then fill out some forms

thanks
 
'============================================
Here is what I did to do bypass the entry page for a site.
Fill in the page manually. Submit it. Highlight the entire URL string in the address bar and copy it into your program as a comment for safekeeping. This URL should contain all your data with keywords e.g. ?&LN=Yingling&FN=John&MI=. Once I now knew how the URL would look I could use Shell to sumit the URL already filled in. Many of these pages have no check to prevent you from skipping the entry page.
Hint. If the address bar is "destroyed" when data comes back, hit stop on yout IE right after you submit to "freeze" the address bar.
 
Look at the URL from the ? on. e.g.
?&LN=Yingling&FN=John&MI=
If figured out that LN stood for last name, FN for First name etc therefore
Code:
Public Function DisplayWhitepages(strLastName As String, _
                    strFirstName As String, _
                    strMiddleInitial As String, _
                    strCity As String, _
                    strState As String) as string
    Dim strURL As String
    strURL = "[URL unfurl="true"]http://www.whitepages.com/cgi/find_person_results.cgi?"[/URL] & _
             "&f=" & Replace$(Trim$(strFirstName), " ", "+") & _
             "&l=" & Replace$(Trim$(strLastName), " ", "+") & _
             "&c=" & Replace$(Trim$(strCity), " ", "+") & _
             "&s=" & Left$(strState, 2)
    DisplayWhitepages = strURL
    
End Function
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top