Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
cosi è meglio................
Sub Main()
Dim n,r,d,ruota
For n = EstrazioneFin - 1 To EstrazioneFin
d = Anno(n) & "/" & FormattaStringa(Mese(n),"00") & "/" & FormattaStringa(giorno(n),"00")
For r = 1 To 8
If r = 8 Then
Scrivi d & " " & "RM" & " " &...
Vi lascio anche questo script , aggiorna archivio per il Superenalotto prende i dati dal sito GNTN-PGD.it .
https://www.mediafire.com/file/apgv0as0j03rcv3/Aggiornamento+Automatico+SuperEnalotto(OTTIMIZZATO).ls/file
scarica lo script , aggiorna archivio SMPT prende i dati dal sito da brightstarlottery.
https://www.mediafire.com/file/2vy74h4oerc9i5r/ok.Aggiorna_Lotto+-+www.brightstarlottery.it.ls/file
Provate questo piccolo programma. Scompatta cartella su desktop e dare i permessi per eseguire.
https://www.mediafire.com/file/fayucdiqzipiqja/UpDate.zip/file
Scusa , la cartella AppData è una cartella di sistema è nascosta, devi dal menu' di Explorer :
clicca su visualizza , poi mostra ed infine spunta elementi nascosti. Ciao
Ho modificato così:
Sub Main()
Dim ruota,pos,es,numero,ultimaEstrazione,estrazioneIniziale,estrazioneFinale
Dim numeriRicerca(5),posizioni(5)
Dim i,j,n,posIndex
Dim conteggioNumeri(90),risultato(6,15)
Dim valore,ce,tipo
Dim...
Buongiorno, Buon anno a tutti
X mastrogino devi modificare questa riga
G= G+1 : ImpostaGiocata G,Nu,Ru,Po,Co ',1 basta mettere apostrofo prima della op.1 (indica ferma giocata all' uscita ambata).
Saluti.