|
'********************************************************* ' legge la chiave madre e se non esiste crea la struttura ' delle chiavi di registro dell'applicazione '********************************************************* ' If Len(Trim(GetRegKey("MyDirPath"))) = 0 Then If NONScriveNeiRegistry = True Then ' SE NON DEVE SCRIVERE SUI REGISTRI DEVE VISUALIZZARE I FILE iNI If Dir(TypeConn.MyDirPath & "\INI\Registry.ini", FileAttribute.Normal) = "" Then ScriviRegINIGlobale() End If Else If EsisteKey("MyDirPath") = False Then ScriviRegKeyGlobale() End If End If '********************************************************* ' DECODIFICA E CRYPTAZIONE AVVIENE CON 7 CHIAVI POSSIBILI DA 1 A 7 ' PERTANTO SARa' SEMPRE POSSIBILE INIZIALIZZARE UNA PROCEDURA CON ' UNA CHIAVE DIVERSA Li''UNA DALL'ALTRA ' CON TypeConn.NCry = 4 ' TypeConn.NCry = 1 'If GetRegKey("NCry") <> TypeConn.NCry Then ' SetRegKey("NCry", TypeConn.NCry, Microsoft.Win32.RegistryValueKind.String) ' TypeConn.NCry = GetRegKey("NCry") 'End If 'TypeConn.NCry = 1 'SectaArray(TypeConn.NCry) If NONScriveNeiRegistry = True Then ' SE NON DEVE SCRIVERE SUI REGISTRI DEVE VISUALIZZARE I FILE iNI LeggiRegINIGlobale() Else LeggiRegKeyGlobale() End If '' DECODIFICA E CRYPTAZIONE AVVIENE CON 7 CHIAVI POSSIBILI DA 1 A 7 '' PERTANTO SARa' SEMPRE POSSIBILE INIZIALIZZARE UNA PROCEDURA CON '' UNA CHIAVE DIVERSA Li''UNA DALL'ALTRA '' CON TypeConn.NCry = 4 '' TypeConn.NCry = 1 'If GetRegKey("NCry") <> TypeConn.NCry Then ' SetRegKey("NCry", TypeConn.NCry, Microsoft.Win32.RegistryValueKind.String) 'End If 'SectaArray(TypeConn.NCry) ' Certificazione Validita' Commessa If Dir(TypeConn.MyDirPath & "\Amministrazione.exe") <> "" Then ' se e' superiore a 360 giorni rallenta l'applicazione di tre secondi per ogni operazione ' e le stampe le rallenta di 10 secondi 'If DateDiff(DateInterval.Day, FileDateTime(TypeConn.MyDirPath & "\Amministrazione.exe"), Now) > 360 Then 'FileOpen(1, TypeConn.MyDirPath & "\INI\LinkStatus.ini", OpenMode.Output) 'PrintLine(1, "Operation=True") 'PrintLine(1, "Schermo=True") 'PrintLine(1, "Paint=False") 'PrintLine(1, "Emoticon=True") 'PrintLine(1, "Switch=False") 'PrintLine(1, "DatabasePath=" & TypeConn.MyDirPath & "\Database") 'FileClose(1) 'FileOpen(1, RitornaDirSystem("windir") & "\System32\LinkStatus.ini", OpenMode.Output) 'PrintLine(1, "Operation=True") 'PrintLine(1, "Schermo=True") 'PrintLine(1, "Paint=False") 'PrintLine(1, "Emoticon=True") 'PrintLine(1, "Switch=False") 'PrintLine(1, "DatabasePath=" & TypeConn.MyDirPath & "\Database") 'FileClose(1) 'End ' TypeConn.MyDemo = True 'End If 'If Dir(TypeConn.MyDirPath & "\INI\LinkStatus.INI") <> "" Then ' TypeConn.MyDemo = True 'End If 'If Dir(RitornaDirSystem("windir") & "\System32\LinkStatus.INI") <> "" Then ' TypeConn.MyDemo = True 'End If End If '************************************************ 'If Dir(TypeConn.MyDirPath & "\INI", FileAttribute.Directory) = "" Then ' MkDir(TypeConn.MyDirPath & "\INI") 'End If ' ricerca del file GestioneRete.ini - se non c'e' lancia GestioneRete |