From 81eeed933a05cced72562939eb43d2fc679f4ca1 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Tue, 26 May 2015 15:53:24 +0000 Subject: [PATCH] TestEIn : - impostazione codici chiave con EgtSetKey fatta prima di EgtInit. --- Form1.vb | 10 +++++----- My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/Form1.vb b/Form1.vb index 73a8d2a..3474bd2 100644 --- a/Form1.vb +++ b/Form1.vb @@ -88,6 +88,11 @@ Public Class Form1 End If ' Verifico indice di istanza ManageIstance() + ' Leggo e imposto chiave di protezione + Dim sLicFile As String = m_sConfigDir & "\" & LIC_FILE_NAME + Dim sKey As String = String.Empty + GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile) + EgtSetKey(sKey) ' Inizializzazione generale di EgtInterface m_nDebug = GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0, m_sIniFile) Dim sLogFile As String = m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString()) @@ -101,11 +106,6 @@ Public Class Form1 If Not EgtLoadMessages(sMsgFilePath) Then EgtOutLog("Error in EgtLoadMessages") End If - ' Leggo e imposto chiave di protezione - Dim sLicFile As String = m_sConfigDir & "\" & LIC_FILE_NAME - Dim sKey As String = String.Empty - GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile) - EgtSetKey(sKey) ' Leggo e imposto livello utilizzatore m_nUserLevel = GetPrivateProfileInt(S_GENERAL, K_USERLEVEL, 1, m_sIniFile) ' imposto dir font Nfe e font default diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 8fd1cb1..5b9ea5c 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + +