Oddschecker

[danjuma]

I've come up with a completely different way of doing this now. This version first navigates to oddschecker and amends the cookie to include the required settings. Hopefully this should work much quicker than opening and instance of IE

http://www.mediafire.com/?b2c8skcxazdv8bb

Dan - the main differences are that OC have changed some of the identifying tags in their pages, also only the data based on the settings are sent rather than previously where all odds types were in the source code.

Os,

Download link coming up invalid link! May be you have temporarily deleted it to amend something, will try again in a few minutes. Cheers

Ok, now downloaded fine. Thanks

[danjuma]

That's it babeee, working fine, GENIUS !!!!

Just tried it with tomorrow's racing, albeit the books just displaying SP for now. Odds updating fine for both BA & OC, no freezing, and no freezing of BA when I manually select next market (and using Ian's formula for determining the OC URL in cell BA1). Will give it a proper testing tomorrow when the books start displaying their odds.

Many thanks for this Osknows. All your efforts and hardwork greatly appreciated.

[danjuma]

Looks like they have done something to their website again. Sheet now doing the same thing as before - correct market and horse names displayed, but no odds for the bookies displayed! B*****ds!!!

[sebaku]

Oddschecker changed something in the code.

I updated last osknows code in 2 places:

1)
carddata = Split(v(k), "onclick=""s")(0)
'load Card data
If InStr(1, carddata, "<TD>", vbTextCompare) > 0 Then
arr(k + 1, 1) = Split(Split(carddata, "<td>")(1), "</td")(0)
End If

2)

'load decimal odds
For m = 1 To UBound(head)
If InStr(1, v(k), "_" & arr(1, m + 4), vbTextCompare) > 0 Then
arr(k + 1, m + 4) = Split(Split(Split(v(k), "_" & arr(1, m + 4))(1), "<")(0), ">")(1)
End If
Next



And it is working for me.

sebaku

[osknows]

Thanks sebaku!

Here is an updated workbook incase anyone gets stuck http://www.mediafire.com/?c6q1zolxicu1xvq

[danjuma]

sebaku and Osknows, many thanks for amending this. Wiil give it a try later or tomorrow when at home.

@Osknows,

As it looks like OC seems to keep changing their code for whatever reason, and I do not expect you to keep utilising your valuable time amending this sheet, could you please advise me what specific method(s) you have adopted on your sheet, so I could google it to see if there are some tutorials on it that I can quickly learn just to apply to amending the sheet when needed. Don't really have the time at present to learn everything on screen scraping, if you know what I mean. Many thanks.

Dan

[osknows]

The code has all the base requirements to extract the data but small tweaks by Oddschecker require slight updates to the main data extraction. The best thing to do if you want to learn is to step through the code line by line by putting a breakpoint (F9) at the start of the code and use F8 to step through each line. Use the View/Locals in the VBA editor to view what each variable is holding and if things change you'll get a feel fo what's right or wrong and can change the line of code to get the correct data. I know this may sound complex but after a few tries it becomes easier if you understand what the code is doing. If you get stuck ask away as there seems to be even more very knowledgeable helpers in this wonderful forum

Os

[danjuma]

The code has all the base requirements to extract the data but small tweaks by Oddschecker require slight updates to the main data extraction. The best thing to do if you want to learn is to step through the code line by line by putting a breakpoint (F9) at the start of the code and use F8 to step through each line. Use the View/Locals in the VBA editor to view what each variable is holding and if things change you'll get a feel fo what's right or wrong and can change the line of code to get the correct data. I know this may sound complex but after a few tries it becomes easier if you understand what the code is doing. If you get stuck ask away as there seems to be even more very knowledgeable helpers in this wonderful forum

Os

Many thanks.

[Fixador]

Damn OC - they have done it again !

I am fed up with forking out with rentacoders to rebuild my utility - so am trying to get this working again

stepping through - and forcing cookies on every pass - I am getting at getCookies() cookie="" at the end of the function

... no cookies ??

[danjuma]

Damn OC - they have done it again !

I am fed up with forking out with rentacoders to rebuild my utility - so am trying to get this working again

stepping through - and forcing cookies on every pass - I am getting at getCookies() cookie="" at the end of the function

... no cookies ??

Fixador, what version of OS sheet are you using, because mine is still working, just tried it now.

[Fixador]

Hi Dan,

XP home SP3
Excel 2003

added project references :-

'Microsoft XML v6.0
'Microsoft VBScript Regular Expressions 5.5

and contemplating adding winhttp services - as ( fiddling in the dark ! ) suspect i am getting crap all for the variable "ie" when watching "locals" window.

I cant figure out whether i have managed to "Set" ie

ie.visible does nothing ( forlorn hope ! )


Mucking about with windows api calls i leave to the pro's - but..... the devil drives !

[Fixador]

Butchered the code so i can operate independent of Gruss ( after racing over etc )... so from a cmd button :-

Code: Select all

Private Sub CommandButton1_Click()
      'With ThisWorkbook.Sheets(Target.Worksheet.Name)
       With ThisWorkbook.Sheets(1)
       

        'Debug.Print "Limit = ", Hour(.Range("b2")) * 60 * 60 + Minute(.Range("b2")) * 60 + Second(.Range("b2")), time, time + 60
       
        'If .Range("F2").Value <> "Suspended" And .Range("F2").Value <> "Closed" And _
        .Range("BA2").Value <> "Off" And Hour(.Range("b2")) * 60 * 60 + Minute(.Range("b2")) * 60 + Second(.Range("b2")) >= time + 60 Then
        ' time = Hour(.Range("b2")) * 60 * 60 + Minute(.Range("b2")) * 60 + Second(.Range("b2"))
                'getodds from oddschecker [url, worksheet name]
               
                'force it now - cause i'm not getting any !
               
                set_cookie
               
                If Not sc Then set_cookie
               
                Debug.Print "sc =  "; sc
               
                'getodds .Range("BA1").Value, Target.Worksheet.Name
                getodds .Range("BA1").Value, "Market1"
                Debug.Print "check through done "   'link ok
        'End If
        End With
End Sub

..haven't started butchering module1 ......... yet !

[Fixador]

its all lies.......

In module1 - i am not convinced ( at all ) that the function set_cookie is working here

hence the variable "ie" remarks

I thought adding " ie.visible " after the "Set ie = .... " was a brilliant insight - but nothing - not a flicker, as a parrot !

[danjuma]

Hi Dan,

XP home SP3
Excel 2003

added project references :-

'Microsoft XML v6.0
'Microsoft VBScript Regular Expressions 5.5

and contemplating adding winhttp services - as ( fiddling in the dark ! ) suspect i am getting crap all for the variable "ie" when watching "locals" window.

I cant figure out whether i have managed to "Set" ie

ie.visible does nothing ( forlorn hope ! )


Mucking about with windows api calls i leave to the pro's - but..... the devil drives !

Fixador,

What I mean is I am using OS sheet from the link below and it is working fine.

Thanks sebaku!

Here is an updated workbook incase anyone gets stuck http://www.mediafire.com/?c6q1zolxicu1xvq

[Fixador]

Agghh ! OS as in osknows - gott yer now ! and not OS as in "operating system" - yer got me there !

yes - using same xls