Postcode lookup stopped working

[wackywoo105]

[SOLVED] Postcode lookup stopped working

EDIT: 22/05/18 This has stopped working on a window 7 machine. Can anyone help? Please see posts lower down.

The excellent piece of code contained here that allows uk postcode address lookup:

http://www.access-programmers.co.uk/forums/showthread.php?t=216444

has recently stopped working.

Does anyone have a replacement or know a way to fix it?

 

[pbaldy]

FYI, moved from sample forum and approved both posts since that forum is moderated.

 

[wackywoo105]

I read your post about 20 free hits a day. I don't get any results anymore at all. It has only stopped working over last couple of days on 2 separate computer. It was working fine prior to this and I wasn't registered. I wonder if they have modified the website code to block it?

Can someone actually try it and see if it works for them?

EDIT: And I can still click through on the site so surely it would block me if I needed to register.

EDIT2: I'm going to have a look at the website code and see if I can get it working again. I'm not great at this but I like a challenge.

 

[Minty]

Slight Thread hijacking, and I can't post the link up as I'm on the mobile, but in the UK you can actually download a full postcode list from the office of national statistics - warning its BIG. takes a bit of work to use but well worth it.

 

[wackywoo105]

They have changed the website. Replacing:

"td class='address'>"

with

"td class='js-ont-full-address ont-hidden-on-smaller-than-tablet'>"

in the code fixes the issue. I think there are 3 that need to be changed.

As for Mintys post, cheers I will have a look as that sounds interesting.

http://www.ons.gov.uk/ons/guide-method/geography/products/postcode-directories/-nspp-/index.html

 

[wackywoo105]

Today this has stopped working on a windows 7 machine. It generates a run-time error saying "An error occurred in the secure channel support". This happens at the .send line here:

    Set winReq = New WinHttpRequest
    With winReq
        .Open "GET", sStr, False
        .Send
        HTM = Split(Replace(.ResponseText, """", "'"), "<")
        If .Status <> 200 Then
            MsgBox ("Address not found")
            Exit Sub
        End If
    End With

It still works fine on my windows 10 machine.

I have spent some time on google but am struggling to come up with a solution. Can anyone help?