>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") >>
>loImgs = loDoc.getElementsByTagName("img") >FOR EACH loImg IN loImgs > ? loImg.Src >ENDFOR >>
>>>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") >>>>>>>>