onChange event on a webpage combox

[meow]

Hey guys,

 

So I'm in a hockey pool at work and we have our own little program reading the NHL stats on their website. It's been working for years.

 

Here's the link to the NHL stats: http://www.nhl.com/stats/player?aggregate=1&gameType=2&report=skatersummary&pos=S&reportType=season&seasonFrom=20162017&seasonTo=20162017&filter=gamesPlayed,gte,1&sort=points,goals,assists

 

The problem now is that NHL changed the way to navigate to the next page. Last year it was a "next" link button. So we'd find that button and call the "click" event on it.

 

But as you can see in the link, at the bottom...it is now a combobox...and I can't seem to fire the onChange event. I can change the value just fine...but it won't go to the next page of stats.

 

 

Here's a quick and easy example of code in vb.net (please do not waste time judging the code or whatever, I'm just trying to find a way to fire the onChange event).

I have tried many ways that I found on google, but nothing seems to work. Anyone nice enough to try it out or tell me how to do it? Thanks.

 

I dont know whats wrong with the colors in the spoiler tag lol. just copy paste in vb.net

 

 

Imports SHDocVw
Imports MSHTML

Module Module1

    Sub Main()
        Dim ie As InternetExplorer

        ie = New InternetExplorer
        ie.Visible = True

        ie.Navigate("http://www.nhl.com/stats/player?aggregate=1&gameType=2&report=skatersummary&pos=S&reportType=season&seasonFrom=20162017&seasonTo=20162017&filter=gamesPlayed,gte,1&sort=points,goals,assists")

        Do
        Loop Until ie.ReadyState = tagREADYSTATE.READYSTATE_COMPLETE

        Dim all As IHTMLElementCollection
        all = ie.Document.all

        For Each elem As IHTMLElement3 In all
            If elem.className = "page-select-container" Then
                Dim pagerSelect As IHTMLSelectElement
                pagerSelect = elem.all(0) 'get the combobox

                pagerSelect.selectedIndex = 2 ' <--- This changes the value in the combox


                ''''the onchange event never works...
                pagerSelect.FireEvent("onChange", pagerSelect)
                pagerSelect.FireEvent("onChange")
                ''''
            End If
        Next

        ie.Quit()
    End Sub

End Module

 

 

[meow]

uugh and by combox i meant combobox....man i cant spell

[Symfony]

You could use something like selenium with Java.

I realize that's probably not necessarily what you're looking for but it could be easier and more efficient down the road.

[meow]

You could use something like selenium with Java.

I realize that's probably not necessarily what you're looking for but it could be easier and more efficient down the road.

 

That's actually interesting.

 

But our hockey pool program is not my own and it works in VBA Excel and no one wants to redo it all.

 

Thanks for sharing though

[Symfony]

That's actually interesting.

 

But our hockey pool program is not my own and it works in VBA Excel and no one wants to redo it all.

 

Thanks for sharing though

I don't much know about VBA unfortunately, otherwise I'd be more than willing to help. I just know that we use Selenium for RTA at work, though come to think of it, that may not be the best approach for this.

 

That being said, have you considered getting the data differently? Rather than working with the page's elements, couldn't you work with some sort of API or query to get the results in a less bloated way?