솔루션에 fp5,fp13 포함

.gitignore

@@ -4,3 +4,4 @@ obj
 *.user
 *.v12
 *.v11
+.vs

SpreadNet.v13/Epole/My Project/AssemblyInfo.vb

@@ -11,7 +11,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyTitle("전주번호찰(통신)")> 
 <Assembly: AssemblyDescription("전주번호목록 작성 및 출력을 하는 프로그램")> 
 <Assembly: AssemblyCompany("제공 : 해광기획")>
-<Assembly: AssemblyProduct("전주번호찰(통신)")> 
+<Assembly: AssemblyProduct("전주번호찰(통신)-FP13")>
 <Assembly: AssemblyCopyright("Copyright (C) SIMP 2017")> 
 <Assembly: AssemblyTrademark("SIMP")> 
 

SpreadNet.v13/Epole/My Project/licenses.licx

@@ -1,2 +1 @@
-FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457
 FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457

SpreadNet.v13/Epole/dialogForm/SplashScreen.vb

@@ -242,7 +242,7 @@
             Common.ViewFont.FontSize = buf(1)
 
             Me.install = Arinini.Read("main", "install2", 0)
-            Me.installkey = Arinini.Read("main", "installkey2", 0)
+            Me.installkey = Arinini.Read("main", "install2key", 0)
 
             buf = Arinini.Read("main", "menufont", "굴림,9").Split(",")
             Common.MenuFont.FontName = buf(0)

SpreadNet.v13/Epole/fAuth.vb

@@ -32,7 +32,7 @@
         If NewKey = "ARIN" Then
             Dim auth As New MyAuth
             Dim dateValue As Date = Now.AddDays(1)
-            auth.SetAuth(dateValue.ToFileTimeUtc(), My.Application.Info.DirectoryPath & "\epole.ini")
+            auth.SetAuth(dateValue.ToFileTimeUtc(), My.Application.Info.DirectoryPath & "\epole.ini", "install2")
             MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
             DialogResult = System.Windows.Forms.DialogResult.Cancel
         Else
@@ -46,7 +46,7 @@
                 If NewKey = "ARIN" OrElse datestr.GetHashCode() = hashcode Then
                     Dim auth As New MyAuth
                     Dim dateValue As Date = Date.Parse(datestr)
-                    auth.SetAuth(dateValue.ToFileTimeUtc(), My.Application.Info.DirectoryPath & "\epole.ini")
+                    auth.SetAuth(dateValue.ToFileTimeUtc(), My.Application.Info.DirectoryPath & "\epole.ini", "install2")
                     MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
                     DialogResult = System.Windows.Forms.DialogResult.Cancel
                 End If

SpreadNet.v13/Epole/통신번호찰fp13.vbproj

@@ -51,7 +51,7 @@
     <DebugType>full</DebugType>
     <DefineDebug>true</DefineDebug>
     <DefineTrace>false</DefineTrace>
-    <OutputPath>..\..\..\..\SIMP\전주번호찰 프로그램%28통신%29\FP_v13\</OutputPath>
+    <OutputPath>..\..\..\..\..\SIMP\전주번호찰 프로그램%28통신%29\FP_v13\</OutputPath>
     <DocumentationFile>
     </DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>

SpreadNet.v5/Epole/My Project/AssemblyInfo.vb

@@ -11,7 +11,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyTitle("전주번호찰(통신)")> 
 <Assembly: AssemblyDescription("전주번호목록 작성 및 출력을 하는 프로그램")> 
 <Assembly: AssemblyCompany("제공 : 해광기획")>
-<Assembly: AssemblyProduct("전주번호찰(통신)")> 
+<Assembly: AssemblyProduct("전주번호찰(통신)-FP5")>
 <Assembly: AssemblyCopyright("Copyright (C) SIMP 2017")> 
 <Assembly: AssemblyTrademark("SIMP")> 
 

SpreadNet.v5/Epole/dialogForm/SplashScreen.vb

@@ -242,7 +242,7 @@
             Common.ViewFont.FontSize = buf(1)
 
             Me.install = Arinini.Read("main", "install2", 0)
-            Me.installkey = Arinini.Read("main", "installkey2", 0)
+            Me.installkey = Arinini.Read("main", "install2key", 0)
 
             buf = Arinini.Read("main", "menufont", "굴림,9").Split(",")
             Common.MenuFont.FontName = buf(0)

SpreadNet.v5/Epole/fAuth.vb

@@ -32,7 +32,7 @@
         If NewKey = "ARIN" Then
             Dim auth As New MyAuth
             Dim dateValue As Date = Now.AddDays(1)
-            auth.SetAuth(dateValue.ToFileTimeUtc(), My.Application.Info.DirectoryPath & "\epole.ini")
+            auth.SetAuth(dateValue.ToFileTimeUtc(), My.Application.Info.DirectoryPath & "\epole.ini", "install2")
             MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
             DialogResult = Windows.Forms.DialogResult.Cancel
         Else
@@ -46,7 +46,7 @@
                 If NewKey = "ARIN" OrElse datestr.GetHashCode() = hashcode Then
                     Dim auth As New MyAuth
                     Dim dateValue As Date = Date.Parse(datestr)
-                    auth.SetAuth(dateValue.ToFileTimeUtc(), My.Application.Info.DirectoryPath & "\epole.ini")
+                    auth.SetAuth(dateValue.ToFileTimeUtc(), My.Application.Info.DirectoryPath & "\epole.ini", "install2")
                     MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
                     DialogResult = Windows.Forms.DialogResult.Cancel
                 End If

SpreadNet.v5/Epole/통신번호찰fp5.vbproj

@@ -51,7 +51,7 @@
     <DebugType>full</DebugType>
     <DefineDebug>true</DefineDebug>
     <DefineTrace>false</DefineTrace>
-    <OutputPath>..\..\..\..\SIMP\전주번호찰 프로그램%28통신%29\FP_v5\</OutputPath>
+    <OutputPath>..\..\..\..\..\SIMP\전주번호찰 프로그램%28통신%29\FP_v5\</OutputPath>
     <DocumentationFile>
     </DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>

SubProject/ArinClassV2/ArinClassV2/MyAuth.vb

@@ -24,11 +24,19 @@
         Return True
     End Function
 
-    Public Sub SetAuth(ByVal Newkey As Long, ByVal Fn As String)
+
+    ''' <summary>
+    ''' 기본  keyname =  install
+    ''' </summary>
+    ''' <param name="Newkey"></param>
+    ''' <param name="Fn"></param>
+    ''' <param name="keyname"></param>
+    Public Sub SetAuth(ByVal Newkey As Long, ByVal Fn As String, keyname As String)
         Dim auth As New ARINCLASS
         Dim Arinini As New MyINI(Fn)
-        Arinini.Write("main", "install", Newkey)
+        Arinini.Write("main", keyname, Newkey)
-        Arinini.Write("main", "installkey", Newkey.GetHashCode)
+        Dim 해쉬값 As Integer = Newkey.GetHashCode()
+        Arinini.Write("main", keyname + "key", 해쉬값)
 
         Dim A As New System.Text.StringBuilder
         A.AppendLine("인증정보가 파일에 기록되었습니다")