Novità

spaziometria non aggiorna piu le estrazioni

P

paololotto

Super member
Ciao a tutti
Ho un problema....seguo il lotto molto raramente e di conseguenza aggiorno le estrazioni di spaziometria una volta ogni 3-4 mesi
Stamattina volevo appunto fare l'aggiornamento delle estrazioni ma purtroppo mi da errore
Tramite agenziadoganemonopoli.gov.it mi da errore 429 activex component can't create object cliccando su ok mi compare il seguente messaggio impossibile istanziare internet explorer
Se invece faccio l'aggiornamento tramite lottomaticaitalia.it l'aggiornamento rimane fermo alla data del 20/02/2021
Perche succede questo? ho istallato l'ultima versione di spaziometria, la 1.6.34
Grazie
 
Ciao Paolo,

Messaggi simili al tuo si contano a decine ed una risposta non si può dare,

perché le cause del mancato aggiornamento possono essere molte.

Puoi provare ad utilizzare questo mio script.

Codice: 
Option Explicit
Sub Main
    Dim sFileLoc
    Dim nEstrTot,sDataLastEstr,k,r,p
    Dim sDataEstr,nNumEstr,nSalvate
    Dim b
    Dim sFileBd
    Dim sLink
    Dim Ia,sVV,x,pp
    sLink = "http://lottoscar.altervista.org/ArchivioLotto.italia.csv"
    b = False
    nSalvate = 0
    sFileBd = GetDirectoryAppData & "BaseDati.dat"
    sFileLoc = GetDirectoryAppData & "temp\"
    If CreaDirectory(sFileLoc) Then
        sFileLoc = sFileLoc & "Estrazioni.txt"
        If DownloadFromWeb(sLink,sFileLoc) Then
            nEstrTot = EstrazioniArchivio
            sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
            Ia = IndiceAnnuale(nEstrTot)
            ReDim aRighe(0)
            Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
            For k = 1 To UBound(aRighe)
                ReDim aV(0)
                Call SplitByChar(aRighe(k),";",aV)
                If UBound(aV) = 56 Then
                    sDataEstr = Mid(aV(0),1,10)
                    If b Then
                        Scrivi sDataEstr
                        Ia = Ia + 1 : pp = 1
                        nNumEstr =(Ia)
                        ReDim aEstr(11,5)
                        r = 1 : p = 0
                        For x = 2 To 56
                            p = p + 1 : pp = pp + 1
                            aEstr(r,p) = eVal(aV(pp))
                            If p = 5 Then r = r + 1 : p = 0
                        Next
                        If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                            nSalvate = nSalvate + 1
                            Call Messaggio(nSalvate)
                        End If
                    End If
                    If sDataEstr = sDataLastEstr Then b = True
                End If
            Next
            If nSalvate > 0 Then AllineaArchivi
        Else
            MsgBox "Errore download verificare il link con il browser"
        End If
        Call Scrivi("")
        Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
        Call Scrivi("")
        Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
        Call Scrivi("")
        Call Scrivi("Utilizzato archivio del sito " & sLink)
        Call Scrivi("")
    End If
End Sub

Se fai ci fai sapere, se funziona fai cosa gradita.

:)
 
ciao
grazie per la tua risposta
Si funziona, l'archivio estrazioni risulta aggiornato
Da ora in poi devo aggiornare sempre le estrazioni tramite il tuo script oppure grazie appunto a questo il problema si è risolto?
 
Ciao,

Le cause di un mancato funzionamento sono molte.

Potrebbe essere che l'archivio che si sta tentando di leggere non sia aggiornato.

Oppure si cambiato il layout della pagina in cui erano presenti le estrazioni,

ed a seguito di questo il programma preposto non riesce a leggerle.

Potrebbe essere che il sito considerato, sia momentaneamente fuori uso,

un problema di comunicazioni, del browser o di molte altre cause.

Dunque se non si riesce diversamente... con questo script si ha una occasione in più.

Utile, se funziona, dove le altre soluzioni falliscono il loro tentativo di aggiornamento.

:)
 
CarmeloF ha scritto:
salve joe io ho lo stesso problema dell aggiornamento ,mi puoi spiegare la procedura ,io con la tecnologia sono negato.grazie.
Clicca per espandere...

Ciao Carmelo, un saluto a tutte/i.

Con Google puoi cercare: bQPi_WlsTI0

Il video contiene un esempio di come si aprono ed eseguono gli script.

(Dopo che questi sono stati creati e salvati).

Lo script è il testo presente al messaggio #2. Quindi

* Copi il testo di questo script

* lo incolli nella finestra vuota dell'editor

* lo esegui ... e dovrebbe aggiornarsi l'archivio di Spaziometria.

* Poi salvi questo script.

Lo potrai usare, per i prossimi aggiornamenti.

In questo momento ha estrazioni utili fino al 25/09/2021.

:)
 
joe ha scritto:
Ciao Paolo,

Messaggi simili al tuo si contano a decine ed una risposta non si può dare,

perché le cause del mancato aggiornamento possono essere molte.

Puoi provare ad utilizzare questo mio script.

Codice: 
Option Explicit
Sub Main
    Dim sFileLoc
    Dim nEstrTot,sDataLastEstr,k,r,p
    Dim sDataEstr,nNumEstr,nSalvate
    Dim b
    Dim sFileBd
    Dim sLink
    Dim Ia,sVV,x,pp
    sLink = "http://lottoscar.altervista.org/ArchivioLotto.italia.csv"
    b = False
    nSalvate = 0
    sFileBd = GetDirectoryAppData & "BaseDati.dat"
    sFileLoc = GetDirectoryAppData & "temp\"
    If CreaDirectory(sFileLoc) Then
        sFileLoc = sFileLoc & "Estrazioni.txt"
        If DownloadFromWeb(sLink,sFileLoc) Then
            nEstrTot = EstrazioniArchivio
            sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
            Ia = IndiceAnnuale(nEstrTot)
            ReDim aRighe(0)
            Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
            For k = 1 To UBound(aRighe)
                ReDim aV(0)
                Call SplitByChar(aRighe(k),";",aV)
                If UBound(aV) = 56 Then
                    sDataEstr = Mid(aV(0),1,10)
                    If b Then
                        Scrivi sDataEstr
                        Ia = Ia + 1 : pp = 1
                        nNumEstr =(Ia)
                        ReDim aEstr(11,5)
                        r = 1 : p = 0
                        For x = 2 To 56
                            p = p + 1 : pp = pp + 1
                            aEstr(r,p) = eVal(aV(pp))
                            If p = 5 Then r = r + 1 : p = 0
                        Next
                        If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                            nSalvate = nSalvate + 1
                            Call Messaggio(nSalvate)
                        End If
                    End If
                    If sDataEstr = sDataLastEstr Then b = True
                End If
            Next
            If nSalvate > 0 Then AllineaArchivi
        Else
            MsgBox "Errore download verificare il link con il browser"
        End If
        Call Scrivi("")
        Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
        Call Scrivi("")
        Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
        Call Scrivi("")
        Call Scrivi("Utilizzato archivio del sito " & sLink)
        Call Scrivi("")
    End If
End Sub

Se fai ci fai sapere, se funziona fai cosa gradita.

:)
Clicca per espandere...
 
Quel programma serve per aggiornare gli archivi.

Per avere indicazioni sulle piramidi occorre

sapere a cosa ti riferisci e maggiori dettagli sul problema.

Tuttavia è possibile che tu abbia cancellato l'archivio

e forse non si può aggiornare

quello che non c'è.

:)
 
joe grazie,se ti puo essere utile in 180 estr 3 terni a tutte passano da tre a quattro volte,sono venti li ho postati in quaterne freq io gioco 15 42 53.prossimo è lo sfaldamento di uno.ovviamente esiste un alta probabilita nessuna certezza.
 
joe sono convinto almeno entro l anno si ripetano altre due quaterne,ho notato che nelle quaterne usciti 3 volte diversi sono compresi in un ciclo di 800 estrazioni,potresti gentilmente pubblicare le quaterne freq delle ultime 800 estr se non dovesse esserci una a quota 3 probabilmente una a quota 2 dovrebbe sfaldarsi.grazie
 
Ciao Carmelo.

Il problema è che probabilmente tu hai cancellato tutto l'archivio

e forse non si può aggiornare ciò che non c'è.

Lo deduco da: "Estrazioni Totali Zero".

Questa frase dovrebbe esistere solo se non si ha più l'archivio.

Ti consiglio dunque di leggere questo:

PROGRAMMA SPAZIOMETRIA

buonasera, sono molto insicuro se cela faccio non so usare questi programmi , ho fatto unsguardo nella base dati arrivato sul base dati.dat mi indica il cambiamento in data 23.1.21 ore 15,41 se passo da Agg. Silop 849 bytes 1.8.19 le estrazioni sono passati al archivio L1 non mi danno...
forum.lottoced.com

in particolare i messaggi subito prima del #1832,

che contiene le istruzioni per ripristinare l'archivio inesistente.

:)
 
grazie joe per la tua disponibilità, Puoi pubblicare le quaterne frequenti degli ultimi 600 concorsi, ho delle teorie mi serve questo dato per capire se già sfaldata.non sono pratico di forum,ti trovo su questa pagina oppure su quaterne frequenti.se trovo delle convergenze ricambierò il favore...
 
CarmeloF ha scritto:
grazie joe per la tua disponibilità, Puoi pubblicare le quaterne frequenti degli ultimi 600 concorsi, ho delle teorie mi serve questo dato per capire se già sfaldata.non sono pratico di forum,ti trovo su questa pagina oppure su quaterne frequenti.se trovo delle convergenze ricambierò il favore...
Clicca per espandere...

Ciao,

questo piccolo script fornisce la lista aggiornata delle quaterne che si sono ripetute,

nelle ultime 600 estrazioni.

Codice: 
Option Explicit
Sub Main
  Dim Ini,Fin : Ini = EstrazioneFin - 599 : Fin = EstrazioneFin
  Dim A,B,C,D,F,K,R,Nu(4),Ru(1) : Ru(1) = TT_
  For A = 1 To 87 : Nu(1) = A
    AvanzamentoElab 1,87,A
    For B = A + 1 To 88 : Nu(2) = B
      For C = B + 1 To 89 : Nu(3) = C
        For D = C + 1 To 90 : Nu(4) = D
          F = SerieFreqTurbo(Ini,Fin,Nu,Ru,4)
          If F >= 2 Then
          K = K + 1
          Scrivi "L(" & K & ") = " &   """" & StringaNumeri(Nu,,True) & """" 
        Next
      Next
    Next
  Next
  Scrivi TempoTrascorso
End Sub

:)
 
ti ringrazio di cuore,come faccio ha tradurlo... mi semplificavi la vita se li pubblicavi come hai fatto con le quaterne ripetute 3v .credo che lo stesso criterio che ho usato per i terni valga anche per le quaterne ,mentre per i terni non si possono giocare diverse volte 20euro per le quaterne è 12000 euro la posta. mi dispiace per il fastidio che ti sto recando,spero che sia ricompensato con una bella vincita....grazie ancora
 
sono riuscito ha caricare 511 estr il passaggio successivo per incorporarli al programma..archivio è rimasto al 2018.
 

Allegati

  • spaziomettttt.PNG
    spaziomettttt.PNG
    100,4 KB · Visite: 27
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto