Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Mike58 ciao io per caricare le immagini vado in questo sito http://funkyimg punto com carico l'immagine e tra tutti i link copio all'interno del post il BBCode Image non ti resta che provare ciaoMike58;n2038083 ha scritto:(Ma come si caricano le immagini ? nel modo corretto ?)
LuigiB;n2038170 ha scritto:ciao il problema 10 e lotto e superenalotto non c'entrano niente con le modifiche apportate
il suoperenalotto è cambiato il sito web dal quale il programma prelevava le estrazioni e purtroppo non ho ne tempo ne voglia per cercare altri siti e implementare un 'altra routine
per il dieci e lotto il problema si risolve lannciando un ottimo script fatto da moro _89 seguite il forum state attenti e vedete che i problemi si risolvono quasi sempre ...
giluge;n2038194 ha scritto:grazie
andava tutto bene, poi ho messo la 88 ed e' nato il problema..........grazie cmq, vedro ' di trovare lo script, ciao luigi
Option Explicit
Sub Main
Dim sFileBd
Dim sMsg
sMsg = "Questo script elimina gli archivi del 10 e lotto" & vbCrLf
sMsg = sMsg & "sia tradizionale che 5M poi li aggiorna nuovamente" & vbCrLf
If MsgBox( sMsg , vbQuestion + vbYesNo ) = vbYes Then
sFileBd = GetDirectoryAppData & "BaseDati10Elotto.Dat"
Call EliminaFile(sFileBd)
sFileBd = GetDirectoryAppData & "BaseDati10Elotto5M.Dat"
Call EliminaFile(sFileBd)
Call AggiornaArchivio
Call AggiornaArchivioDL
ImpostaArchivio10ELotto(1)
Call ScriviEstrazioneDL(EstrazioniArchivioDL,True)
ImpostaArchivio10ELotto(2)
Call ScriviEstrazioneDL(EstrazioniArchivioDL,True)
End If
End Sub
lottofortune;n2038283 ha scritto:grazie signor luigi....grazie moro80,dopo lo script va,solo che me lo fa aggiornare se volessi aggiornare le estrazioni agli anni precedenti?perchè me lo fa fare dal 2016..
Moro_80;n2038252 ha scritto:Giluge,
usa lo script sotto e rilancia dopo l'aggiornamento del 10 e lotto ogni 5 minuti.
Codice:Option Explicit Sub Main Dim sFileBd Dim sMsg sMsg = "Questo script elimina gli archivi del 10 e lotto" & vbCrLf sMsg = sMsg & "sia tradizionale che 5M poi li aggiorna nuovamente" & vbCrLf If MsgBox( sMsg , vbQuestion + vbYesNo ) = vbYes Then sFileBd = GetDirectoryAppData & "BaseDati10Elotto.Dat" Call EliminaFile(sFileBd) sFileBd = GetDirectoryAppData & "BaseDati10Elotto5M.Dat" Call EliminaFile(sFileBd) Call AggiornaArchivio Call AggiornaArchivioDL ImpostaArchivio10ELotto(1) Call ScriviEstrazioneDL(EstrazioniArchivioDL,True) ImpostaArchivio10ELotto(2) Call ScriviEstrazioneDL(EstrazioniArchivioDL,True) End If End Sub
Ciao