Spaziometria non si aggiornano estrazioni

[vinci]

Buongiorno a tutti il programma non aggiorna più le estrazioni che sono ferme a martedi 24/02/2026
è un problema mio oppure è cosi per tutti?
Grazie

 

[VenusLotto]

Buongiorno anche a me non aggiorna

 

[Lottopython]

a me aggiorna .

 

[vinci]

Ho riprovato adesso ed è sempre fermo al 24 Febbraio

 

[VenusLotto]

Idem

 

[darta1964]

Spaziometria 1.6.54 non aggiorna più le Estrazioni del lotto in Automatico !.Come posso rimediare ?.C'è qualche script ?

 

[Salva1957]

non si riesce più ad aggiornare, qualcuno può intervenire con un programma semplice ,

 

[rubino2]

Fate l' aggiornamento manuale, 2 minuti ed e' tutto a posto.

 

[KEN]

Si non si aggiorna al momento , ho manualmente oppure con questo script :

Sub Main
Dim sDirTemp
Dim sLink
Dim nAnnoPart,nAnnoCorr,sNuovaData
Dim k
Dim id
Dim sDataEstr,sCData,nSalvate,sFileBd
Dim sV,r,e,x
Dim b,nEstrTot,sDataLastEstr,iA,z
nAnnoPart = Year(Now) - 1
nAnnoCorr = Year(Now)
sFileBd = GetDirectoryAppData & "BaseDati.dat"
sDirTemp = GetDirectoryTemp & "lottologia.txt"
Call EliminaFile(sDirTemp)
For sNuovaData = nAnnoPart To nAnnoCorr
If ScriptInterrotto Then Exit For
Call Messaggio(sNuovaData)
Call AvanzamentoElab(nAnnoPart,nAnnoCorr,sNuovaData)
sLink = "https://www.lottologia.com/lotto/archivio-estrazioni/?as=TXT&year=" & sNuovaData
If DownloadFromWeb(sLink,sDirTemp) Then
nEstrTot = EstrazioniArchivio
If nEstrTot = 0 Then nAnnoPart = 1871 : b = True
sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
z = Right(sDataLastEstr,4)
id = IndiceAnnuale(nEstrTot)
ReDim aRighe(0)
If LeggiRigheFileDiTesto(sDirTemp,aRighe) Then
If EliminaFile(sDirTemp) Then
If Trim(aRighe(k)) <> "" Then
For k = UBound(aRighe) - 3 To 2 Step - 1
aRighe(k) = Replace(aRighe(k),vbTab,"")
aRighe(k) = Replace(aRighe(k),"-","")
'Call Scrivi(id & " ",0,0)
sDataEstr = Mid(aRighe(k),7,2) & "/" & Mid(aRighe(k),5,2) & "/" & Left(aRighe(k),4)
If z <> Left(aRighe(k),4) Then id = 0 : z = Left(aRighe(k),4)
'Call Scrivi(sDataEstr)
sV = Right(aRighe(k),110)
'Call Scrivi (sV)
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(sV,x,2)
If e = 5 Then r = r + 1 : e = 0
Next
'ScriviMatrice(aEstr)
If b = True Then
If sCData <> sDataEstr Then
id = id + 1
If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
sCData = sDataEstr
nSalvate = nSalvate + 1
Call Messaggio(nSalvate)
End If
Else
ColoreTesto 2
Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
ColoreTesto 0
End If
End If
If sDataEstr = sDataLastEstr Then b = True
'
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit For
Next
If nSalvate > 0 Then
AllineaArchivi
Call Scrivi()
Call Scrivi("Script per Spaziometria V.4.0 di LuigiB & Giomi Rev. By Joe",True,,,vbBlue)
Call Scrivi()
Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
Call Scrivi("")
Call Scrivi("Estrazioni totali " & EstrazioniArchivio)
Call Scrivi()
Call Scrivi("Utilizzato Archivio del sito www.lottologia.com")
Call Scrivi()
Else
Call Scrivi("NON HO TROVATO NUOVE ESTRAZIONI !",1,,,2)
End If

End Sub

 

[geronimo]

Si non si aggiorna al momento , ho manualmente oppure con questo script :

Sub Main
Dim sDirTemp
Dim sLink
Dim nAnnoPart,nAnnoCorr,sNuovaData
Dim k
Dim id
Dim sDataEstr,sCData,nSalvate,sFileBd
Dim sV,r,e,x
Dim b,nEstrTot,sDataLastEstr,iA,z
nAnnoPart = Year(Now) - 1
nAnnoCorr = Year(Now)
sFileBd = GetDirectoryAppData & "BaseDati.dat"
sDirTemp = GetDirectoryTemp & "lottologia.txt"
Call EliminaFile(sDirTemp)
For sNuovaData = nAnnoPart To nAnnoCorr
If ScriptInterrotto Then Exit For
Call Messaggio(sNuovaData)
Call AvanzamentoElab(nAnnoPart,nAnnoCorr,sNuovaData)
sLink = "https://www.lottologia.com/lotto/archivio-estrazioni/?as=TXT&year=" & sNuovaData
If DownloadFromWeb(sLink,sDirTemp) Then
nEstrTot = EstrazioniArchivio
If nEstrTot = 0 Then nAnnoPart = 1871 : b = True
sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
z = Right(sDataLastEstr,4)
id = IndiceAnnuale(nEstrTot)
ReDim aRighe(0)
If LeggiRigheFileDiTesto(sDirTemp,aRighe) Then
If EliminaFile(sDirTemp) Then
If Trim(aRighe(k)) <> "" Then
For k = UBound(aRighe) - 3 To 2 Step - 1
aRighe(k) = Replace(aRighe(k),vbTab,"")
aRighe(k) = Replace(aRighe(k),"-","")
'Call Scrivi(id & " ",0,0)
sDataEstr = Mid(aRighe(k),7,2) & "/" & Mid(aRighe(k),5,2) & "/" & Left(aRighe(k),4)
If z <> Left(aRighe(k),4) Then id = 0 : z = Left(aRighe(k),4)
'Call Scrivi(sDataEstr)
sV = Right(aRighe(k),110)
'Call Scrivi (sV)
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(sV,x,2)
If e = 5 Then r = r + 1 : e = 0
Next
'ScriviMatrice(aEstr)
If b = True Then
If sCData <> sDataEstr Then
id = id + 1
If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
sCData = sDataEstr
nSalvate = nSalvate + 1
Call Messaggio(nSalvate)
End If
Else
ColoreTesto 2
Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
ColoreTesto 0
End If
End If
If sDataEstr = sDataLastEstr Then b = True
'
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit For
Next
If nSalvate > 0 Then
AllineaArchivi
Call Scrivi()
Call Scrivi("Script per Spaziometria V.4.0 di LuigiB & Giomi Rev. By Joe",True,,,vbBlue)
Call Scrivi()
Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
Call Scrivi("")
Call Scrivi("Estrazioni totali " & EstrazioniArchivio)
Call Scrivi()
Call Scrivi("Utilizzato Archivio del sito www.lottologia.com")
Call Scrivi()
Else
Call Scrivi("NON HO TROVATO NUOVE ESTRAZIONI !",1,,,2)
End If

End Sub

grazie Ken ... ai meno pratici ricordo di non copiare la prima riga ( Sub Main ) e l'ultima ( End Sub ) altrimenti da errore nello script

 

[Salva1957]

grazie ken ,sei stato gentilissimo

 

[Duplex]

Denghiù Ken

 

[cHeRe62]

Provate questo piccolo programma. Scompatta cartella su desktop e dare i permessi per eseguire.

UpDate

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[Cinzia27]

Grazie, Ken