• Hi Guest, The software has been updated but I have not had a chance to tweak anything yet.
    It took longer than I had hoped, so I just turned it on and hope everything is OK
    If you spot anything that does not look rigfhyt then please let me know.
    Ark Royal
  • There seems to be a problem with some alerts not being emailed to members. I have told the hosts and they are investigating.
  • Hi Guest, If you are seeing that Lurker has appeared under your name then please take a look here to see why. AR

Scraping Utility for Those New to Scraping


Never really sure how to best use patternform to predict outcomes... any suggestions on most useful filters to bring the cream to the top would be appreciated :)



I've written a scraper in visual basic which scrapes the racing post website. I have 2 things I'd like to do..

Have the scraper login to the racing post website so I can get the betting forecast without having to hand key it in. My scraper will get the forecast after 9am but not after 7pm when it is restricted for the next days racing.

I'd like to login and get the topspeed and rpr for the current day but this seems to populate as a 2nd step.

Has anyone solved these problems in visual basic please?


Ian Nichols

Hi so is there a up date link that I could use, with up date and a stuped prof of how to get info on it and work it,
I don't racing post subscription,
but I have a HRB subscription,


Hi @hedgehog I don't use the RP site but knew that they restricted access to some parts if you didn't have a subscription.
I am a little confused from your post as to what you can and cannot do.
Does your script successfully log you in to the RP?


Hello @ArkRoyal, I can't login using vb as I don't know how, that's the knub of my problem. I can login separately but the scraper doesn't recognise I'm logged in.

Thanks for the help


Hi @hedgehog,

@leftinthestalls provided me with some code to login to the RP in 2008.

I have no idea whether or not it still works, probably not, but may give you some ideas.

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Integer, _
ByVal lParam As Long) As Long
Const BM_CLICK = &HF5

Sub RP_Login()
Dim ie As Object
Dim myurl As String
Dim PageForm As HTMLFormElement
Dim UserIdBox As HTMLInputElement
Dim PasswordBox As HTMLInputElement
Dim FormButton As HTMLInputButtonElement
Dim Elem As IHTMLElement
myName = "name"
myPWD = "pwd"
myurl = "https://reg.racingpost.com/modal_dialog/login.sd?"
Set ie = CreateObject("InternetExplorer.Application")
With ie
    .Visible = True
    .navigate "https://reg.racingpost.com/modal_dialog/login.sd?"
    Do While ie.readyState <> 4: DoEvents: Loop
    Set PageForm = ie.document.forms(0)
    Set UserIdBox = PageForm.elements("in_un")
    UserIdBox.Value = myName
    Set PasswordBox = PageForm.elements("in_pw")
    PasswordBox.Value = myPWD
    Sleep 500
    SendMessage ButtonHwnd, BM_CLICK, 0, 1
    myurl = "http://www.racingpost.com"
    .Navigate2 myurl
End With
End Sub
untested as I don't have a subscription but this may help point you in the right direction

Sub LoginTest()

  Dim ie As Object
  Dim doc As Object
  Set ie = CreateObject("InternetExplorer.Application")

  ' for debugging only
  ie.Visible = True

  ' go to the login page
  ie.Navigate "https://reg.racingpost.com/mpp/sign_in.sd"

  Do While ie.Busy: DoEvents: Loop
  Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop

  Set doc = ie.Document

  ' fill in the login form
  With doc.forms(0)
    .signinEmail.Value = "your email"
    .signinPassword1.Value = "your password"
  End With

  Do While ie.Busy: DoEvents: Loop
  Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop

  '  hopefully at this point you are now logged in

End Sub