Novità

perché non aggiorna

joe

Advanced Member >PLATINUM PLUS<
Ciao

prova questo script :

Codice:
Option Explicit
Sub Main
'Agg_Arc_Wget_3 By Joe
   Dim sCommand,sPercorsoWget,sDirFileDestLocal,sFileBackup,sUrl,sFileBat,DataIni,b,nTimeoutSec
   sDirFileDestLocal = GetDirectoryTemp & "Archivio.txt"
   sFileBackup = sDirFileDestLocal & ".bak"
   sPercorsoWget = GetDirectoryAppData & "wget.exe"
   sUrl = "sLink = https://www.silop.it/Archivio(televideo)/Archivio.txt"
   sCommand = """" & sPercorsoWget & """" & " -O " & """" & sDirFileDestLocal & """" & " --no-check-certificate " & sUrl
   nTimeoutSec = 60
   If FileEsistente(sPercorsoWget) Then
      If FileEsistente(sDirFileDestLocal) Then
         b = RinominaFile(sDirFileDestLocal,sFileBackup)
      Else
         b = True
      End If
      If b Then
         sFileBat = GetDirectoryTemp & "Download.bat"
         Call ScriviFile(sFileBat,sCommand,True,False)
         Call LanciaFile(sFileBat)
         Messaggio "Analisi Estrazioni"
         DataIni = Now
         Do While FileEsistente(sDirFileDestLocal) = False
            If DateDiff("s",DataIni,Now) > nTimeoutSec Then Exit Do
         Loop
         If FileEsistente(sDirFileDestLocal) Then
            Call EliminaFile(sFileBackup)
            Call EliminaFile(sFileBat)
            CloseFileHandle(sUrl)
            AGG_S_III(sDirFileDestLocal)
         Else
            Scrivi "Attenzione !!!"
            Scrivi "Il file delle estrazioni non è stato scaricato in " & GetDirectoryAppData
            Call RinominaFile(sFileBackup,sDirFileDestLocal)
         End If
      Else
         Scrivi "Attenzione !!!"
         Scrivi "Non è stato possibile creare il backup delle estrazioni"
      End If
   Else
      Scrivi "Attenzione !!!"
      Scrivi "Il file wget.exe versione 1.19.4 deve essere presente nel percorso: " & GetDirectoryAppData
   End If
End Sub
Sub AGG_S_III(sDirFileDestLocal)
   'MsgBox sDirFileDestLocal
   Dim sFileLoc
   Dim nEstrTot,sDataLastEstr,k,r,e
   Dim sDataEstr,nNumEstr,nSalvate
   Dim b
   Dim sFileBd
   Dim sLink
   Dim Ia,N,sVV,X,T,D
   Dim CfrData
   'sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
   b = False : N = False
   nSalvate = 0
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   sFileLoc = GetDirectoryAppData & "temp\"
   'If CreaDirectory(sDirFileDestLocal) Then
   Messaggio "Lettura Archivio Remoto ..."
   If FileEsistente(sDirFileDestLocal) Then
      T = Now
      Do While D <= 10
         D = DateDiff("s",T,Now)
         AvanzamentoElab 1,10,D
      Loop
      nEstrTot = EstrazioniArchivio
      sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
      Ia = IndiceAnnuale(nEstrTot)
      ReDim aRighe(0)
      Call LeggiRigheFileDiTesto(sDirFileDestLocal,aRighe)
      'MsgBox (UBound(aRighe))
      For k = 1 To UBound(aRighe) 'To 0 Step - 1
         ReDim aV(0) ': Scrivi Len(aRighe(k))
         If Len(aRighe(k)) = 118 Then
            sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4) ': Scrivi sDataEstr
            sVV = Right(aRighe(k),110) ': Scrivi sVV
            If b Then
               If(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0
               If sDataEstr <> sDataLastEstr Then
                  Ia = Ia + 1
                  nNumEstr =(Ia)
                  'ColoreTesto 4 : Scrivi Ia : ColoreTesto 0
                  'ColoreTesto 1 : Scrivi sDataEstr : ColoreTesto 0
                  'ColoreTesto 2 : Scrivi sVV : ColoreTesto 0
                  If nNumEstr > 0 And IsDate(sDataEstr) Then
                     ReDim aEstr(11,5)
                     r = 1 : e = 0
                     For X = 1 To 110 Step 2
                        e = e + 1
                        'Scrivi Mid(sVV,x,2) & " ",0,0
                        aEstr(r,e) = Mid(sVV,X,2)
                        If e = 5 Then r = r + 1 : e = 0 ': Scrivi
                     Next
                     'ScriviMatrice(aEstr)
                     If CfrData <> Left(sDataEstr,5) Then
                        If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                           CfrData = Left(sDataEstr,5)
                           nSalvate = nSalvate + 1
                           Call Messaggio(nSalvate)
                        End If
                     Else
                        ColoreTesto 2
                        Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
                        ColoreTesto 0
                     End If
                  End If
                  sDataLastEstr = sDataEstr
               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("")
   ColoreTesto 1 : Call Scrivi("PlugIn per Spaziometria V.3.0 By Joe ",True) : ColoreTesto 0
   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 www.silop.it")
   Call Scrivi("")
   'End If
End Sub

Fammi sapere quando lo hai scaricato, e se funziona, così eventualmente,

lo tolgo o lo correggo .... affinché non si crei inutile confusione.

:)
 
Ultima modifica:

druid

Super Member >PLATINUM<
Ciao druid avrai letto tutto ecco che ne pensi cosa posso fare è possibile rimediare..?
Ciao Sandrina,
hai - per adesso - 3 opzioni:
1- lo script del bravo joe su riportato
2 - le poche righe di codice al post #1 di questa discussione
3 - l' utility di pfca al post #83 della stessa discussione
Ciao
 

sandrina50

Super Member >PLATINUM<
BUON GIORNO DRUID..IO HO COPIATO LO SCRIPT PERO' DOVRESTI SPIEGARMI DOVE LO DEVO CARICARE IO COME AVRAI CAPITO NON HO GRANDI CAPACITA' TECNOLOGICHE SARESTI COSI GENTILE DI SPIEGARMI.. MAGARI MI VORREBBE UN PROGRAMMA X LEGGERLO CHE NON HO DIMMI QUALCOSA GRAZIE CIAO
 

Giggio

Super Member >PLATINUM<
Sandrina buongiorno , scarica qesto file , scompattalo in una cartella e poi fai doppio click su AggiornaEstrazioni.exe
Nella cartella dopo aver scompattato dovranno esserci 2 file , il primo quello che devi cliccare il secondo wget.exe.
Questa utility molto banalmente prende l'archivio da Silop e lo sostituisce , si basa su wget ed è stato testato sia su xp che su win 10



Dimenticavo con Spaziometria chiuso.



 
Ultima modifica:

druid

Super Member >PLATINUM<
Buongiorno Sandrina,
lo script va' "caricato" in Spaziometria --> Gestione script. Dal menu' che si apre cliccandoci sopra scegli la prima voce "elabora script". Si aprira' un schermata su cui ricopiare lo script (cancella le tre voci esistenti visto che sono gia' comprese nello script (Option Explicit - Sub Main - End Sub).
Per farlo partire clicca l' icona "fulmine" .


Immagine.png

Se non ci sono problemi di altra "natura" l' archivio dovrebbe aggiornarsi.
Ricordati di salvare lo script con un nome in modo da poterlo richiamare all' occasione.
Ciao
 

joe

Advanced Member >PLATINUM PLUS<
Prova a cercare con google

Tutorial Spaziometria Roy o qualcosa di simile.

Il programma per eseguirlo è Spaziometria.

A grandi linee ed in estrema sintesi devi incollare il testo del programma (cioè lo script)

nella finestra dell'editor ed in ultimo eseguirlo lanciandolo.

:)
 

joe

Advanced Member >PLATINUM PLUS<
Ringrazio Druid

per aver fornito la descrizione grafica di quanto ho scritto.

Mi scuso per aver "sovrapposto" la mia risposta scritta contemporaneamente.

:)
 

joe

Advanced Member >PLATINUM PLUS<
Giggio, è Interessante quanto hai proposto anche se non è molto trasparente.

La versione di Wget a corredo sembra piuttosto datata, 1.16.3,

riesce a collegarsi al sito di Silop ?

Confermo che funziona con W-Vista.

:) BRAVO.
 

Giggio

Super Member >PLATINUM<
ciao Joe , per renderlo semplice a Sandrina ho semplicemente creato l'eseguibile dallo script già noto, facendo una modifica affinche usasse il wget presente nello stesso path dell'eseguibile.
Questa versione di wget anche se datata ha il pregio di essere compilata in modo "static" ovvero contiene interamente le librerie esterne di cui ha bisogno , è a 32 bit e quindi funziona su tutti i sistemi in modo "stand alone".
Forse si poteva trovare una versione piu recente sempre compilata static , io ho fatto delle prove e siccome questa ha funzionato l'ho tenuta.
Scaricata da qui

 

joe

Advanced Member >PLATINUM PLUS<
Ok grazie,

Chiarissimo il mio dubbio era sull'eventuale ricorso ad un altro archivio.

Nel frattempo ho visto che l'eseguibile si riferisce al sito di Silop ...

Dunque ora è tutto chiaro.

Grazie per il know-how.

:)
 

Giggio

Super Member >PLATINUM<
Ok grazie,

Chiarissimo il mio dubbio era sull'eventuale ricorso ad un altro archivio.

Nel frattempo ho visto che l'eseguibile si riferisce al sito di Silop ...

Dunque ora è tutto chiaro.

Grazie per il know-how.

:)
si lo avevo scritto anche in un messaggio precedente che però si era sovrapposto ai vostri , perciò ho replicato
 

sandrina50

Super Member >PLATINUM<
Prova a cercare con google

Tutorial Spaziometria Roy o qualcosa di simile.

Il programma per eseguirlo è Spaziometria.

A grandi linee ed in estrema sintesi devi incollare il testo del programma (cioè lo script)

nella finestra dell'editor ed in ultimo eseguirlo lanciandolo.

:)
ciao joe ho fatto ma quando cerco di eseguirlo mi da questo
 

Allegati

  • PER JOE.jpg
    PER JOE.jpg
    73,9 KB · Visite: 10

sandrina50

Super Member >PLATINUM<
Ciao

prova questo script :

Codice:
Option Explicit
Sub Main
'Agg_Arc_Wget_3 By Joe
   Dim sCommand,sPercorsoWget,sDirFileDestLocal,sFileBackup,sUrl,sFileBat,DataIni,b,nTimeoutSec
   sDirFileDestLocal = GetDirectoryTemp & "Archivio.txt"
   sFileBackup = sDirFileDestLocal & ".bak"
   sPercorsoWget = GetDirectoryAppData & "wget.exe"
   sUrl = "sLink = https://www.silop.it/Archivio(televideo)/Archivio.txt"
   sCommand = """" & sPercorsoWget & """" & " -O " & """" & sDirFileDestLocal & """" & " --no-check-certificate " & sUrl
   nTimeoutSec = 60
   If FileEsistente(sPercorsoWget) Then
      If FileEsistente(sDirFileDestLocal) Then
         b = RinominaFile(sDirFileDestLocal,sFileBackup)
      Else
         b = True
      End If
      If b Then
         sFileBat = GetDirectoryTemp & "Download.bat"
         Call ScriviFile(sFileBat,sCommand,True,False)
         Call LanciaFile(sFileBat)
         Messaggio "Analisi Estrazioni"
         DataIni = Now
         Do While FileEsistente(sDirFileDestLocal) = False
            If DateDiff("s",DataIni,Now) > nTimeoutSec Then Exit Do
         Loop
         If FileEsistente(sDirFileDestLocal) Then
            Call EliminaFile(sFileBackup)
            Call EliminaFile(sFileBat)
            CloseFileHandle(sUrl)
            AGG_S_III(sDirFileDestLocal)
         Else
            Scrivi "Attenzione !!!"
            Scrivi "Il file delle estrazioni non è stato scaricato in " & GetDirectoryAppData
            Call RinominaFile(sFileBackup,sDirFileDestLocal)
         End If
      Else
         Scrivi "Attenzione !!!"
         Scrivi "Non è stato possibile creare il backup delle estrazioni"
      End If
   Else
      Scrivi "Attenzione !!!"
      Scrivi "Il file wget.exe versione 1.19.4 deve essere presente nel percorso: " & GetDirectoryAppData
   End If
End Sub
Sub AGG_S_III(sDirFileDestLocal)
   'MsgBox sDirFileDestLocal
   Dim sFileLoc
   Dim nEstrTot,sDataLastEstr,k,r,e
   Dim sDataEstr,nNumEstr,nSalvate
   Dim b
   Dim sFileBd
   Dim sLink
   Dim Ia,N,sVV,X,T,D
   Dim CfrData
   'sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
   b = False : N = False
   nSalvate = 0
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   sFileLoc = GetDirectoryAppData & "temp\"
   'If CreaDirectory(sDirFileDestLocal) Then
   Messaggio "Lettura Archivio Remoto ..."
   If FileEsistente(sDirFileDestLocal) Then
      T = Now
      Do While D <= 10
         D = DateDiff("s",T,Now)
         AvanzamentoElab 1,10,D
      Loop
      nEstrTot = EstrazioniArchivio
      sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
      Ia = IndiceAnnuale(nEstrTot)
      ReDim aRighe(0)
      Call LeggiRigheFileDiTesto(sDirFileDestLocal,aRighe)
      'MsgBox (UBound(aRighe))
      For k = 1 To UBound(aRighe) 'To 0 Step - 1
         ReDim aV(0) ': Scrivi Len(aRighe(k))
         If Len(aRighe(k)) = 118 Then
            sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4) ': Scrivi sDataEstr
            sVV = Right(aRighe(k),110) ': Scrivi sVV
            If b Then
               If(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0
               If sDataEstr <> sDataLastEstr Then
                  Ia = Ia + 1
                  nNumEstr =(Ia)
                  'ColoreTesto 4 : Scrivi Ia : ColoreTesto 0
                  'ColoreTesto 1 : Scrivi sDataEstr : ColoreTesto 0
                  'ColoreTesto 2 : Scrivi sVV : ColoreTesto 0
                  If nNumEstr > 0 And IsDate(sDataEstr) Then
                     ReDim aEstr(11,5)
                     r = 1 : e = 0
                     For X = 1 To 110 Step 2
                        e = e + 1
                        'Scrivi Mid(sVV,x,2) & " ",0,0
                        aEstr(r,e) = Mid(sVV,X,2)
                        If e = 5 Then r = r + 1 : e = 0 ': Scrivi
                     Next
                     'ScriviMatrice(aEstr)
                     If CfrData <> Left(sDataEstr,5) Then
                        If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                           CfrData = Left(sDataEstr,5)
                           nSalvate = nSalvate + 1
                           Call Messaggio(nSalvate)
                        End If
                     Else
                        ColoreTesto 2
                        Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
                        ColoreTesto 0
                     End If
                  End If
                  sDataLastEstr = sDataEstr
               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("")
   ColoreTesto 1 : Call Scrivi("PlugIn per Spaziometria V.3.0 By Joe ",True) : ColoreTesto 0
   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 www.silop.it")
   Call Scrivi("")
   'End If
End Sub

Fammi sapere quando lo hai scaricato, e se funziona, così eventualmente,

lo tolgo o lo correggo .... affinché non si crei inutile confusione.

:)
HO RIFATTO LA PROCEDURA E MI SI è APERTA QUESTA FINESTRA
 

Allegati

  • SEMPRE X JOE.jpg
    SEMPRE X JOE.jpg
    20,8 KB · Visite: 10

joe

Advanced Member >PLATINUM PLUS<
Ciao Sandrina.

Devi prestare attenzione a copiare tutto lo script e incollarlo tutto nella finestra.

Sono 2 sub e devono esserci tutte e 2.

Una subito dopo l'altra.

Dalla prima "O" di Option Explicit, fino

alla ultima "b" del secondo End Sub.

:)
 
Ultima modifica:

sandrina50

Super Member >PLATINUM<
HO RIFATTO LA PROCEDURA E MI SI è APERTA QUESTA FINESTRA

Sub Main
Option Explicit
Sub Main
'Agg_Arc_Wget_3 By Joe
Dim sCommand,sPercorsoWget,sDirFileDestLocal,sFileBackup,sUrl,sFileBat,DataIni,b,nTimeoutSec
sDirFileDestLocal = GetDirectoryTemp & "Archivio.txt"
sFileBackup = sDirFileDestLocal & ".bak"
sPercorsoWget = GetDirectoryAppData & "wget.exe"
sUrl = "sLink = https://www.silop.it/Archivio(televideo)/Archivio.txt"
sCommand = """" & sPercorsoWget & """" & " -O " & """" & sDirFileDestLocal & """" & " --no-check-certificate " & sUrl
nTimeoutSec = 60
If FileEsistente(sPercorsoWget) Then
If FileEsistente(sDirFileDestLocal) Then
b = RinominaFile(sDirFileDestLocal,sFileBackup)
Else
b = True
End If
If b Then
sFileBat = GetDirectoryTemp & "Download.bat"
Call ScriviFile(sFileBat,sCommand,True,False)
Call LanciaFile(sFileBat)
Messaggio "Analisi Estrazioni"
DataIni = Now
Do While FileEsistente(sDirFileDestLocal) = False
If DateDiff("s",DataIni,Now) > nTimeoutSec Then Exit Do
Loop
If FileEsistente(sDirFileDestLocal) Then
Call EliminaFile(sFileBackup)
Call EliminaFile(sFileBat)
CloseFileHandle(sUrl)
AGG_S_III(sDirFileDestLocal)
Else
Scrivi "Attenzione !!!"
Scrivi "Il file delle estrazioni non è stato scaricato in " & GetDirectoryAppData
Call RinominaFile(sFileBackup,sDirFileDestLocal)
End If
Else
Scrivi "Attenzione !!!"
Scrivi "Non è stato possibile creare il backup delle estrazioni"
End If
Else
Scrivi "Attenzione !!!"
Scrivi "Il file wget.exe versione 1.19.4 deve essere presente nel percorso: " & GetDirectoryAppData
End If
End Sub
Sub AGG_S_III(sDirFileDestLocal)
'MsgBox sDirFileDestLocal
Dim sFileLoc
Dim nEstrTot,sDataLastEstr,k,r,e
Dim sDataEstr,nNumEstr,nSalvate
Dim b
Dim sFileBd
Dim sLink
Dim Ia,N,sVV,X,T,D
Dim CfrData
'sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
b = False : N = False
nSalvate = 0
sFileBd = GetDirectoryAppData & "BaseDati.dat"
sFileLoc = GetDirectoryAppData & "temp\"
'If CreaDirectory(sDirFileDestLocal) Then
Messaggio "Lettura Archivio Remoto ..."
If FileEsistente(sDirFileDestLocal) Then
T = Now
Do While D <= 10
D = DateDiff("s",T,Now)
AvanzamentoElab 1,10,D
Loop
nEstrTot = EstrazioniArchivio
sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
Ia = IndiceAnnuale(nEstrTot)
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sDirFileDestLocal,aRighe)
'MsgBox (UBound(aRighe))
For k = 1 To UBound(aRighe) 'To 0 Step - 1
ReDim aV(0) ': Scrivi Len(aRighe(k))
If Len(aRighe(k)) = 118 Then
sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4) ': Scrivi sDataEstr
sVV = Right(aRighe(k),110) ': Scrivi sVV
If b Then
If(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0
If sDataEstr <> sDataLastEstr Then
Ia = Ia + 1
nNumEstr =(Ia)
'ColoreTesto 4 : Scrivi Ia : ColoreTesto 0
'ColoreTesto 1 : Scrivi sDataEstr : ColoreTesto 0
'ColoreTesto 2 : Scrivi sVV : ColoreTesto 0
If nNumEstr > 0 And IsDate(sDataEstr) Then
ReDim aEstr(11,5)
r = 1 : e = 0
For X = 1 To 110 Step 2
e = e + 1
'Scrivi Mid(sVV,x,2) & " ",0,0
aEstr(r,e) = Mid(sVV,X,2)
If e = 5 Then r = r + 1 : e = 0 ': Scrivi
Next
'ScriviMatrice(aEstr)
If CfrData <> Left(sDataEstr,5) Then
If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
CfrData = Left(sDataEstr,5)
nSalvate = nSalvate + 1
Call Messaggio(nSalvate)
End If
Else
ColoreTesto 2
Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
ColoreTesto 0
End If
End If
sDataLastEstr = sDataEstr
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("")
ColoreTesto 1 : Call Scrivi("PlugIn per Spaziometria V.3.0 By Joe ",True) : ColoreTesto 0
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 www.silop.it")
Call Scrivi("")
'End If
End Sub
End Sub

ciao joe, ecco controlla se l'ho copiato giusto comunque se fosse giusto non si aggiorna ho provato anche cancellare la 1° scritta "sub main" ma niente ...non capisco!!
 

sandrina50

Super Member >PLATINUM<
ciao Joe , per renderlo semplice a Sandrina ho semplicemente creato l'eseguibile dallo script già noto, facendo una modifica affinche usasse il wget presente nello stesso path dell'eseguibile.
Questa versione di wget anche se datata ha il pregio di essere compilata in modo "static" ovvero contiene interamente le librerie esterne di cui ha bisogno , è a 32 bit e quindi funziona su tutti i sistemi in modo "stand alone".
Forse si poteva trovare una versione piu recente sempre compilata static , io ho fatto delle prove e siccome questa ha funzionato l'ho tenuta.
Scaricata da qui

Ciao Gigio allora dovrei copiare questo script e incollarlo su "gestione scrpt" di spaziometria ? grazie ciao
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto