Riesumato pc con win 7 ma problema con alcuni siti https

[lotto_tom75]

Per degli stessi siti https che da un pc (quello riesumato...) risultano non sicuri e da un altro sicuri...

Da cosa può dipendere che tutti i siti https generalmente sicuri... (incluso questo forum) da un pc mi risultano invece potenzialmente "non protetti" con la classica dicitura in rosso barrata riguardo l' https?

Le principali differenze tra i due pc sono:

sistema operativo
quello senza problemi windows 10 32bit
quello con problemi windows 7 home premium a 64bit

tipo wifi scelta
5 g quello senza problemi
2.4 g quello con problemi

antivirus installato
norton quello senza problemi
avg free e avast free quello con problemi

Il pc con questo problema l'ho riesumato... da molti mesi di inattività, ma per adesso, a parte questa cosa dell'https... non sembra averne altri... a parte il fatto che non funziona più windows update essendone terminato il supporto..

In entrambi ho chrome aggiornato all'ultima versione e data e orario di sistema corretti...

In quello senza problemi https ho anche edge

In quello con il problema non riesco ad installare edge.

Questi problemi di connessione oltre a rendere la navigazione davvero impossibile.. impediscono anche l'aggiornamemto degli archivi lotto, superenalotto ecc di spaziometria... 😌

Grazie per un vostro eventuale parere in merito...

🙂

 

[claudio8]

A mio parere dipende dal browser .Devi trovare la versione specifica e + adatta X il sistema operativo.

 

[joe]

Per aggiornare usa questo:

Option Explicit
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) - 2
   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