From dc51159ca12e28bfe09de4a66a47b539ac6664b4 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Thu, 12 Jun 2025 20:34:31 +0200 Subject: [PATCH] Aggiornata versione a 2.7f1 --- Effector.Main/MainWindow/MainWindowM.vb | 4 ++-- Effector.Main/MainWindow/MainWindowVM.vb | 21 ------------------- Effector.Main/My Project/AssemblyInfo.vb | 6 +++--- .../My Project/AssemblyInfo.vb | 8 +++---- 4 files changed, 9 insertions(+), 30 deletions(-) diff --git a/Effector.Main/MainWindow/MainWindowM.vb b/Effector.Main/MainWindow/MainWindowM.vb index 0a7a486..0e2c498 100644 --- a/Effector.Main/MainWindow/MainWindowM.vb +++ b/Effector.Main/MainWindow/MainWindowM.vb @@ -175,8 +175,8 @@ Public Class MainWindowM GenInterface.GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile) EgtSetKey(sKey) ' Recupero livello e opzioni della chiave - Dim bKey As Boolean = EgtGetKeyLevel(7375, 2610, 1, m_nKeyLevel) And - EgtGetKeyOptions(7375, 2610, 1, m_nKeyOpt1, m_nKeyOpt2) + Dim bKey As Boolean = EgtGetKeyLevel(7375, 2706, 1, m_nKeyLevel) And + EgtGetKeyOptions(7375, 2706, 1, m_nKeyOpt1, m_nKeyOpt2) If Not bKey Then EgtOutLog("Key or Licence Problem (" & (-nKeyLevel).ToString() & ")") diff --git a/Effector.Main/MainWindow/MainWindowVM.vb b/Effector.Main/MainWindow/MainWindowVM.vb index a403082..3b0c0c7 100644 --- a/Effector.Main/MainWindow/MainWindowVM.vb +++ b/Effector.Main/MainWindow/MainWindowVM.vb @@ -165,27 +165,6 @@ Public Class MainWindowVM ' Creo Model della MainWindow m_MainWindowM = New MainWindowM - '' Gestione della chiave di protezione - 'Dim sLicFileName As String = "" - 'GetMainPrivateProfileString(S_GENERAL, K_LICENCE, LIC_FILE_NAME, sLicFileName) - 'Dim sLicFile As String = m_MainWindowM.sConfigDir & "\" & sLicFileName - 'Dim sKey As String = "" - 'GenInterface.GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile) - 'EgtSetKey( sKey) - '' Recupero livello e opzioni della chiave - 'Dim nKeyLevel As Integer = 0 - 'Dim nKeyOpt1 As Integer = 0 - 'Dim nKeyOpt2 As Integer = 0 - 'Dim bKey As Boolean = EgtGetKeyLevel(7375, 2610, 1, nKeyLevel) And - ' EgtGetKeyOptions(7375, 2610, 1, nKeyOpt1, nKeyOpt2) - - 'If Not bKey Then - ' EgtOutLog("Key or Licence Problem (" & (-nKeyLevel).ToString() & ")") - ' MessageBox.Show("Key or Licence Problem (" & (-nKeyLevel).ToString() & ")", "Error", MessageBoxButton.OK, MessageBoxImage.Error) - ' EgtOutLog("Exit") - ' End - 'End If - ' creo gestore della comunicazione m_MachineManager = New MachineManager m_MachineManager.Init() diff --git a/Effector.Main/My Project/AssemblyInfo.vb b/Effector.Main/My Project/AssemblyInfo.vb index f389661..b439f19 100644 --- a/Effector.Main/My Project/AssemblyInfo.vb +++ b/Effector.Main/My Project/AssemblyInfo.vb @@ -15,7 +15,7 @@ Imports System.Windows - + @@ -55,5 +55,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + diff --git a/Effector.Plugin.Interface/My Project/AssemblyInfo.vb b/Effector.Plugin.Interface/My Project/AssemblyInfo.vb index 39da880..d21536b 100644 --- a/Effector.Plugin.Interface/My Project/AssemblyInfo.vb +++ b/Effector.Plugin.Interface/My Project/AssemblyInfo.vb @@ -13,9 +13,9 @@ Imports System.Windows - + - + @@ -55,5 +55,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + +