>>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") >>>>>>>>>>