put value in input box web page

[2009luca]

Based the site:

Generatore di Numeri Superenalotto Casuali (Gratis)

Genera numeri casuali per la prossima estrazione del Superenalotto e giocali direttamente online con il noostro tool automatico.

risultatilotto.com

how to put 6 in input box (combinations) to the default have 5

I just use IE Object

My test code dont work!

Sub InserisciValoreInPaginaWeb()

Dim IE As Object
Dim HTMLDoc As Object
Dim HTMLInput As Object
Dim URL As String
Dim ValoreDaInserire As String

' Imposta l'URL della pagina web
URL = "https://risultatilotto.com/superenalotto/generatore-numeri/" ' Sostituisci con l'URL della tua pagina

' Imposta il valore da inserire
ValoreDaInserire = "Hello World"

' Crea un'istanza di InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")

' Nascondi la finestra del browser (opzionale)
IE.Visible = False

' Naviga alla pagina web
With IE
.navigate URL
Do While .readyState <> 4 ' Aspetta che la pagina sia caricata
DoEvents
Loop

' Imposta il valore nell'input text
Set HTMLDoc = .document
Set HTMLInput = HTMLDoc.getElementById("combinations675") ' Sostituisci "myInput" con l'ID del tuo input

If Not HTMLInput Is Nothing Then
HTMLInput.Value = ValoreDaInserire
Else
MsgBox "Elemento HTML con ID 'myInput' non trovato."
End If

End With

' Chiudi il browser (opzionale)
IE.Quit
Set IE = Nothing

End Sub