Solved

CAN SOME ONE HELP ME PLS>>>Log onto alternative site(say experst-exchange.com) using the userid and pwd entere in a form and return some text and image that you encounter first in that page

Posted on 2004-09-15
16
569 Views
Last Modified: 2007-12-19
i tried using this code and could get to a point where i could get the text but dumbfounded how to retrieve and display the image.
i kept this code in a <script vbscript> and calling it on button click after user enters the userid and pwd on the ASP Page.Can some one help.

Dim ie ,doc
Dim password
Dim username
username = "username"
password = "password"

Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.Navigate2 (<URL here>)
Do While ie.Busy = True
    msgbox ("Click Ok to Send Your User Id and Password")
Loop
doc = ie.Document
ie.Document.All("login").Value = username
ie.Document.All("passwd").Value = password
ie.Document.All(".save").Click

set DocInnertext=ie.Document
msgbox(DocInnertext.body.innertext)
0
Comment
Question by:Sriburri73
  • 9
  • 7
16 Comments
 
LVL 46

Expert Comment

by:fritz_the_blank
Comment Utility
Try using something like this:

Function GetHTML(strURL)
      Dim objXMLHTTP, strReturn
      Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
      objXMLHTTP.Open "GET", strURL, False
      objXMLHTTP.Send
      strReturn = objXMLHTTP.responseText
      Set objXMLHTTP = Nothing
      GetHTML = strReturn
End Function

FtB
0
 
LVL 46

Expert Comment

by:fritz_the_blank
Comment Utility


Sorry, you need credentials--so:

Function GetHTML(strURL, strUserName, strPassword)
     Dim objXMLHTTP, strReturn
     Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
     objXMLHTTP.Open "GET", strURL, False, strUserName, strPassword
     objXMLHTTP.Send
     strReturn = objXMLHTTP.responseText
     Set objXMLHTTP = Nothing
     GetHTML = strReturn
End Function
0
 

Author Comment

by:Sriburri73
Comment Utility
I am getting an error
msxml3.dll error '80072ee6'

The URL does not use a recognized protocol

0
 
LVL 46

Expert Comment

by:fritz_the_blank
Comment Utility
Let's see the code that you are running.

FtB
0
 

Author Comment

by:Sriburri73
Comment Utility
Dim objXMLHTTP, strReturn
     Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
     objXMLHTTP.Open "GET","http://login.yahoo.com/config/login?.done=http://finance.yahoo.com&.src=quote", False, "userName", "Password"
     objXMLHTTP.Send
     strReturn = objXMLHTTP.responseText
     response.write strReturn
     Set objXMLHTTP = Nothing
0
 
LVL 46

Expert Comment

by:fritz_the_blank
Comment Utility
And instead of "userName", "Password" you are passing appropriate credentials?

FtB
0
 

Author Comment

by:Sriburri73
Comment Utility
Yeah I am using right credentials ..using the same user id and pwd i am able to login to the site using the code i pasted first..The only issue with the code was i am unable to get the images
0
 
LVL 46

Expert Comment

by:fritz_the_blank
Comment Utility
Okay, one more test. What happens if you run this page?

<%
Function GetHTML(strURL)
     Dim objXMLHTTP, strReturn
     Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
     objXMLHTTP.Open "GET", strURL, False
     objXMLHTTP.Send
     strReturn = objXMLHTTP.responseText
     Set objXMLHTTP = Nothing
     GetHTML = strReturn
End Function

response.write(getHTML("http://www.FairfieldConsulting.com/index.asp"))

%>
0
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 

Author Comment

by:Sriburri73
Comment Utility
i am able to run the script and got hte following output..

about us
coding services
web hosting
code corner
drop us a line
Fairfield Consulting is an Information Technology company that specializes in data-driven application design and internet services employing technologies including: ASP, SQL, ADO, VBScript, JavaScript, .NET, XML/XSL, and Visual FoxPro.

For over 11 years, we have been providing these services for clients including: The New England Organ Bank, The Massachusetts Society for the Prevention against Cruelty to Animals, Brandeis University, The Mind/Body Medical Institute (Beth Israel Hospital / Harvard Medical School) among others.

------------
0
 
LVL 46

Accepted Solution

by:
fritz_the_blank earned 500 total points
Comment Utility
Okay, that is good. That means that you should be able to run the MSXML2.ServerXMLHTTP object.

So we are starting to narrow down the issue....

When I do this, it also works:
<%@ Language = VBSCRIPT %>
<% Option Explicit %>
<HTML>
<BODY>
<%
Function GetHTML(strURL, strUserName, strPassword)
     Dim objXMLHTTP, strReturn
     Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
     objXMLHTTP.Open "GET", strURL, False, strUserName, strPassword
     objXMLHTTP.Send
     strReturn = objXMLHTTP.responseText
     Set objXMLHTTP = Nothing
     GetHTML = strReturn
End Function

response.write(GetHTML("http://www.FairfieldConsulting.com/index.asp","fritz","blank"))
%>
</BODY>
</HTML>

So, that means there has to be something about the way that the site is handling this?

FtB

0
 

Author Comment

by:Sriburri73
Comment Utility
Hi Fritz,

I tried the code you gave above with valid yahooid and pwd as shown below and its just bringing up the yahoo login screen.
0
 
LVL 46

Expert Comment

by:fritz_the_blank
Comment Utility
Then I am guessing that the screen is not designed to allow this sort of automated login?

FtB
0
 

Author Comment

by:Sriburri73
Comment Utility
i am able to login to the same screen and was able to capture the text using the code i pasted initially (using SHDOCVW.DLL though)
0
 
LVL 46

Expert Comment

by:fritz_the_blank
Comment Utility
I am not sure how much more I can help with this then. It is a bit of a bummer as this question has fallen rather far down the list, so I am not sure if it will receive much attention.

FtB

0
 

Author Comment

by:Sriburri73
Comment Utility
Thats ok Fritz.Thanks alot for the help..

I am new to Experts Exchange..If you can ,please loud  shout to other experts whom you know and can help me out with this one.Also if you know of sites where i can find more info on MSXML2 or SHDOCVW.DLL ,would be helpful too..

Thanks
0
 
LVL 46

Expert Comment

by:fritz_the_blank
Comment Utility
Sorry that I couldn't do more.

FtB
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
This demonstration started out as a follow up to some recently posted questions on the subject of logging in: http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html and http://www.experts-exchange.com/Programming/…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

6 Experts available now in Live!

Get 1:1 Help Now