[AccessD] How do I Grab the picture from the web page

John, this is Javascript.  Look at the source code for that page and
search for onClick.  This onClick event runs the method
javascript:unobscure(...) which displays the picture.  The actual link
appears to be "hidden" and only the method knows the actual filename.  One
of the arguments for the method is offenderID=1119894 where this may be
referenced in a database to produce the image.  My guess is that you would
need someone on the inside :-)) to grab the picture.

Mike...

> Michael,
>
> Thanks.  The web page I navigate to is as follows:
>
> http://webapps6.doc.state.nc.us/opi/viewoffender.do?method=view&offenderID=1119894&searchOffenderId=1119894&listurl=pagelistoffendersearchresults&listpage=1
>
> I literally replace the offenderID with the ID (called an OPUS number) of
> the inmate I am viewing or
> obtaining the record for.
>
> What you are viewing if you go to this link is an actual record of some
> inmate.  Open this web page
> to view the html behind.
>
> Notice that the picture is obscured, with a "click to show photo" which I
> assume is actually a button?
>
> It is not that I need to get one or even several photos.  I need the
> *code* to do it from VBA, and I
> need to learn how it is done so I can do it again by myself.
>
> I would prefer to actually retrieve the photo to a file stored on disk,
> however I also want to learn
> how to click buttons (and enter data).
>
> The following is the actual search website.
>
> http://webapps6.doc.state.nc.us/opi/offendersearch.do?method=view
>
> I don't need it for this project because I can do a simple replace of the
> OPUS ID in that first
> string, but it would be good (for another project) to know how I insert
> data into the controls and
> click the search button, how to click the Clear Selection button etc.
>
> I currently use an ActiveX control inserted into a subform to retrieve
> pages, get the table
> collection etc.  The web control is found by clicking the ellipsis in the
> toolbox bar in form design
> and  going down until you find the Microsoft Web Browser control.
>
> I have found code in Google to do this other ways but this is the way I
> have managed to get working.
>   I wrote a class "wrapper" with methods that I call to parse out the
> data.  It is ugly but they
> apparently did not program the web site in a "nice" manner, tables just
> have one big long string
> etc.  the following is the code that I use to poke through the dozens of
> tables they use.
>
> Again, there might be an easier way but this is how I got it working.
>
> Function mSearchTable(wbbWebsite As Object)
>
> Dim varTables As Variant
> Dim varTable As Variant
>
> Dim strOffenderInfo As String
> Dim strMostRecent As String
>
>
> Set varTables = wbbWebsite.Document.All().tags("table")
>    Set varTables = wbbWebsite.Document.All.tags("TABLE")
>    For Each varTable In varTables
>
>      Dim strInnerText As String
>      strInnerText = varTable.innerText
>      'Use the innerText to see if this is the table we want.
>      'Debug.Print varTable.innerText
>
>      If (InStr(strInnerText, "Offender Information")) And (Not
> mblnOffenderInfoFound) Then
>          strOffenderInfo = strInnerText
>          mParseInfoOffender strInnerText
>      Else
>      If (InStr(strInnerText, "Most Recent Incarceration Summary ")) And
> (Not
> mblnMostRecentInfoFound) Then
>          strMostRecent = strInnerText
>          mParseMostRecent strMostRecent
>      End If
>
>      End If
>    Next varTable
>
> End Function
>
> So what I need is not a fish, but to learn *how* to fish.
>
> Any assistance gratefully accepted.
>
> John W. Colby
> www.ColbyConsulting.com
>
> On 4/22/2011 9:06 AM, Michael Mattys wrote:
>> Hi John,
>>
>> I've just finished a similar project for downloading
>> all pdf and xls from a site and the iron is still hot.
>>
>> I know its volunteer - just send the relevant access info
>> to my address and I'll get your pics for you.
>>
>> Michael R Mattys
>> Business Process Developers
>> www.mattysconsulting.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>