>>>loImg = oBrowser.document.getElementById("imgCatpcha") >>>lcUrl = loImg.src >>> >>>*** Retrieve the image and store to disk >>>Do wwHttp >>>loHttp = CREATEBOBJECT("wwHttp") >>> >>>*** Save output directly to file >>>loHttp.HttpGet(lcUrl,"","","c:\temp\captchaimage.jpg") >>>>>>
>>>>>Strtofile(GetDataFromURL('yourURL','yourfilename.jpg') >>>>> >>>>>Function GetDataFromURL >>>>>LPARAMETERS pcUrlName >>>>>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 >>>>> >>>>>#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 >>>>>#DEFINE CR CHR(13) >>>>> >>>>>local lsAgent, lhInternetSession, lhUrlFile, llOk, lnOk, lcRetVal, lcReadBuffer, lnBytesRead >>>>> >>>>>* what application is using Internet services? >>>>>lsAgent = "VPF 5.0" >>>>> >>>>>lhInternetSession = InternetOpen( lsAgent, INTERNET_OPEN_TYPE_PRECONFIG, ; >>>>> '', '', SYNCHRONOUS) >>>>> >>>>>* debugging line - uncomment to see session handle >>>>>* WAIT WINDOW "Internet session handle: " + LTRIM(STR(hInternetSession)) >>>>> >>>>>IF lhInternetSession = 0 >>>>> WAIT WINDOW "Internet session cannot be established" TIME 2 >>>>> RETURN .null. >>>>>ENDIF >>>>> >>>>>lhUrlFile = InternetOpenUrl( lhInternetSession, pcUrlName, '', 0, ; >>>>> INTERNET_FLAG_RELOAD, 0) >>>>> >>>>>* debugging line - uncomment to see URL handle >>>>>* WAIT WINDOW "URL Handle: " + LTRIM(STR(hUrlFile)) >>>>> >>>>>IF lhUrlFile = 0 >>>>> WAIT WINDOW "URL cannot be opened" Timeout 5 >>>>> RETURN .null. >>>>>ENDIF >>>>> >>>>>lcRetVal = "" >>>>>llOk = .t. >>>>> >>>>>DO WHILE llOK >>>>> * set aside a big buffer >>>>> lsReadBuffer = SPACE(32767) >>>>> 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 ) >>>>> >>>>>* return the URL contents >>>>>RETURN lcRetVal >>>>>>>>>>
>>>>>>goIE = CREATEOBJECT("InternetExplorer.Application") >>>>>>>>>>>>