diff --git a/Constants/ConstIni.vb b/Constants/ConstIni.vb index ea87c2d..203c9c8 100644 --- a/Constants/ConstIni.vb +++ b/Constants/ConstIni.vb @@ -18,6 +18,7 @@ Module ConstIni Public Const S_GENERAL As String = "General" Public Const K_DEBUG As String = "Debug" Public Const K_LICENCE As String = "Licence" + Public Const K_NETKEY As String = "NetKey" Public Const K_MESSAGESDIR As String = "MessagesDir" Public Const K_MESSAGES As String = "Messages" Public Const K_SUPPORT As String = "Support" diff --git a/MainWindow.xaml.vb b/MainWindow.xaml.vb index c947827..b178274 100644 --- a/MainWindow.xaml.vb +++ b/MainWindow.xaml.vb @@ -321,11 +321,13 @@ Class MainWindow Dim sNestKey As String = "" EgtUILib.GetPrivateProfileString(S_LICENCE, K_NESTKEY, "", sNestKey, sLicFile) EgtSetNestKey(sNestKey) + Dim bNetHwKey As Boolean = ( GetPrivateProfileInt(S_GENERAL, K_NETKEY, 0, m_sIniFile) = 1) + EgtSetNetHwKey( bNetHwKey) ' Verifico abilitazione nesting automatico m_bAutoNest = Not String.IsNullOrWhiteSpace(sNestKey) ' Recupero opzioni della chiave - Dim bKey As Boolean = EgtGetKeyLevel(9423, 2409, 1, m_nKeyLevel) And - EgtGetKeyOptions(9423, 2409, 1, m_nKeyOptions) + Dim bKey As Boolean = EgtGetKeyLevel(9423, 2410, 1, m_nKeyLevel) And + EgtGetKeyOptions(9423, 2410, 1, m_nKeyOptions) ' Verifico abilitazione prodotto Dim bProd As Boolean = GetKeyOption(KEY_OPT.CUT_BASE) ' Inizializzazione generale di EgtInterface diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index ff92189..bfaf062 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -62,5 +62,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + +