Egalware/EgtDOORCreator
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtDOORCreator 1.8d1 :

Browse Source 
- modifiche e migliorie varie.
This commit is contained in:
Nicola Pievani
2017-04-21 15:47:51 +00:00
parent f365dee1c7
commit 1158fa4d9f
37 changed files with 1250 additions and 299 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MainWindow/MainWindowModel.vb
+7 -7
View File
@@ -16,10 +16,10 @@ Friend Class MainWindowModel
' Livello dell'utilizzatore
Friend m_nUserLevel As Integer = 1
' Livello della chiave inserita nel PC
Friend m_nKeyLevel As Integer = 0
' Opzioni attive sulla chiave
Friend m_nKeyOptions As UInteger = 0
' '' Livello della chiave inserita nel PC
''Friend m_nKeyLevel As Integer = 0
' '' Opzioni attive sulla chiave
''Friend m_nKeyOptions As UInteger = 0
Private m_nDebug As Integer = 0
@@ -51,9 +51,9 @@ Friend Class MainWindowModel
EgtUILib.GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile)
EgtSetKey(sKey)
' Recupero livello e opzioni della chiave
'Dim bKey As Boolean = EgtGetKeyLevel(3279, 16, 1, IniFile.m_nKeyLevel) And
' EgtGetKeyOptions(3279, 16, 1, IniFile.m_nKeyOptions)
' Inizializzazione generale di EgtInterface
Dim bKey As Boolean = EgtGetKeyLevel(3279, 16, 1, IniFile.m_nKeyLevel) And
EgtGetKeyOptions(3279, 16, 1, IniFile.m_nKeyOptions)
'Inizializzazione generale di EgtInterface
m_nDebug = GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
Dim sLogFile As String = IniFile.m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
Dim sLogMsg As String = "User " & Environment.UserName & "\" & Environment.MachineName & " (" & m_nInstance.ToString() & ")" & vbLf &