Novità

perché non aggiorna

druid

Super member
Messaggi
157
Punti reazione
24
Punti
18
Ben fatto Silop e grazie di avermi anticipato nella risposta. ;)
 

sandrina50

Junior Member
Messaggi
29
Punti reazione
0
Punti
1
Grazie Silos ,purtroppo niente anche dopo aver corretto ora sento druid se gentilmente mi aiuta ..
 

joe

Advanced Member >PLATINUM<
Messaggi
1.332
Punti reazione
145
Punti
63
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
Messaggi
157
Punti reazione
24
Punti
18
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

Junior Member
Messaggi
29
Punti reazione
0
Punti
1
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 >GOLD<
Messaggi
207
Punti reazione
61
Punti
28
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
Messaggi
157
Punti reazione
24
Punti
18
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<
Messaggi
1.332
Punti reazione
145
Punti
63
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<
Messaggi
1.332
Punti reazione
145
Punti
63
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<
Messaggi
1.332
Punti reazione
145
Punti
63
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 >GOLD<
Messaggi
207
Punti reazione
61
Punti
28
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<
Messaggi
1.332
Punti reazione
145
Punti
63
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 >GOLD<
Messaggi
207
Punti reazione
61
Punti
28
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

Junior Member
Messaggi
29
Punti reazione
0
Punti
1
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

sandrina50

Junior Member
Messaggi
29
Punti reazione
0
Punti
1
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

joe

Advanced Member >PLATINUM<
Messaggi
1.332
Punti reazione
145
Punti
63
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

Junior Member
Messaggi
29
Punti reazione
0
Punti
1
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

Junior Member
Messaggi
29
Punti reazione
0
Punti
1
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ì 24 settembre 2020
    Bari
    04
    30
    73
    82
    79
    Cagliari
    32
    17
    07
    74
    66
    Firenze
    65
    41
    23
    88
    85
    Genova
    79
    78
    60
    88
    73
    Milano
    22
    69
    02
    80
    27
    Napoli
    59
    53
    67
    13
    86
    Palermo
    81
    90
    39
    11
    65
    Roma
    53
    72
    39
    54
    52
    Torino
    62
    70
    10
    54
    82
    Venezia
    52
    43
    10
    80
    75
    Nazionale
    17
    23
    52
    76
    78
    Estrazione Simbolotto
    Palermo
    39
    08
    29
    03
    09

Ultimi Messaggi

Alto