spaziometria non aggiorna piu le estrazioni

[paololotto]

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

 

[joe]

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.

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.

 

[paololotto]

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?

 

[joe]

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]

salve joe io ho lo stesso problema dell aggiornamento ,mi puoi spiegare la procedura ,io con la tecnologia sono negato.grazie.

 

[Marco-elle]

Grazie Joe,
ho problemi pure io con l'aggiornamento estrazioni,
mi sono salvato lo script e questa sera lo provo

 

[joe]

salve joe io ho lo stesso problema dell aggiornamento ,mi puoi spiegare la procedura ,io con la tecnologia sono negato.grazie.

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.

 

[adeleadele]

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.

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.

 

[adeleadele]

perchè mettendo questo programma le piramidi si fermano al 3/3/1987

 

[joe]

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'è.

 

[Oscar]

perchè mettendo questo programma le piramidi si fermano al 3/3/1987

Io ho provato e va benissimo , devi comunque chiudere spaziometria poi lo riapri

 

[CarmeloF]

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.

 

[CarmeloF]

Sono state aggiunte 0 estrazioni

Estrazioni totali 0

Utilizzato archivio del sito http://lottoscar.altervista.org/ArchivioLotto.italia.csv

joe ho eseguito le tue istruzioni è mi da questo.ti prego di avere un po di pazienza ,dopo aver incollato la lista cosa devo fare.grazie

 

[CarmeloF]

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

 

[CarmeloF]

cicli di 600 estrazioni,quindi serve analizzare ultime 600 estr.

 

[joe]

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.

 

[CarmeloF]

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...

 

[joe]

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...

Ciao,

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

nelle ultime 600 estrazioni.

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

 

[CarmeloF]

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

 

[CarmeloF]

sono riuscito ha caricare 511 estr il passaggio successivo per incorporarli al programma..archivio è rimasto al 2018.