XMLHTTP method

[Bruzio]

Hi to everybody, I'm using IE, but this method is slow so I want to change it to XLMHTTP.
I have tried but no output.

This is my IE code:

Sub inplay()

    Dim IE As Object
    Dim item As Object
    Dim r As Integer
    Dim myurl As String

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set IE = CreateObject("InternetExplorer.application")
    
    myurl = "https://www.nowgoal.pro/"
  
    With IE
        .navigate myurl
        .Visible = False
  
        Do While IE.Busy = True Or IE.readyState <> 4: DoEvents: Loop
  
    End With
    
    Application.Wait (Now + TimeValue("00:00:10"))

    r = 2

    For Each item In IE.document.getElementsByClassName("item")

        With Sheets("inplay")
            .Range("A" & r).Value = item.getElementsByClassName("gameName leaRow")(0).innerText
            .Range("B" & r).Value = Trim(item.getElementsByClassName("homeTeam").item(0).getElementsByTagName("span").item(0).innerText)
            .Range("C" & r).Value = Trim(item.getElementsByClassName("guestTeam").item(0).getElementsByTagName("span").item(0).innerText)
            'others
        End With

        r = r + 1

    Next item

    IE.Quit
    Set IE = Nothing
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub

Thanks a lot

Regards

 

[Bruzio]

what data do you need in the scrape

League, time, teams, score.
I will try and post the code

 

[Bruzio]

Hi, may I update this discussion?

 

[diddi]

i think the only possible method you will get to work is selenium driver. i have had a look at the way the site works and it is not a simple XMLHTTP target unfortunately

 

[Bruzio]

i think the only possible method you will get to work is selenium driver. i have had a look at the way the site works and it is not a simple XMLHTTP target unfortunately

I wanted to update the discussion

I inspected the page, here is the html result :

A[1]=[1984963,48,28874,3617,'PKNP FC','Negeri Sembilan','2021-03-17 08:50:00','2021-03-17 09:52:27',3,0,2,0,1,0,0,0,1,'8','2',,'True',0,'',64,'',2.75,'True',2,9,1,744,'','','',0];

A[2]=[1969294,7,201,1612,'FC Tokyo','Shonan Bellmare','2021-03-17 09:00:00','2021-03-17 10:03:20',3,2,2,2,1,0,0,0,1,'10','15',1,'True',0.75,'',46,'',2.5,'True',3,2,1,943,'1','','12℃～13℃',1];

B[1]=[31,'SPA D1','Spanish La Liga','#006633',1,'league.aspx?sclassid=31',,'',];

B[2]=[34,'ITA D1','Italian Serie A','#0088FF',1,'league.aspx?sclassid=34',,'',];

s1 = html.body.innerHTML
p1 = InStr(s1, "=[") + 2
p2 = InStrRev(s1, "]")
s2 = Mid(s1, p1, p2 - p1)
vals = Split(s2, ",")

credits to @John_w


Now, I'am trying to find each array in vals

    For i = LBound(vals) To UBound(vals)
        Debug.Print vals(0); vals(4); vals(5)
    Next i

What I'm doing wrong?

I appreciate

 

[Bruzio]

Hi, possible to have a light help?

I would like to resolve without disturbing

 

[Worf]

Hello


I am at work right now but will look into this during the weekend.

 

[Worf]

Hi

Sub sat()
Dim s$, p1, vals, i%, f$
s = "A[1]=[1984963,48,28874,3617,'PKNP FC','Negeri Sembilan','2021-03-17 08:50:00'," & _
"'2021-03-17 09:52:27',3,0,2,0,1,0,0,0,1,'8','2',,'True',0,'',64,'',2.75,'True',2,9,1,744,'','','',0];"
s = s & "A[2]=[1969294,7,201,1612,'FC Tokyo','Shonan Bellmare','2021-03-17 09:00:00'," & _
"'2021-03-17 10:03:20',3,2,2,2,1,0,0,0,1,'10','15',1,'True',0.75,'',46,'',2.5,'True',3,2,1,943,'1','','12?~13?',1];"
s = s & "B[1]=[31,'SPA D1','Spanish La Liga','#006633',1,'league.aspx?sclassid=31',,'',];"
s = s & "B[2]=[34,'ITA D1','Italian Serie A','#0088FF',1,'league.aspx?sclassid=34',,'',];"

p1 = InStr(s, "=[") + 2
vals = Split(Mid(s, p1, InStrRev(s, "]") - p1), ",")
f = ""
For i = 10 To UBound(vals) - (UBound(vals) Mod 10) Step 10
    f = f & "Item " & i & " is " & vals(i) & vbLf
Next
MsgBox f
End Sub

 

[diddi]

what you will find i believe is that whilst you can process html copied from the site, you will not be able to POST or GET the data via XMLHTTP. also the site is constantly sending updates which require a cookie transaction to occur

 

[Bruzio]

Hi, I'm able to get just one string.
Here is the js nowgoal.pro

 

[Bruzio]

Hi

Sub sat()
Dim s$, p1, vals, i%, f$
s = "A[1]=[1984963,48,28874,3617,'PKNP FC','Negeri Sembilan','2021-03-17 08:50:00'," & _
"'2021-03-17 09:52:27',3,0,2,0,1,0,0,0,1,'8','2',,'True',0,'',64,'',2.75,'True',2,9,1,744,'','','',0];"
s = s & "A[2]=[1969294,7,201,1612,'FC Tokyo','Shonan Bellmare','2021-03-17 09:00:00'," & _
"'2021-03-17 10:03:20',3,2,2,2,1,0,0,0,1,'10','15',1,'True',0.75,'',46,'',2.5,'True',3,2,1,943,'1','','12?~13?',1];"
s = s & "B[1]=[31,'SPA D1','Spanish La Liga','#006633',1,'league.aspx?sclassid=31',,'',];"
s = s & "B[2]=[34,'ITA D1','Italian Serie A','#0088FF',1,'league.aspx?sclassid=34',,'',];"

p1 = InStr(s, "=[") + 2
vals = Split(Mid(s, p1, InStrRev(s, "]") - p1), ",")
f = ""
For i = 10 To UBound(vals) - (UBound(vals) Mod 10) Step 10
    f = f & "Item " & i & " is " & vals(i) & vbLf
Next
MsgBox f
End Sub

Hi Worf, I'm trying your code but I can't adapt it. I think I should opt to parse only strings starting with A = [].
My wish is to have all strings with A [] in each row splitted by the comma.

Using:

s1 = html.body.innerHTML
p1 = InStr(s1, "=[") + 2
p2 = InStrRev(s1, "]")
s2 = Mid(s1, p1, p2 - p1)
vals = Split(s2, ",")

    For i = LBound(vals) To UBound(vals)
        [B]Debug.Print vals(0); vals(4); vals(5)[/B]
    Next i

I'm able to parse one string

Here as it should be