Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Lotto Controle vernieuwde website  (gelezen 5447 keer)

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Lotto Controle vernieuwde website
« Gepost op: 03 maart 2023, 14:08:41 »
Dag,
nu "de rook om mijn hoofd is verdwenen"....kan ik mijn tijd weer meer gebruiken hier op het forum...
en daarom al direct een vraag :
voelt er zich iemand geroepen om de code ,om de lotto gegevens van de website op te halen , AAN TE PASSEN ?
de layout van de webpagina is veranderd en nu werkt de code natuurlijk niet meer...het betreft de code in module 1
Mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Controle vernieuwde website
« Reactie #1 Gepost op: 06 maart 2023, 10:47:42 »
Dag Arnold,

Ik had er in het weekend al eens naar gekeken maar niet meteen gereageerd omdat ik in stilte hoopte dat er uit een andere hoek misschien toch een oplossing zou komen.
Je voelt het dus al: ik kan van die vernieuwde site heel wat elementen binnenhalen maar niet hetgeen we nodig hebben.
Zowel op "nationale-loterij.be/onze-spelen/lotto/uitslagen-trekking" als op "nationale-loterij.be/uitslagen-trekkingen" doet zich hetzelfde voor, wat me nog meer het gevoel geeft dat er mogelijk doelbewust een extra veiligheid is ingebouwd.
Tegelijk sluit ik nog niet uit dat het wel degelijk mogelijk is, maar (al dan niet?) voorlopig zie ik het niet. Misschien slaagt iemand anders er wel in (of krijg ik nog een ultieme ingeving...)
Misschien nog even afwachten, en in het slechtste geval kan er nadien nog via een andere site geprobeerd worden?

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto Controle vernieuwde website
« Reactie #2 Gepost op: 06 maart 2023, 13:57:38 »
Dag Molly,
bedankt voor de hulp , voor zover ik weet was het "JEC" (ook excel expert) , die voor de juiste code heeft gezorgd : https://www.oplossing.be/excel/punt-duizendtallen-verwijderen/msg244157/#msg244157
hopelijk leest hij mijn vraag en wilt de tijd nemen om het te herbekijken....
Mvg,
Montagnard.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Controle vernieuwde website
« Reactie #3 Gepost op: 06 maart 2023, 14:20:17 »
Hallo Arnold,

Ik hoop het met jou! De techniek die in dat draadje aan bod is gekomen gebruik ik voor heel wat projecten voor eigen gebruik, het is soms een beetje puzzelen om de juiste elementen te pakken te krijgen, maar eens die gevonden is het verwerken ervan nog enkel er de geschiktste vba-mogelijkheden op loslaten.
Na mijn vorige post had ik nog wat verder geëxperimenteerd en blijf helaas dezelfde vaststellingen doen: de site wil mij moeiteloos allerlei elementen retourneren maar doet dat niet voor de getrokken nummers en de winstverdeling hoewel het duidelijk is waar ze te vinden zijn, dus ik acht de kans dat een ommetje langs een andere site nodig zal zijn nog groter dan deze morgen.
Uiteraard hoop ik dat iemand mijn ongelijk hier kan aantonen :)

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto Controle vernieuwde website
« Reactie #4 Gepost op: 06 maart 2023, 14:24:23 »
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Controle vernieuwde website
« Reactie #5 Gepost op: 06 maart 2023, 14:33:32 »
???
Ja natuurlijk, die had ik ook gebruikt, samen met nog een andere van de officiële lotto-website (zie reactie #1), om de nodige tests mee te doen.
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto Controle vernieuwde website
« Reactie #6 Gepost op: 06 maart 2023, 14:44:23 »
Nu gebruik ik terug het "oudere" bestand van Jean-Pierre waar je eerst via de knop "gewone trekking" of "extra trekking" naar de website gaat , daar het nodige kopieert , terug naar het bestand en dan op de knop "controle" klikken en alles wordt wel mooi op de juiste plaats gezet.
maar die versie die nu niet meer werkt met de nieuwe layouts, werkte veel prettiger , vandaar mijn initiële vraag  ;)
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto Controle vernieuwde website
« Reactie #7 Gepost op: 06 maart 2023, 19:52:20 »
Probeer deze eens te runnen. Zoals je ziet via een andere site gehaald.
Zoals ook in je eerdere draadje aangegeven, laat die website het niet toe om de data op deze manier binnen te halen.

Sub jec()
 Dim x00, it, Url, xhtml As Object
 Dim i As Long, x As Long
 ReDim ar(8, 0)
 
 Url = "https://www.geschenkwensen.be/lotto-uitslagen/"
 Set xhtml = CreateObject("HTMLFile")
 
 With CreateObject("MSXML2.XMLHTTP")
   .Open "GET", Url, False
   .send
    xhtml.body.innerHTML = .responseText
    x00 = Split(Replace(Replace(xhtml.getElementsByTagName("p")(5).innerText, " ", ""), "+", Chr(150)), Chr(150))
    For i = 20 To 27
      For Each it In Split(xhtml.getElementsByTagName("strong")(i).innerText, vbCrLf)
         If InStr(it, "€") Then
            ar(x, 0) = Replace(Split(it, "€ ")(1), ".", "") + 0
         Else
            ar(x, 0) = 0
         End If
         x = x + 1
      Next
    Next
 End With
 
 With ThisWorkbook.Sheets(1)
    .Range("D5").Resize(, 6) = x00
    .Range("D5").Resize(, 6) = .Range("D5").Resize(, 6).Value
    .Range("K5") = x00(UBound(x00))
    .Range("T8").Resize(x) = ar
 End With
End Sub

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Controle vernieuwde website
« Reactie #8 Gepost op: 07 maart 2023, 10:02:38 »
@ JEC,

Niet één, niet twee, maar zelfs drie maal heeft jouw post mij blij gemaakt, want
1) het bevestigt mijn vermoeden dat het via de eigenlijke lotto-website niet meer gaat
2) je hebt je toevlucht gezocht tot dezelfde alternatieve site waar ik al aan dacht
3) en je hebt al een groot deel van het werk van me overgenomen

@ Arnold,

De reden waarom ik zelf die weg nog niet was ingeslagen is enkel omdat ik hoopte dat er vanuit een of andere hoek een mogelijkheid zou verschijnen die het wel mogelijk maakte.
Omdat je in de vorige code ook nog eens de vraag aan de gebruiker had zitten om effectief de resultaten te verwerken heb ik de code van JEC nog lichtjes moeten uitbreiden met opvragen en behandelen van de datum, en dan nog enkel de stukjes code op hun juiste plaats zetten.
Dus hierbij alvast een eerste 2023-versie ;)

We kunnen dit niet meer op de manier van vroeger blijven bekijken: momenteel doen beide knoppen hetzelfde. Ik verwacht dat woensdag- en zaterdagtrekkingen geen verschil zullen maken (maar wil dat na woensdag voor de zekerheid wel eens testen), en wat extra trekkingen betreft wordt het al helemaal afwachten, maar dat zien we dán wel. Stuur gerust een berichtje als er een volgende extra trekking aankomt, want ik besteed daar zelf niet te veel aandacht aan, en dan zien we wel of een versie 2023.2 nodig is.

In ieder geval: al succes met deze versie!

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto Controle vernieuwde website
« Reactie #9 Gepost op: 07 maart 2023, 10:13:26 »
Dag Molly en Jec ,
beiden bedankt voor het helpen zoeken !
ik had ook al gekeken naar die methode via de alternatieve website , ik had dit bestand nog staan in mijn Excel map.
het werkt idd wel , afwachten of ook de woensdag trekkingen en de "extra" trekkingen op deze website worden weergegeven , ik zal zeker feedback geven indien het zover is.
jammer dat het niet meer werkt via de Lotto website zelf , maar dan is het maar zo.
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Lotto Controle vernieuwde website
« Reactie #10 Gepost op: 07 maart 2023, 11:20:18 »
Mooi dat het werkt! Webscraping zal altijd onbetrouwbaar blijven gezien pagina’s kunnen veranderen

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto Controle vernieuwde website
« Reactie #11 Gepost op: 09 maart 2023, 08:12:38 »
Update : de woensdag trekking komt ook mooi binnen , nu nog kijken of het werkt bij een "extra" trekking....
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lotto Controle vernieuwde website
« Reactie #12 Gepost op: 09 maart 2023, 10:13:43 »
Hallo Arnold,

Als ik de site van gisteren vergelijk met die van vandaag dan acht ik het héél waarschijnlijk dat het ook met de extra trekkingen in orde komt. Die schuift blijkbaar mooi op tussen alle andere trekkingen die op die pagina in chronologische volgorde worden getoond. Het komt erop neer dat wellicht altijd de meest recente op de plaats komt te staan die door onze macro wordt uitgelezen.
Enig aandachtspuntje zal dan nog zijn, vermits er soms 2 trekkingen op 2 dagen plaatsvinden, om op tijd je macro uit te voeren :)

Groetjes,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto Controle vernieuwde website
« Reactie #13 Gepost op: 05 april 2023, 09:08:59 »
Update :
ik krijg foutmelding , code wil niet verder lopen bij ophalen gegevens van de website , zie bijgesloten screencopy.
hopelijk lukt het om dit te corrigeren ?
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto Controle vernieuwde website
« Reactie #14 Gepost op: 05 april 2023, 11:57:56 »
laat maar , geen moeite meer in steken , als ik die regel als test even uitsluit dan krijg ik enkele regels verder een andere foutmelding...
telkens de website iets veranderd zullen er zich problemen voordoen , is dus al bewezen , daarom geen moeite meer doen  ;).
ik ga vanaf nu een oudere versie ( van Jean-Pierre ) gebruiken waarbij je zelf op de website van Lotto de gegevens moet kopiëren , als de layout daar veranderd dan kan ik dat aanpassen in de code...
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

 


www.combell.com