Grig, Look up the wininet dll on the Microsoft site and look at the documentation. Off the top of myhead you could use the HTTPRequest function (could be HTMLRequest) and Get/Put to send data back to the server to log you in.
Dave Crozier -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Grigore Dolghin Sent: 10 January 2008 10:40 To: [email protected] Subject: Re: Read the HTML from a webpage Thanks, Dave. Is there any way, using this method, to get past the login page? ----- Original Message ----- From: "Dave Crozier" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, January 10, 2008 9:58 AM Subject: RE: Read the HTML from a webpage > Grig, > Don't know what method of reading the page you are using, but this is how > I > do it: > > Try this: > > **************** > * Start of Code > * > DECLARE INTEGER InternetOpen IN wininet.DLL STRING sAgent, ; > INTEGER lAccessType, STRING sProxyName, ; > STRING sProxyBypass, INTEGER lFlags > > DECLARE INTEGER InternetOpenUrl IN wininet.DLL ; > INTEGER hInternetSession, STRING sUrl, STRING sHeaders, ; > INTEGER lHeadersLength, INTEGER lFlags, INTEGER lContext > > DECLARE INTEGER InternetReadFile IN wininet.DLL INTEGER hfile, ; > STRING @sBuffer, INTEGER lNumberofBytesToRead, INTEGER @lBytesRead > > DECLARE short InternetCloseHandle IN wininet.DLL INTEGER hInst > > DECLARE Sleep IN Win32API INTEGER nMilliseconds > > > #DEFINE INTERNET_OPEN_TYPE_PRECONFIG 0 > #DEFINE INTERNET_OPEN_TYPE_DIRECT 1 > #DEFINE INTERNET_OPEN_TYPE_PROXY 3 > #DEFINE SYNCHRONOUS 0 > #DEFINE INTERNET_FLAG_RELOAD 2147483648 > > pcURLName="http://www.Leafe.com"; > > * what application is using Internet services? > lsAgent = "VFP" > > lhInternetSession = InternetOpen( lsAgent, INTERNET_OPEN_TYPE_PRECONFIG, > '', > '', SYNCHRONOUS ) > > IF lhInternetSession = 0 > WAIT WINDOW "Internet session cannot be established" TIME 2 > RETURN .null. > ENDIF > > lhUrlFile = InternetOpenUrl( lhInternetSession, pcUrlName, '', 0, > INTERNET_FLAG_RELOAD, 0 ) > > IF lhUrlFile = 0 > * URL cannot be opened > RETURN .null. > ENDIF > > lcRetVal = "" > llOk = .t. > > DO WHILE llOK > * set aside a big buffer > lsReadBuffer = SPACE(32767*10) > lnBytesRead = 0 > lnOK = InternetReadFile( lhUrlFile, @lsReadBuffer, LEN(lsReadBuffer), > @lnBytesRead) > > if ( lnBytesRead > 0 ) > lcRetVal = lcRetVal + left( lsReadBuffer, lnBytesRead ) > endif > > * error trap - either a read failure or read past eof() > llOk = ( lnOK = 1 ) and ( lnBytesRead > 0 ) > ENDDO > > * close all the handles we opened > InternetCloseHandle( lhUrlFile ) > InternetCloseHandle( lhInternetSession ) > > =Messagebox(lcRetVal) > * > * > End of Code > ************ > > Dave Crozier > > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf > Of Grigore Dolghin > Sent: 10 January 2008 00:11 > To: [email protected] > Subject: Read the HTML from a webpage > > Hi. I am stuck trying to read the content of a webpage. I navigate to that > page, and try to extract the HTML in a local variable (I need to do some > parsing on the page's text). > > However, it seems that oIe.Document.Body.InnerHTML returns something else > than I see if I right click the page and choose "View page source". > > Any ideas how to read the html in a local var? > > Thank you. > > --- StripMime Report -- processed MIME parts --- > multipart/alternative > text/plain (text body -- kept) > text/html > --- > [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
