lupo bianco
Super member
dove si puo' scaricare visual lotto 7 o 8
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.
buon giorno a tutti aproposito di archivi io cerco l'achivio di lotto Excell (programma) i file sono in formato drawit grazie fatemi sapereIo ho Visual Lotto 7.6 e 8. Non so se sono compatibili gli archivi.
Questo è l'archivio di Visual Lotto 7.6
Ciao![]()
726 KB file on MEGA
mega.nz
Baciccia
Buongiorno Muletto,buon giorno a tutti aproposito di archivi io cerco l'achivio di lotto Excell (programma) i file sono in formato drawit grazie fatemi sapere
ho provato non sono riuscito a trovareBuongiorno Muletto,
avevo una delle prime versioni di quel programma, ma se le cose non sono cambiate, gli archivi si chiamano drawit, ma l'estensione e' mdb, quindi si possono aggiornare tramite macro che popoli le tabelle di access di microsoft.
Ciao Francesco,Ecco l'archivio drawit
Buona Pasqua a tutti.
Ciao Druid
Francesco
QUESTO E' L'ORIGINALE
Ecco l'archivio drawit
Buona Pasqua a tutti.
Ciao Druid
Francesco
Ciao phil79,Ciao ragazzi, ho capito come aggiornare, manualmente purtroppo, l'archivio di visual lotto 7 tramite il link della pagina di televideo incorporata nel programma.
Praticamente salvo la pagina testuale in html e vado poi a modificare manualmente l'estrazione sia come data che come numeri, poichè non ho nozioni di html avanzate e cose varie, e soprattutto eliminando 3 righe di link di sottopagine.
In questo modo però si può aggiornare anche salvando e modificando il file in locale.
Vi terrò informati, se poi qualcuno più esperto ne capisce ben venga
Sub Main ()
' Definizione delle variabili
Dim objHTTP, objFSO, objFile, WScript
Dim strURL, strFilePath, strContent
' URL della pagina da scaricare
strURL = "https://www.televideo.rai.it/televideo/pub/solotesto.jsp?regione=&pagina=786"
' Percorso del file in cui salvare la pagina
strFilePath = "C:\Program Files (x86)\Visual Lotto 7\dati\televideo_786.html"
' Creazione dell'oggetto HTTP per la richiesta web
' Tenta prima con WinHttpRequest, che è più comune nei sistemi Windows moderni
On Error Resume Next
objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
If Err.Number <> 0 Then
' Se fallisce, prova con MSXML2.XMLHTTP
Err.Clear
objHTTP = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
' Prova anche MSXML2.ServerXMLHTTP come ultima risorsa
Err.Clear
objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
If Err.Number <> 0 Then
WScript.Echo("Errore: Impossibile creare un oggetto HTTP. Verifica che le librerie necessarie siano installate.")
WScript.Quit
End If
End If
End If
On Error GoTo 0
' Apertura della connessione (GET) all'URL
objHTTP.Open("GET", strURL, False)
objHTTP.Send
' Verifica che la richiesta sia andata a buon fine (codice 200)
If objHTTP.Status = 200 Then
' Creazione dell'oggetto FileSystemObject per la gestione dei file
objFSO = CreateObject("Scripting.FileSystemObject")
' Verifica se la cartella C:\dati esiste, altrimenti la crea
If Not objFSO.FolderExists("C:\Program Files (x86)\Visual Lotto 7\dati") Then
objFSO.CreateFolder("C:\Program Files (x86)\Visual Lotto 7\dati")
End If
' Ottiene il contenuto della pagina
strContent = objHTTP.responseText
' Rimuove la stringa "<a href="solotesto.jsp?pagina=401">401</a> ALMANACCO"
strContent = Replace(strContent, "<a href=""solotesto.jsp?pagina=401"">401</a> ALMANACCO", "")
' Crea o sovrascrive il file
objFile = objFSO.CreateTextFile(strFilePath, True)
' Scrive il contenuto modificato nel file
objFile.Write(strContent)
' Chiude il file
objFile.Close
' Messaggio di conferma
WScript.Echo("La pagina è stata scaricata con successo e salvata in " & strFilePath)
Else
' Messaggio di errore se la richiesta non è andata a buon fine
WScript.Echo("Errore durante il download della pagina. Codice di stato: " & objHTTP.Status)
End If
' Libera le risorse
objFile = Nothing
objFSO = Nothing
objHTTP = Nothing
End sub